string durchsuchen und tipps zu while + for-schleifen

[Matze]

Dann mach es, dafür ist die While-Schleife schließlich da.

[DeddyH]

Kommt aber im Endeffekt auf dasselbe raus ;)

[edit] Trotzdem mal nen Beispiel für continue:

Delphi-Quellcode:

for i := 0 to 10 do
  begin
    if Odd(i) then
      continue;
    ShowMessage(IntToStr(i) + ' ist eine gerade Zahl.');
  end;

[/edit]

[mkinzler]

Da wäre aber not eleganter

[DeddyH]

Darum ging es aber nicht, ich hab mir doch nur schnell ein Beispiel aus den Fingern gesogen.

[mkinzler]

Die meisten ( fast alle) continues kann man umgehen

[DeddyH]

Dasselbe gilt auch für break und exit, aber das war nicht das Thema.

[edit] Ich habe mir das noch einmal durchgelesen:

Zitat:

Zitat von delphi-n

aber wie mache ich das, wenn ich wie bei "while" eine "solange"-schleife einbauen will?



Also wenn er "solange" findet (soll so ne art mini-programmier-sprache werden: solange xxx tue ...*solange),
soll er prüfen, ob das was dahinter steht wahr ist (klar) und dann weiter machen und wieder zurückspringen (alles soweit klar).

wenn aber es nicht wahr ist, muss er ja zum nächsten *solange gehen, ohne die for schleife neu zu beginnen, da das darin dann ja nicht ausgeführt werden soll.

Ich dachte erst daran, das "i:=i+1;" hinter die solange-abfrage zu setzten und zu suchen, also den
"else if StringEnthalten('xxx', RichEdit1.Lines[i]) then xxx"-Block nicht zu verlassen.

Aber i:=i+1; geht bei for ja nicht...

und muss nachträglich zugeben, dass ich es nicht verstanden habe. Genau genommen verstehe ich es immer noch nicht :lol:. Soll die Schleife verlassen werden, wenn eine oder mehrere Bedingungen nicht mehr zutrifft/zutreffen? :gruebel: [/edit]

[delphi-n]

es soll sozusagen eine while-schleife ("solange") aus dem richedit ausgelesen werden.


P.S. diese zeile (neu) ruft den fehler "listenindex überschreitet das maximum" hervor:

Delphi-Quellcode:

  i:=strtoint(ListBox1.Items[ListBox1.Items.Count]);

[DeddyH]

OK, aber solange was?

[delphi-n]

so soll es aussehen:

solange nichtistwand (tue) <-- tue lasse ich weg, da es unnütig ist; nichtistwand kann man durch abfragen der koordianten posx und posy(variablen) erreichen

schritt

*solange

[DeddyH]

Gut, in diesem Fall ist eine while-Schleife wahrscheinlich zielführender. Das könntest Du dann so schreiben:

Delphi-Quellcode:

i := 0;
while (i < RichEdit.Lines.Count) and (AndereBedingung) do
  begin
    //irgendwas mit der aktuellen Richedit-Zeile machen
    inc(i);
  end;

Und der Fehler rührt daher, dass TStrings 0-basierend ist, d.h. die erste Zeile hat den Index 0, die letzte Zeile demzufolge Count - 1. Ein Zugriff auf Lines[Count] greift deshalb unweigerlich in einen unzulässigen Bereich.