string von rechts nach links auslesen

[sakura]

Zwei Varianten, welche beide das gleiche Ergebnis liefern. Version 1 ist einfacher zu verstehen, Version 2 ist dafür schneller

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  Input, Output: String;
begin
  Input := Edit1.Text;
  Output := '';
  for I := Length(Input) downto 1 do
    Output := Output + Input[I];
  Edit2.Text := Output;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  I, J: Integer;
  Input, Output: String;
begin
  Input := Edit1.Text;
  J := 1;
  SetLength(Output, Length(Input));
  for I := Length(Input) downto 1 do
  begin
    Output[J] := Input[I];
    Inc(J);
  end;
  Edit2.Text := Output;
end;

......