Hilfe! Lookupfeld und TVariant (Fehler) Ungültiges Argument

[Karstadt]

procedure Tdm.tabelleCalcFields(DataSet: TDataSet);

var Ergebnis : Variant;
Ergebnis:=query.Lookup('id','1','name_z1;name_z2;p lz;ort');
Tabelle.FieldByName('beschreibung').AsString := Ergebnis[0]+' '+Ergebnis[1]+', '+Ergebnis[2]+' '+Ergebnis[3];


FMeldung Ungültiges Argument! Warum!

[Der Jan]

Compiler- oder Laufzeitfehler? Und wo genau?

[Karstadt]

Tabelle.FieldByName('beschreibung').AsString := Ergebnis[0]+' '+Ergebnis[1]+', '+Ergebnis[2]+' '+Ergebnis[3]; Laufzeitfehler!

Wenn ich das in Try Except setzen werden die Daten richtig übergeben, bloß da kommt kein FMeldung.

Woran kann das liegen?

[Der Jan]

Zitat von Karstadt:

Wenn ich das in Try Except setzen werden die Daten richtig übergeben, bloß da kommt kein FMeldung.

Dann ist doch alles ok, oder ? Vielleicht steht grad einer auf meiner Leitung

Kommt die Meldung in deinem Source oder vielleicht in Variants.pas?
Bin mir jetzt nicht ganz sicher, aber vielleicht lassen sich die Elemente aus dem VariantsArray nicht einfach mit "+" verknüpfen... ? Glaub ich aber weniger...
'id' ist sicher integer? Vielleicht ('id', 1, ...) statt ('id','1',...)
Sonst wüßt ich jetzt auch nicht mehr...

Edit: Das mit der Veknüpfung der Variants mit "+" geht, habbich gerade bei mir getestet...

[Karstadt]

Zitat:

procedure Tdm.tabelleCalcFields(DataSet: TDataSet);

var Ergebnis : Variant;
Ergebnis:=query.Lookup('id','1','name_z1;name_z2;p lz;ort');
Tabelle.FieldByName('beschreibung').AsString := Ergebnis[0]+' '+Ergebnis[1]+', '+Ergebnis[2]+' '+Ergebnis[3];

Wenn Irgendein Feld leer ist dann kommt es zu diese FMeldung! Probier aus.

Lösung If VarIsNull muss geprüft werden!

[Karstadt]

Die Lösung lautet:

Delphi-Quellcode:

var FI: Stinng;
Ergebnis: Variant;


IF not VarIsNull(Ergebnis[0]) Then FI := VarToStr(Ergebnis[0]);

VarIsNull und dann VarToStr