Thema: Delphi FreeReport

Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#5

Re: FreeReport

  Alt 11. Mai 2009, 18:15
Zitat von PASST:
...Exception EVariantTypeCastError aus: 'Variante des Typs [String] konnte nicht in Typ [Double] konvertiert werden.'
Da kann man noch etwas ändern:
Delphi-Quellcode:
procedure TForm1.NumfieldOnGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
   if StrToIntDef(Sender.AsString, 0) = 0 then
      Text := ''  // zum Testen: Text := '---'
   else
      Text := Sender.AsString;
end;
Andreas
  Mit Zitat antworten Zitat