gesamt Einträge aus einer Listbox zu ein String in Variable

[dorisdoloris]

und schon hab ich ein neuen Problem

Ich möchte gerne den gesamten Inhalt einer ListBox zu einem String in einer Variable speichern.

Beispiel:

Die ListBox hat 3 Einträge also

in ListBox1.Items.Strings[0] steht z.b 'Hallo' drin
in ListBox1.Items.Strings[1] steht z.b 'hier ist' drin
und in ListBox1.Items.Strings[2] steht z.b 'Doris' drin

Und jetzt möchte ich das z.b in der Variable sGesamt := 'Hallo hier ist Doris' drin steht also der gesamte Inhalt der Listbox muss der Variablen übergeben werden. Wie könnte ich das realisieren ?

lg: doris

[S2B]

Normalerweise müsste das gehen:
sGesamt := ListBox1.Items.Text;

[ichbins]

oder so:

Delphi-Quellcode:

var
  s:string;
  i:integer;
begin
  s:='';
  for i:=0 to memo1.lines.count-1 do
    s:=s+listbox1.items.strings[i];
end;

[Neutral General]

Zitat von ichbins:

oder so:

Delphi-Quellcode:

var
  s:string;
  i:integer;
begin
  s:='';
  for i:=0 to memo1.lines.count-1 do
    s:=s+listbox1.items.strings[i];
end;

oder so:

Delphi-Quellcode:

var
  s:string;
  i,j:integer;
begin
  s:='';
  for i:=0 to memo1.lines.count-1 do begin
   for j:= 1 to Length(Memo1.Lines.Strings[i]) do begin
    s:=s+ copy(Memo1.Lines.Strings[i],j,1);
   end;
  end;
end;

Damit will ich sagen: Warum einfach wenns auch kompliziert geht ne -.-
PS: Ka ob mein Code läuft ^^ war nur grad hingeschmiert.. so einen Unsinn programmier ich nicht -.-^^
EDIT: Ich habs doch mal getestet^^ Es funktioniert

[Lannes]

Hallo,

Listbox <> Memo

Delphi-Quellcode:

Listbox1.Items.Delimiter := ' ';
showmessage(Listbox1.Items.CommaText);

[himitsu]

Ich würde eher zu ListBox.Lines.Text tendieren, denn dort sind auch noch Trennzeichen zwischen den einzelnen Einträgen.

Wenn die Einträge nur susammengesetzt werden, dann gibt es ja kein Kenzeichem mehr, wo welcher Eintrag anfängt/aufhört.

Code:

s:=s+listbox1.items.strings[i];
    [color=#ff0000]^ ist dann ja alles direkt aneinander geklatscht ;)[/color]

[add]
OK, Lannes CommaText ist auch noch zu gebrauchen, wobei du dann natürlich den Delimiter an deinen Inhalt anpassen solltest.

[Lannes]

Hallo,

Zitat von himitsu:

[add]
OK, Lannes CommaText ist auch noch zu gebrauchen, wobei du dann natürlich den Delimiter an deinen Inhalt anpassen solltest.

dorisdoloris möchte die Items in einen String zusammenfassen, nicht die Items aufteilen, dann ist das setzen des Delimeters auf ein Leerzeichen so richtig.

[himitsu]

OK, stimmt ja

und nochmal zu den Codes der Anderen ...

Code:

s:=s + [color=#ff0000]' ' +[/color] listbox1.items.strings[i];

da sollte dann wohl auch noch das ' ' mit rein ^^

[dorisdoloris]

Doris euch mal alle dankt und küsschen verteilt für die schnelle Hilfe


lg: doris