Couldn't convert varient of type (NULL) into type (String)

[mkinzler]

if not Query2.FieldValues['WER'].isNull then ... else ...

[Svenkan]

Ich hab das jetzt so gemacht:

hcode2:='<td width=9% bgcolor=#666666><font color=#FFFFFF size=2 face=Arial> '+if not Query2.FieldValues['WER'].isNull then Query2.FieldValues['WER'] else empty+'</font></td>'; Aber entweder bin ich zu blöd zu kapieren, wie das funktioniert oder es klappt so wirklich nicht..

Zitat:

[Error] Unit2.pas(228): Statement expected, but expression of type 'String' found

[mkinzler]

So geht es natürlich nicht.

Delphi-Quellcode:

function CheckNull( Field: TField; eValue: Variant):Variant;
begin
    if not Field.isNull then result := Field.Value else  result := eValue;
end;
...
hcode:='<tr>'+sLineBreak+'<td width=9% bgcolor=#666666><font color=#FFFFFF size=2 face=Arial> '+CheckNull(Query2.FieldByName('KLASSEN'], 'empty'))+...

[Svenkan]

Danke soweit schonmal!
Bin irgendwie immer noch nicht so ganz ausm PHP-Konzept raus..
Leider bekomme ich den gleichen fehler mit dem NULL-Dingens immer noch..
Ich habe alles nach deinem Schema umgebaut.

Delphi-Quellcode:

   hcode:='<tr>'+sLineBreak+'<td width=9% bgcolor=#666666><font color=#FFFFFF size=2 face=Arial> '+CheckNull(Query2.FieldByName('KLASSEN'), 'empty')+'</font></td>'+sLineBreak+'<td width=9% bgcolor=#666666><font color=#FFFFFF size=2 face=Arial> '+CheckNull(Query2.FieldByName('S'), 'empty')+'</font></td>'+sLineBreak+'<td width=9% bgcolor=#666666><font color=#FFFFFF size=2 face=Arial> '+CheckNull(Query2.FieldByName('FUER'), 'empty')+'</font></td>'+sLineBreak;
   WriteLn(Datei, hcode);
   hcode2:='<td width=9% bgcolor=#666666><font color=#FFFFFF size=2 face=Arial> '+CheckNull(Query2.FieldByName('WER'), 'empty')+'</font></td>'+sLineBreak+'<td width=9% bgcolor=#666666><font color=#FFFFFF size=2 face=Arial> '+CheckNull(Query2.FieldByName('FACH'), 'empty')+'</font></td>'+sLineBreak+'<td width=9% bgcolor=#666666><font color=#FFFFFF size=2 face=Arial> '+CheckNull(Query2.FieldByName('RAUM'), 'empty')+'</font></td>'+sLineBreak+'<td width=37% bgcolor=#666666><font color=#FFFFFF size=2 face=Arial> '+CheckNull(Query2.FieldByName('BEMER_SCH'), 'empty')+'</font></td>'+sLineBreak+'</tr>';
   WriteLn(Datei, hcode2);

Das erste Feld, welches leer (also nil) ist, wäre 'WER'. Und genau in der Zeile befindet sich dann auch wieder der Ausgabefehler.

[mkinzler]

Hast du mal im Debugger geschaut, wo dieser Fehler auftritt?

[Svenkan]

In der Zeile wo hcode2 geschrieben werden sollte.

[mkinzler]

In meiner Funktion

[Svenkan]

Es ist genau die gleiche Stelle, wie vor dem Einbau deiner Funktion.

[mkinzler]

Nein schau dir mal der Ablauf in der Funktion an.

[Svenkan]

Sry wenn ich jetzt so blöd frage, aber..
wo gennau?
Da gibts ziemlich viele Debugwindows..