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...