String Replace

[Nico Puhlmann]

Hi Leute,

wie kann ich in einem String z.B. alle Leerzeichen durch '%20' ersetzen lassen?
Gibt es eine Art Replace Funktion? Hab da noch nix gefunden.

Danke im Voraus!

Nico :-)

[Andreas Kosch]

Hallo,

das folgende Beispiel sollte die Aufgabe erfüllen (die beiden Funktionen stammen aus einem Beispiel von C. Calvert, die in der <b>CodeCentral</b>-Datenbank von Borland zu finden sind):
<pre>
function ReplaceString(NewStr, ReplaceStr, Data: String): String;
var
OffSet: Integer;
begin
OffSet := Pos(ReplaceStr, Data);
Delete(Data, OffSet, Length(ReplaceStr));
Insert(NewStr, Data, OffSet);
Result := Data;
end;

function ReplaceAllInstancesOfString(NewStr, ReplaceStr: String;
var Data: String): Boolean;
var
i: Integer;
begin
i := 0;
while Pos(ReplaceStr, Data) > 0 do begin
Data := ReplaceString(NewStr, ReplaceStr, Data);
Inc(i);
end;
Result := i > 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
sInputString: String;
begin
sInputString := Memo1.Text;
ReplaceAllInstancesOfString('%20',' ', sInputString);
Memo1.Text := sInputString;
end;
</pre&gt

Klappt super, danke :-)

Nic

[Robert Marquardt]

Wart mal ab was die Jedi Code Library bringt. Unter anderem String-Funktionen bis zum Abwinken. Zum Grossteil in Assembler. Wir werken gerade heftig die naechste Preview-Version