ListBox Einträge der TStringList zuweisen?

[AlexII]

Hallo,

wie weise ich die ListBox Items der TStringListe?

Etwa so?

Delphi-Quellcode:

List.Add(ListBox1.Items);

Dies funktioniert aber nicht.

[Satty67]

Überdenke Deine Grammatik, die Richtung der Zuweisung muss ich raten :?

Listbox mit StringList füllen

Delphi-Quellcode:

Listbox.Items.assign(StringList)

StringList mit ListBox.Items füllen

Delphi-Quellcode:

StringList.assign(Listbox.Items)

dabei bin ich mir nicht ganz sicher, ob die Listbox TStrings erwartet.

Interessant wäre, was Du vor hast. beides sind ja mind. TStrings und z.B. zum Speichern wäre eine Zuweisung nicht nötig.

[AlexII]

Hab das so gemacht:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i: Integer;
    s1,s2,s3,s4: String;
begin
List2.Clear;
//showmessage(listbox1.Items.Strings[0]);
for i:=0 to ListBox1.Count-1 do
begin
s1:=ListBox1.Items.Strings[i];
s2:=ListBox2.Items.Strings[i];
s3:=ListBox3.Items.Strings[i];
s4:=ListBox4.Items.Strings[i];

List2.Add('=' + s1 + '=' + s2 + '=' + s3 + '=' + s4 + '=');
end;
List2.SaveToFile(ExtractFilePath(ParamStr(0)) + '\Datei.txt');
end;

Funktioniert wunderbar. :-D

[Satty67]

Ok, dann hatte ich die Aufgabe ganz falsch verstanden ;)

[AlexII]

Ist ok so, danke dir, hab über deine Lösung auch nachgedacht, irgendwann werde sie auch gebrauchen. :wink:

[Ghostleader]

kann man der Listbox auch Werte aus der Stringlist hinzufügen ohne das der Inhalt aus der Listbox überschrieben wird?

Edit: Brauch keine Antwort mehr, hat sich erledigt.

[DeddyH]

Du suchst AddStrings, vermute ich.

[Ghostleader]

Danke, tut mir leid das du dich umsonst bemüht hast.
Mein Fehler war, ich hatte dieselbe Stringlist in zwei Prozedure per

Code:

StringList1 := TStringlist.Create

erstellt, daher überschrieb sie sich wenn eine der beiden Prozeduren aufgerufen wurde. Hab einfach die Stringlist global definiert und erstelle sie im Form.Create...
Daher hat sich das erledigt.
Danke nochmal,
mfg Ghost

[DeddyH]

[Scherz] Oh Gott, jetzt ist von meinen knapp 16.000 Beiträgen einer umsonst :pale: [/Scherz]
Nee, ist schon OK, vielleicht hilft es ja jemand anderem ;)