EOutOfMemory, programm bricht bei einfacher schleife ab !?

[shareholder]

mein code

Delphi-Quellcode:

  s := 'aaa'; // startstring
  pos := 0; // letzter buchstabe

  for i := 1 to High(ABC) do begin
    for j := 1 to High(ABC) do begin
      // letzten (oder pos) buchstaben ersetzen
      s[(Length(s)-pos)] := ABC[j];
      // neuen string in memo eintragen
      Memo1.Lines.Add(s);
      // wenn letzter buchstabe höchster string in array index erhöhen
      if s[Length(s)] = ABC[High(ABC)] then inc(pos);
    end;
  end;

[edit=sakura] Das Bild ist im Anhang - Du musst es nicht extra posten :evil: Mfg, sakura[/edit]

[Schubi]

Also gut, hab das ganze mal nachgebaut. Der Fehler kommt bei mir auch...Jetzt lass mich mal probieren :mrgreen:

[Schubi]

Langweiliger Fehler... *gähn*

Hier der kottigierte Code:

Delphi-Quellcode:

  for i := 1 to Length(s) do begin
    for j := 1 to High(ABC) do begin
      // letzten (oder pos) buchstaben ersetzen
      s[(Length(s)-pos)] := ABC[j];
      // neuen string in memo eintragen
      Memo1.Lines.Add(s);
      Application.ProcessMessages;
      // wenn letzter buchstabe höchster string in array index erhöhen
      if s[Length(s)-pos] = ABC[High(ABC)] then inc(pos);
    end;
  end;

Erklärung:
Punkt 1 Length(s):
Nicht die länge vom ABC ist ausschlaggebend sondern die Länge vom String "s". hier also 3

Punkt 2 application.ProcessMessages:
Processmessages damit das memo während der Schlefe aktualisiert wird, muss aber nicht sein

Punkt 3 if s[Length(s)-pos]:
Ohne das "-pos" prüfst du ja immer nur den letzten Buchstaben. Deswegen war auch nach dem ersten durchgang Schluss!

Viel Spass damit, was du auch imemr damit vor hast :gruebel: :mrgreen: :roll:

[shareholder]

Zitat:

Zitat von Schubi

Viel Spass damit, was du auch imemr damit vor hast :gruebel: :mrgreen: :roll:

danke ! wollte eigentlich alle möglichen buchstaben kombinationen (ermittelt aus einem array) in ein memo schreiben. :) klappt nur noch net. :gruebel: