Forum: Object-Pascal / Delphi-Language
Delphi
by DieHardMan,
6. Dez 2005
Jojo geht, das Result hat natürlich auch noch gefehlt.
Forum: Object-Pascal / Delphi-Language
Delphi
by DieHardMan,
6. Dez 2005
Sender.Comp.AddTypes('TReplaceFlag', '(rfReplaceAll,rfIgnoreCase);');
Sender.Comp.AddTypes('TReplaceFlags', 'set of TReplaceFlag');
ist korrekt. Danke für die Antworten.
Forum: Object-Pascal / Delphi-Language
Delphi
by DieHardMan,
6. Dez 2005
Hi, möchte gern die beiden Stringfunktionen StringReplace und PosEx in Pascal Script hinzufügen, aber irgendwie klappt das nicht. Habe folgendes versucht:
function ExStringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;
begin
StringReplace(S, OldPattern, NewPattern, Flags);
end;
procedure TfrmMain.ceCompile(Sender: TPSScript);
begin