Problem mit TStringList

[jfheins]

Delphi-Quellcode:

var liste:TStringList; 
begin 
  liste:=TStringList.Create;
  liste.add(speicher.readstring('Punkte','Punktzahl','0')+'#'+speicher.readstring('name','name','')+'§'+speicher.readstring('level','Level','0')); 
  listbox2.items:=liste; 
  liste.Free;
end;

Und ganz richtig geht das so:

Delphi-Quellcode:

var liste:TStringList; 
begin 
  liste:=TStringList.Create;
  liste.add(speicher.readstring('Punkte','Punktzahl','0')+'#'+speicher.readstring('name','name','')+'§'+speicher.readstring('level','Level','0')); 
  listbox2.items.text:=liste.text; // .text, sonst: 
  liste.Free;                      // geben wir hier listbox.items frei ... ;)
end

oder so:

Delphi-Quellcode:

begin 
  listbox2.items.add(speicher.readstring('Punkte','Punktzahl','0')+'#'+speicher.readstring('name','name','')+'§'+speicher.readstring('level','Level','0')); 
end