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

[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'))+...