Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by youuu,
21. Jul 2010
Else If Length(NewPattern) = 1 Then Result := NewPattern
Ist rot markiert, was genau übergeben wurde, werde ich nun nach schauen
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by youuu,
21. Jul 2010
Hi, ich verwende deine Stringreplace Routine, allerdings erhalte ich einen Fehler hier:
Function StringReplaceX(Const S: String; Const OldPattern, NewPattern: Array of String; Flags: TReplaceFlags = ): String;
Function GetNewPatt(i: Integer): String;
Begin
If i < Length(NewPattern) Then Result := NewPattern
Else If Length(NewPattern) = 1 Then Result :=...