Laufwerksangaben aus Listbox verwenden

[Helmi]

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:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;

begin
  i := ListBox1.ItemIndex;

  ShowMessage(Format('%s, Index: %d',[ListBox1.Items.Strings[i], Integer(ListBox1.Items.Objects[i])]));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Items.AddObject('Laufwerk A', TObject(1));
  ListBox1.Items.AddObject('Laufwerk B', TObject(2));
  ListBox1.Items.AddObject('Laufwerk C', TObject(3));
end;

oder man speichert sich nen Buchstaben im TObject:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;

begin
  i := ListBox1.ItemIndex;

  ShowMessage(Format('%s, Buchstabe: %s',[ListBox1.Items.Strings[i], Chr(Integer(ListBox1.Items.Objects[i]))]));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Items.AddObject('Laufwerk 1', TObject(Ord('A')));
  ListBox1.Items.AddObject('Laufwerk 2', TObject(Ord('B')));
  ListBox1.Items.AddObject('Laufwerk 3', TObject(Ord('C')));
end;

Aber schön ist was anderes...