Was ist schneller? function oder 3x stringreplace?

[Christian Seehase]

Moin Helmi,

ich hätte da auch noch eine variable Lösung anzubieten:

Delphi-Quellcode:

var
  sTranslation : string;
  sSource      : string;
  sDest        : string;
  i            : Integer;

begin
  SetLength(sDest,Length(sSource));
  for i := 1 to Length(sSource) do begin
    sDest[i] := sTranslation[Ord(sSource[i])+1];
  end;
end;

sTranslation müsste nur entsprechend gefüllt sein, und natürlich alle 256 Zeichen enthalten, wobei an dem Index der zu übersetzenden Zeichen, jeweils der Code des neuen gespeichert ist, und an allen anderen der korrespondierende (z.B. an Index 66 steht 65, +1, da der erste Index im String ja 1 und nicht 0 ist)