Zahlenfolge umformen?

[bberger1234]

Hallo.
Bin neu hier und benötige dringend Hilfe in Delphi (verwende Borland Delphi 2005).
Bin leider ein völliger Anfänger in diesem Gebiet (aber unser Lehrer verlangt das halt)
Und zwar möchte ich gerne wissen wie man eine Zahlenfolge umformt, ohne die Reihenfolge zu verändern?
Also zum beispiel 15524 in 55241, 52415, 24155, 41552 umformen.
Alle Umformungen müssen sich "gemerkt" und miteinander verglichen werden.
Wäre für Hilfe echt sehr sehr dankbar.

[chrisw]

Also, der Algo sollte in etwa so aussehen

zahl = "die umzudrehende Zahl"
zähler = 1;
ergebnis = leer; ("");
so oft wie Zahl lang ist mache folgendes:
nehme von der Zahl die Stelle von zähler und schreibe sie in ergebnis an die 1. Stelle.
erhöhe den Zähler um 1;
ende der schleife.
schreibe ergebnis und vergleiche


Ich denke, jetzt dürfte es aber leicht sein.


Chris

[b1zZ]

Hallo und Willkommen in der DP.

Deinen Beispiel Zahlen zufolge wird nur die 1te Zahl nach hinten gestellt.
Das kannst du z.B. mithilfe von copy zusammenbasteln (musst es aber vorher in einen String gewandelt werden).
Die Ergebnisse kannst du dann entweder in einer TStringList oder in einem Array merken. Diese kannst du dann anhand einer For-Schleife ganz leicht miteinander vergleichen.
Nun hast du nicht geschrieben wie weit ihr bzw. du mit Delphi seid, aber ich geh mal davon aus du bist kompletter Anfänger, deswegen würd ich dir DSDT.info empfehlen.

Lies dir es durch und wenn du dann immernoch nicht weiterkommst, poste deinen Fortschritt und wo dein Problem liegt, dann wird dir hier sicher geholfen.

[Nikolas]

Vielleicht sollte man noch mit einem mod dafür Sorgen, dass man nicht über das Ende des Strings rausläuft, sonst wird man für zähler<>0 zu Beginn keinen Spaß haben.

[bberger1234]

Danke erstmal für eure Hilfen. Leider kann ich damit nicht viel anfangen. Kann vielleciht jemand etwas konkreter werden und mir sagen wie das dann im Delphi-Quelltext lauten muss? Bin wirklich absolute Anfängerin.

[Klaus01]

Hallo,

ein kleiner Ansatz:

Im Edit1.Text steht die Zahlenfolge.
Die Schritte werden im Memo dokumentiert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:Byte;
  DummyChar: char;
  DummyString:String;
begin
  for i:=1 to length(edit1.Text) do
    begin
      DummyString:='';
      Memo1.Lines.add(Edit1.Text);
      DummyChar:=Edit1.text[1];
      for j:= 2 to length(Edit1.Text) do
        DummyString:=DummyString+Edit1.text[j];
      DummyString:=DummyString+dummyChar;
      Edit1.Text:=DummyString;
    end;
end;

Grüße
Klaus

[bberger1234]

Danke für deine Hilfe, funktioniert aber leider nicht. Die Memo1 bleibt bei mir leer.

[Klaus01]

Hast Du ein Editfeld auf Deiner Form?
Hast Du ein Memofeld auf Deiner Form?

Grüße
Klaus

[bberger1234]

Ja. Habe eine Editbox1 und eine Memo1 auf dem Formular. und natürlich nen Button.

[Klaus01]

Auch einen Button?

Zeige doch mal Deinen Code.

Grüße
Klaus