Hallo
Ich habe mir jetzt diesen Code zusammengebaut:
Delphi-Quellcode:
type aTag = class(TObject)
end;
implementation
procedure TForm1.ComBoBox(Sender: TObject);
var tmpTag : aTag;
tmpStr:String;
begin
ComboBox.Items.Clear;
ADOQuery.First;
while not ADOQuery.EOF do begin
tmpStr := ADOQuery.FieldByName('Test').asString;
tmpTag := ADOQuery.FieldByName('Testen').asString;
ComboBox.Items.AddObject( tmpStr,tmpTag);
ADOQuery.Next;
end;
end;
Dieser Code fügt in einer ComboBox die Items aus der Spalte Test ein. Und für jedes dieser Items wird auch der dazugehörige Tag aus der Spalte Testen hinzugefügt? Ist das richtig?
Aber es klappt nicht es kommt immer die Meldung:
Inkompatible Typen: 'aTag' und 'string'
Was ist da zu tun?