Hallo,
ich möchte eine Combobox mit Addobject füllen - das Object ist ein Zeiger auf
Delphi-Quellcode:
TKontakt = record
Name : string;
Adresse : string;
end;
Das ganze sieht vereinfach so aus:
Delphi-Quellcode:
var vKontakt : ^TKontakt;
begin
while not IBQ_Adressen.Eof do
begin
new(vkontakt);
if fGueltigeEmail(IBQ_Adressen.fieldbyname('f1').AsString) then
begin
vKontakt^.Adresse := IBQ_Adressen.fieldbyname('f1').AsString;
vKontakt^.Name := IBQ_Adressen.fieldbyname('f2').AsString;
end;
CB.Items.AddObject(IBQ_Adressen.fieldbyname('f1').AsString,TObject(vkontakt));
IBQ_Adressen.Next;
end;
end;
Ich bin mir nicht ganz sicher, ob ich diese Zuweisung (Casting mit TObject) so machen kann. Ich hab das schon in anderen Beiträgen so gelesen, aber Zweifel kommen mir doch, wenn ich versuche die Daten auszulesen:
ShowMessage(CB.Items.Objects[0].*wasmachichhier?*);
Wäre toll, wenn Ihr mir da helfen könntet!
Danke,
Simon