Forum: Programmieren allgemein
by Helmi,
22. Dez 2012
auch wenns OffTopic ist - aber hierbei würde sich Format anbieten:
ListBox1.Items.AddObject(Chr(I + Ord('A')) +':\ (' + DriveType(I) + ')', TObject(I));
.
und zwar so:
ListBox1.Items.AddObject(Format('%s:\ (%s)', ), TObject(I));
Forum: Programmieren allgemein
by Helmi,
22. Dez 2012
Auch auf die Gefahr hin geschlagen zu werden, es gäbe noch die Möglichkeit einem Item ein Object mit zu geben.
Als Object würde dann ein Index mitgegeben werden, den man auch auslesen kann (siehe Button1Click)
Beispiel:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
i := ListBox1.ItemIndex;