Hallo Zusammen,
der Threat ist zwar schon älter, aber vielleicht kann mir trotzdem jemand einen Tip geben.
Ich habe es folgendermaßen umgesetzt:
Delphi-Quellcode:
while not Query.Eof
do begin
if not Query.FieldByName(Spalte_sichtbar).IsNull
then begin
Wert:=
Query.FieldByName(Spalte_Unsichtbar).AsString;
ComboBox.Items.AddObject(
Query.FieldByName(Spalte_sichtbar).AsString, TObject(Wert));
end;
Query.Next;
end;
Im OnChange Procedure wollte ich den Wert dann in ein Editfeld schreiben und habe es so versucht:
Edit_Abteilung_ID.Text:=String(Combo_Abteilung.Items.Objects[Combo_Abteilung.ItemIndex]);
Leider wird dann nur so ein komisches Zeichen in das Editfeld geschrieben (wie ein L falschherung, Schenkel zeigt nach links).
Wenn ich es debuggere, dann bekomme ich immer den Wert #4.
Kann mir jemand sagen, was ich falsch mache?
Vielen Dank
Patrick