StringReplace mit Anhang

[malo]

Ich würde es eher so machen:

Delphi-Quellcode:

function ReplaceThisString(s: string): string;
var
  i: integer;
begin
  for i := 1 to length(s) do
  begin
    if s[i] in ['0', '1', '2', '3', '4', '5', '5', '6', '7', '8', '9'] then
    begin
      insert(s, '"', i);
      break;
    end;
  s := s + '"';
  end;
end;

UNgetestet


edit: Hab vergessen den Text zu ändern. Eventuell mal vorher StringReplace drüber laufen lassen, dann passt das schon

//edit2: Unsinn entfernt.