Thema: Delphi Problem mit Liste

Einzelnen Beitrag anzeigen

Nuclear-Ping
(Gast)

n/a Beiträge
 
#22

Re: Problem mit Liste

  Alt 9. Nov 2007, 15:39
TStringList ist nicht visuell. Entweder gleich 'ne TListBox oder (was besser ist) Code und Ausgabe trennen.
Delphi-Quellcode:
uses Classes;

var
  mySL: TStringList;

begin
  mySL := TStringList.Create;
  mySL.AddObject ('Test', TObject (5));
  mySL.AddObject ('Test1', TObject (10));
  mySL.AddObject ('Test2', TObject (7));

  ListBox1.Assign (mySL);

  FreeAndNil(mySL);


  showmessage (inttostr (Integer (ListBox1.Objects[0]))); // 5
  showmessage (inttostr (Integer (ListBox1.Objects[1]))); // 10
  showmessage (inttostr (Integer (ListBox1.Objects[2]))); // 7
end;
// ungetestet
Edit:
TList ist keine TListBox.
Die ListBox musste aus dem Komponenten-Reiter "Standard" auf deine Form ziehen.
  Mit Zitat antworten Zitat