simple Konvertierung von Stringcode in andere Zeichen

[shmia]

Delphi-Quellcode:

function CharPos(const S: string; const C: Char): Integer;
begin
  for Result := 1 to Length(S) do
    if S[Result] = C then
      Exit;
  Result := 0;
end;

function TransformString(const input, source, dest:string):string;
var
   i, p : Integer;

begin
   SetLength(Result, length(input));
   for i := 1 to length(input) do
   begin
      p := CharPos(source, input[i]);
      if p = 0 then
         raise Exception.Create('invalid char');
      Result[i] := dest[p];
   end;
end;

Aufruf:

Delphi-Quellcode:

const
   source = '1234567890|;:';    // Zeichen für Ausgangsdaten
   dest   = 'ABCDEFGHIJKLM';    // Zeichen für transformierten String
begin
   Caption := TransformString('56456|444:', source, dest);

Zum Rückverwandeln muss einfach source und dest vertauscht werden.