combobox füllen und auslesen

[khh]

hallo zusammen,
ich bestücke in der proc create eines form eine combobox mit den werten aus einem dyn. array of record.
dh. ich habe im array eine id und eine bezeichnung.( zb: id: 1 ,bezeichnung: kunde,id 2, bezeichnung.Lieferant )

Beim speichern möchte ich die die id des gewählten string aus der box speichern.
Gibts ne einfache möglichkeit die id auszulesen?

danke gruss KH

[DeddyH]

Du kannst in den Items einer ComboBox auch Objektreferenzen ablegen. Das sind Zeiger, welche wiederum Integers sind. Mit einem einfachen Cast bekommst Du also auch eine Integer hinein.

Delphi-Quellcode:

ComboBox.Items.AddObject('Mustermann',TObject(12));

[BullsEye]

INI File

Das könnte ggf helfen ;)

[quendolineDD]

Oder wenn du bei der Befüllung der ComboBox das Array der Reihe nach durchläufst, kannst du wiederum durch den ItemIndex der ComboBox (ComboBox.ItemIndex) den Wert aus deinem Array lesen.

Hab mal einen kleinen Beispielcode geschrieben:
Deklarierung der Variablen:

Delphi-Quellcode:

type
  TMyRecord = record
    ID : integer;
    Bezeichnung : String;
  end;

  TRecordArr = array of TMyRecord;

[...]
  public
    aArr : TRecordArr;

Zum befüllen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
setlength(aArr, 2);
aArr[0].ID := 0;
aArr[0].Bezeichnung := 'foo';

aArr[1].ID := 1;
aArr[1].Bezeichnung := 'bar';

for i:= 0 to High(aArr) do
  begin
    ComboBox1.Items.Add(aArr[i].Bezeichnung);
  end;
end;

zum auslesen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if ComboBox1.ItemIndex <> -1 then
  begin
    ShowMessage(format('Die gwählte ID ist %d und die Bezeichnung ist %s', [aArr[ComboBox1.ItemIndex].ID, ComboBox1.Items.Strings[ComboBox1.ItemIndex]]))
  end;
end;

Jedoch finde ich die Referenzierung durch ein Objekt und das Nutzen der Procedur AddObject auch vernünftiger. Vielleicht kannst du ja auch dein Record durch eine Klasse ersetzen.

[khh]

Zitat:

Zitat von DeddyH

Du kannst in den Items einer ComboBox auch Objektreferenzen ablegen. Das sind Zeiger, welche wiederum Integers sind. Mit einem einfachen Cast bekommst Du also auch eine Integer hinein.

Delphi-Quellcode:

ComboBox.Items.AddObject('Mustermann',TObject(12));

dann werd ich das mal so probieren

Danke schön, gruss Kh

[quendolineDD]

Sicher, mal auf dein Problem zugeschnitten

Delphi-Quellcode:

ComboBox.Items.AddObject(RecordArray[i].Bezeichnung, TObject(RecordArray[i].ID));

[khh]

Zitat:

Zitat von quendolineDD

Sicher, mal auf dein Problem zugeschnitten

Delphi-Quellcode:

ComboBox.Items.AddObject(RecordArray[i].Bezeichnung, TObject(RecordArray[i].ID));

ich danke euch vielmals



Gruss KH

[khh]

mh steh doch noch aufm schlauch .-(

wie lese ich den integerwert dann aus??



Gruss KH

[mkinzler]

Wo welchen Wert?

[khh]

Zitat:

Zitat von mkinzler

Wo welchen Wert?

diesen:

TObject(RecordArray[i].ID));