Chiffre-Problem

[Sir Rufo]

so geht das aber nicht, weil nicht einfach nur einzelne Chars getauscht werden sollen, sondern auch strings

[Luckie]

Also wenn ich das richtig verstehe:

Zitat:

Wechsel in beiden Richtungen:
t-d
b-p
k-g
t-d
s-z
w - v
i - y

Sollen nur einzelne Zeichen getauscht werden.

Delphi-Quellcode:

function ChiffreString(Klartext: AnsiString): AnsiString;
var
  s: AnsiString;
  i: Integer;
  OrdinalValue: Integer;
begin
  s := KlarText;
  for i := 1 to length(s) do
  begin
    OrdinalValue := Ord(s[i]);
    case OrdinalValue of
      116: s[i] := 'd';
      100: s[i] := 't';
    end;
  end;
  Result := s;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(ChiffreString('dauernt'));
end;

Liefert "tauernd" wie gefordert.

[Sir Rufo]

eingabe := StringReplace(eingabe ,'ę','yn',[rfReplaceAll]);

[Luckie]

Also dafür, dass sein Code der Beschreibung widerspricht, kann ich nichts.

[Sir Rufo]

Zitat von Luckie:

Also dafür, dass sein Code der Beschreibung widerspricht, kann ich nichts.

das hat auch niemand gesagt
aber der Ansatz war auch mein erster Gedanke

[Marcel Hans]

Danke für eure Hilfe. Mit letzem Fall (mit yn) gibt es das Problem mit dem Wechsel nicht.
Ich hab das Problem mit der Schleife gelöst:

Code:

var eingabe:string;
index:integer;

begin
eingabe:= memonimm.lines.GetText;
for index := 1 to Length(eingabe) do
begin
    if eingabe[index] = 'd' then eingabe[index]:= 't'
    else if eingabe[index] = 't' then eingabe[index] := 'd';

end;

[himitsu]

Bei den vielen Ersetzungen kannst du, statt den vielen IF-THEN-ELSE, auch ein CASE verwenden.