Einzelnen Beitrag anzeigen

DieHardMan

Registriert seit: 16. Jul 2002
Ort: Stuttgart
68 Beiträge
 
#1

Pascal Script: Delphi Functionen nutzen

  Alt 6. Dez 2005, 09:28
Hi, möchte gern die beiden Stringfunktionen StringReplace und PosEx in Pascal Script hinzufügen, aber irgendwie klappt das nicht. Habe folgendes versucht:

Delphi-Quellcode:
function ExStringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;
begin
  StringReplace(S, OldPattern, NewPattern, Flags);
end;

procedure TfrmMain.ceCompile(Sender: TPSScript);
begin
  Sender.AddFunction(@ExStringReplace,
                   'function ExStringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;');
end;
Klappt aber nicht, da kommt folgende Exception:
raised exception, unable to register function function ExStringReplace...
Alle meine Entchen...
  Mit Zitat antworten Zitat