string von rechts nach links auslesen

[Praktikant]

Normalerweise wird ja ein string von links nach rechts addressiert string[position x].
Ich muss jedoch ander herum die einzelnen zeichen abfragen, wie mache ich das?

Ist übrigens immer ein 16 stelliger String. Gibts da eine Delphi Funktion oder muss man da was selber basteln? Wenn ja wie

[sakura]

Ein wenig Mathe (1. Klasse-Level) und schon geht es los:

Delphi-Quellcode:

var
  I: Integer;
begin
  // vorwärts
  for I := 1 to Length(myString) do
    ShowMessage(myString[I]);
  // rückwärts I
  for I := 1 to Length(myString) do
    ShowMessage(myString[Length(myString) - I + 1]);
  // rückwärts II
  for I := Length(myString) downto 1 do
    ShowMessage(myString[I]);
end;

......

[Tom]

Ich sage mal: "For ... Downto ... do ...

Tschuldigung: Variante Rückwärts II habe ich überlesen.

[sakura]

Zitat von Tom:

Ich sage mal: "For ... Downto ... do ...

Tschuldigung: Variante Rückwärts II habe ich überlesen.

Kein Problem - das kam auch erst eine Sekunde später dazu (Siehe Edit=2)

......

[Praktikant]

tjo, genau sowas.

Von einem Semster no. 5 Studenten nicht so viel erwarten...

[sakura]

Zitat von Praktikant:

Von einem Semster no. 5 Studenten nicht so viel erwarten...

Okay Nur irgendwie lag mir das gerade so unter den Fingern. Gut, daß Du Humor hast

......

[Praktikant]

noch ne frage:

Und zwar will ich einen ganzen string umgekehrt in ein edit feld schreiben. Doch dreht er es mir nicht um.
Habe folgenden Ansatz:

Delphi-Quellcode:

for I := Length(string) downto 1 do   
  vonrechts:=vonrechts+string[I];     //umdrehen und in 'vonrechts' schreiben
  edit1.text:=vonrechts;

Aber es wird nicht gedreht

[Tom]

Kompletter Originalsource wäre hilfreich. Oder heißt Deine Variable String?

[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;

......

[sakura]

Und bevor ich es vergesse, da gab es doch noch einen dritten Button auf meinem Form:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  Edit2.Text := ReverseString(Edit1.Text);
end;

......