Wenn ich die Problemstellung richtig verstanden habe, könnte das hier eine Lösung sein.
Delphi-Quellcode:
type
TDriver = Class( TPersistent)
public
DriverID : Word;
SurName : String;
Name : String;
end;
Für den jeden Fahrer eine Instanz der Klasse TDriver erstellen...
Delphi-Quellcode:
procedure TForm1.Btn_AddClick(Sender: TObject);
var
vDriver : TDriver;
begin
vDriver := TDriver.Create;
with vDriver do
begin
DriverID := StrToInt( Et_PersNr.Text);
SurName := Et_Name.Text;
Name := Et_VorName.Text;
ComboBox1.AddItem( Name +' ' +SurName, vDriver);
end;
end;
...und wieder freigeben.
Delphi-Quellcode:
procedure TForm1.Btn_DeleteClick(Sender: TObject);
begin
if ComboBox1.ItemIndex > -1 then
with ComboBox1 do
begin
TDriver( Items.Objects[ ItemIndex]).Free;
Items.Delete( ItemIndex);
if Items.Count > 0 then
ItemIndex := 0 else
Text := '';
end;
end;