Hallo!
Ich finde einfach nichts brauchbares im Internet und in den Foren zu dem Thema, deswegem frage ich einfach mal hier nach.
Habe das alte Problem dank euch ebenfalls lösen können, nachdem ich ein wenig nochmal alles überflogen habe und ein paar Tutorials und Bücher mir angeguckt habe.
Zu dem Problem :
Delphi-Quellcode:
for i := 0 to FBenutzerliste_Laden.Count-1 do // Für die Benutzerlisteneinträge
begin
Trenner := pos(',',FBenutzerliste_Laden.Strings[i]); // Trennzeichen ermitteln zwischne Benutzername und Benutzernummer
FBenutzerliste_Eintrag := Benutzerlistview.Items.Add; // Eintrag für den Listview erzeugen
FBenutzerliste_Eintrag.Caption := copy(FBenutzerliste_Laden.Strings[i],1,Trenner-1); // Weist dem Eintrag den Benutzernamen zu
Self := Self.Create; // Neues Klassenobjekt erstellen
FBenutzername := copy(FBenutzerliste_Laden.Strings[i],1,Trenner-1); // Benutzernamen in die Variable kopieren
FBenutzerNummer := StrToInt(copy(FBenutzerliste_Laden.Strings[i],Trenner+1,4)); // UIN kopieren
FBenutzerFenster_Offen := 0; // Benutzerfenster ist am Anfang stets geschlossen
FBenutzerInfoFenster_Offen := 0; // Benutzerinfofenster ebenfalls
Benutzerlistview.Items.Item[i].Data := Self; // Den Datenzeiger setzen
end;
Es wird zur Laufzeit von jedem Listitem ein Objekt angelegt, das den Benutzernamen, Benutzernummer, usw. enthält.
Dies funktioniert alles soweit. Nur beim abspeichern bräuchte ich ein wenig Hilfe.
Delphi-Quellcode:
for i := 0 to Benutzerlistview.Items.Count -1 do // Benutzerliste hinzufügen
begin
Benutzerlistview.Items.Item.Data; // Wie verwende ich die Data Eigenschaft
end;
Ich will die Einträge in eine Stringliste schreiben und diese dann via Stream senden.
Stream senden ist kein Problem , aber wie komme ich über Data an die Klassenfelder ran???
Hoffe mir kann jemand bei dem Problem helfen.
Danke im voraus
Matthias