Delphi-Quellcode:
procedure TfrmMainForm.ListBoxShow;
var
EdVariable: string;
LbCount,i : integer;
Liste : TStringList;
begin
Liste := TStringList.Create;
EdVariable := frmMainForm.EdNickname.Text;
LbCount := Liste.Count;
if LbCount <= 0 then begin
i := 0;
end;
if EdVariable <> '' then begin
i := Liste.Count;
i := i+1;
Liste.Add(frmMainForm.EdNickname.Text + ' ' + '[' + InttoStr(i)+ ']');
Memo1.Text := Liste.Text;
Ich möchte mit dieser Prozedur Nicknames in die Stringlist speichern und diese im Memo wieder ausgeben.
Soweit funktioniert alles nur dass sich der Count meiner Stringlist nicht ändert er ist stetig 0.
Und deshalb überschreibt er auch alle Nicknames. Weis jemand wie dieses Problem zu lösen ist ?
