Ændre alle A'er til 17?

Kan man lave en funktion som tjekker en string efter A'er og så laver alle A'erne om til tallet 17? Har spurgt før men koden virkede ikke...
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Kode 

function ReplaceString(S : String) : String;
var
  I : Integer;
begin
  for I := 0 to Length(S)-1 do
  if S[I] = 'a' then S := Copy(S, 0, I-1) + '17' + Copy (S, I+1, Length(S));
  Result := S;
end;

Kan man lave en funktion som tjekker en string efter A'er og så laver alle A'erne om til tallet 17? Har spurgt før men koden virkede ikke...
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Kan man lave en funktion som tjekker en string efter A'er og så laver alle A'erne om til tallet 17? Har spurgt før men koden virkede ikke...
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

det her skulle virke:

str := StringReplace(str, 'a', '17', [rfReplaceAll]);


- SpeC - #SpeC.DK @ Q-NET