Caeser Verschlüsselung

[Delphi.Narium]

Delphi-Quellcode:

function TCaeser.GetText : string;
var
i : integer;
begin
  for i := 1 to length(text) do begin
    // Diese Zuweisung ist falsch. Text wir damit durch das erste veränderte Zeichen überschrieben.
    text := chr(ord(text[i]) + key);
  end;
  result := text;
end;

Delphi-Quellcode:

function TCaeser.GetText : string;
var
i : integer;
begin
  for i := 1 to length(text) do begin
    // eventuell so
    text[i] := chr(ord(text[i]) + key);
  end;
  result := text;
end;

Delphi-Quellcode:

function TCaeser.GetText : string;
var
i : integer;
begin
  Result := '';
  for i := 1 to length(text) do begin
    Result := Result + chr(ord(text[i]) + key);
  end;
end;