Buchstaben zu Zeichen

[marabu]

Sali Blumi,

vielleicht hilft dir das?

Delphi-Quellcode:

function Translate(s: string; sFrom, sTo: string): string;
var
  i, j: integer;
begin
  Result := s;
  i := 1;
  while i <= Length(s) do begin
    j := Pos(s[i], sFrom);
    if j > 0 then
      if j > Length(sTo) then Delete(s, i, 1)
      else begin
        Result[i] := sTo[j];
        Inc(i);
      end
    else Inc(i);
  end;
end;

begin
  Edit2.Text := Translate(Edit2.Text, 'A12', '5V$');
end;

Grüße vom marabu