StrToInt im Fastreport (FastScript)

[smudo]

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é

[diComm]

Hallo René

Wenn es immer ein ' am Anfang des Strings ist wäre doch

werts := AnsiRightStr(werts,(length(werts)-1)); eine Lösung. Sicher keine schöne und ich hoffe es gibt eine bessere, aber es wäre eine Lösung...

Gruss
diComm

[smudo]

Danke diComm,

leider kennt FastScript die Funktion AnsiRightStr nicht.
Habe meine Lösung jetzt aber ähnlich aufgebaut:
werti:=StrToInt(copy(werts,1,Length(werts)-2)); Nur so gehts im Moment.