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]

Delphi-Quellcode:

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:

Zitat von Karstadt

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

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

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! :wall:

[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