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!
