Warum so kompliziert.
Geh einfach den gesamten String mit einer For -Schleife durch und prüfe jedes Zeichen ob es ein
' ' ist und wenn dann ersetzte es durch ein
+
Delphi-Quellcode:
for i:=1 to length(edit1.text) do
begin
if edit1.text[i] = ' ' then begin
edit1.text[i] := '+' ;
end;
end;
Nicht getestet sollte aber tun.