Übersetzer - Ansatzprobleme

[Meflin]

Und viel schöner wird dein Code noch so

Delphi-Quellcode:

var
  Chars: array[0..2] of string = ('E', 'M', 'T');
  Replacement: array[0..2] of string = ('3', '|\/|', '7');

for i := 0 to Length(Chars) - 1 do
  NewText := StringReplace(OldText, Chars[i], Replacement[i], [rfReplaceAll, rfIgnoreCase]);