Listen addieren?

[Dani]

Zitat von malo:

Delphi-Quellcode:

var a, b: TStrings;
    i, j: integer;
begin
a := TStringList.Create;
b := TStringList.Create;
a.Add('bla');
a('blubb');
while a[i] <> '' do
  inc(i);
for i := 0 := i do
  b.Add(a[i]);
end;

Willst du blackfoxx auf die Schippe nehmen? Bei dem Code rollen sich einem ja die Zehennägel auf. TStrings.AddStrings

edit: kein roter Kasten?