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:

markieren

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:

markieren

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é

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

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.