Und schon wieder: ZEOS TZReadOnlyQuery.fieldvalues Problem

[BloodySmartie]

Hallo liebe Mitglieder!

Ich habe ein Problem, das hier scheinbar schon öfters diskutiert wurde. Nachdem ich die Suchfunktion strapaziert und einige Lösungen ohne Erfolg ausprobiert habe, muss ich mich nun leider doch mit dem leidigen Thema an euch wenden.

Ich lese den Wert eines Feldes der Query-Ergebnismenge folgendermaßen aus:

Delphi-Quellcode:

//cre.phone_biz ist von Typ ansistring
crec.phone_biz:=utf8toansi(query.FieldValues['phone_biz']);

Wenn nun der Wert des Feldes phone_biz=NULL ist, wird mir die EVariantTypeCastError - Exception geworfen. Kann mir jemand ne möglichst elegante Methode geben, um dieses Problem zu lösen?

Danke!!

[mkinzler]

Entweder in der Abfrage (IIF, Case..when)
oder vorher abfragen:
if not query.FieldByName('phone_biz').isNull then crec.phone_biz:=utf8toansi(query.FieldByName('phone_biz').Value) else crec.phone_biz := '';

[Peinhard]

Ein VarToStr dazwischen müsste auch gehen:

crec.phone_biz:=utf8toansi(VarToStr(query.FieldValues['phone_biz']));

[BloodySmartie]

Aaaah! Cool! vartostr! Die Erkenntnis ist über mich gekommen. Sehr kurz, sehr elegant. Vielen Dank! Und vielen Dank auch für die andere Lösung - ich hatte es mit
query.FieldByName('phone_biz').isempty versucht, weil ich das auf die Schnelle in der Hilfe fand. Dann gabs aber wieder ne andere Exception.

[Peinhard]

Ich kannte jetzt die ZEOS-Komponenten nicht, aber da sie der üblichen Nomenklatur zu folgen scheinen, könntest du natürlich auch gleich mit FieldByName().AsString abfragen...

[BloodySmartie]

Du hast Recht, Peinhard - damit gehts sogar noch eleganter*juchu*