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));

[martin_]

Zitat:

Zitat von khh

wie lese ich den integerwert dann aus??

mit
ComboBox.Items.Objects[index];

[khh]

Zitat:

Zitat von martin_

Zitat:

Zitat von khh

wie lese ich den integerwert dann aus??

mit
ComboBox.Items.Objects[index];

ich brauche aber den ausgewählten wert

[DeddyH]

Delphi-Quellcode:

TDeinObject(ComboBox.Items.Objects[index]).ID

[khh]

also irgendwie ist es heute schon spät :-(

ich hab die box mit:
ComboBox.Items.AddObject(RecordArray[i].Bezeichnung, TObject(RecordArray[i].ID));
gefüllt.

wie krieg ich den ausgewählten wert jetzt in ein integerfeld?


Danke gruss Kh

[mkinzler]

Delphi-Quellcode:

<Integerfeld> := TDeinObject(ComboBox.Items.Objects[index]).ID;

[DeddyH]

Sry, da war ich eben völlig neben der Spur.

Delphi-Quellcode:

integer(ComboBox.Items.Objects[index]);

Ein "Rückcasten" sollte genügen.

[quendolineDD]

Nicht ganz, da in meinem Beispiel als Object die Referenz auf die ID gesetzt wird.
Somit musst du das Ergebnis als Integer casten.

Delphi-Quellcode:

ShowMessage(format('Die Bezeichnung ist: %s und die ID ist %d',[ComboBox1.Items.Strings[ComboBox1.ItemIndex], Integer (ComboBox1.Items.Objects[ComboBox1.ItemIndex])]));

[khh]

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

<Integerfeld> := TDeinObject(ComboBox.Items.Objects[index]).ID;

mh, und was steht in index?
ichbrauche doch nur den einen ausgewählten wert:-(

Gruss Kh

[quendolineDD]

Delphi-Quellcode:

< Integerfeld > := Integer (ComboBox.Items.Objects[ComboBox.ItemIndex]);

ItemIndex repräsentiert den Index des ausgewählten Eintrags. Die Indexierung beginnt wie üblich bei 0. Der Index ist -1, falls nichts ausgewählt wurde.

[mkinzler]

Deltef hat seinen Beitrag verbessert. Ich dachte du hättest eine Struktur abgelegt und nicht nur einen Integer-Wert

[khh]

Zitat:

Zitat von quendolineDD

Nicht ganz, da in meinem Beispiel als Object die Referenz auf die ID gesetzt wird.
Somit musst du das Ergebnis als Integer casten.

Delphi-Quellcode:

ShowMessage(format('Die Bezeichnung ist: %s und die ID ist %d',[ComboBox1.Items.Strings[ComboBox1.ItemIndex], Integer (ComboBox1.Items.Objects[ComboBox1.ItemIndex])]));

aha jetzt komme ich der sache näher :-)


EDIT:
habs doch noch probiert.

danke das klappt ;-)
supi!!!


danke euch


gruss Kh