Hallo
,
ich habe im Fastreport eine TfrxSysMemoView für die Gesamtseitenzahl und möchte diese innerhalb des Reports (also mit FastScript) auslesen.
Zum Testen reagiere ich auf das Ereignis OnPreviewClick:
Delphi-Quellcode:
procedure SysMemo1OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
begin
Showmessage(TfrxSysMemoView(Sender).Memo.text);
end;
Das funktioniert. Das Problem ensteht beim Umwandeln nach Integer:
Delphi-Quellcode:
procedure SysMemo1OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
var werti:Integer;
werts:String;
begin
werts:=TfrxSysMemoView(Sender).Memo.text;
werti:=StrToInt(werts); //hier kommt Fehler (Beispiel: '100 ist kein gültiger Integerwert)
TfrxSysMemoView(Sender).Memo.text:=IntToStr(werti);
end;
Wie bekomme ich diesen Anführungsstrich vor dem String weg. Selbst mit Copy haut mir Fastscript immer wieder das Zeichen vorn ran.
Danke schon vorher
René