Einzelnen Beitrag anzeigen

Benutzerbild von Diamondback2007
Diamondback2007

Registriert seit: 2. Feb 2007
260 Beiträge
 
Delphi 2007 Professional
 
#1

Auf übergeordnete Schleife zugreifen

  Alt 20. Feb 2008, 19:01
hallo zusammen.

ich würde gerne von einer schleife auf eine übergeordnete zugreifen.

konkret:
Delphi-Quellcode:
for j := 0 to iniko.ReadInteger(FAktuellerRaum.Name, 'AnzahlPersonen', 0) - 1 do
    begin
      //Für alle Itemkombinationen
      for i := 0 to tmpStringlist.Count - 1 do
        begin
          //Falls eine Person + Item was sagt bzw existiert
          if iniko.ReadString(FAktuellerRaum.Name, 'PersonText' + tmpStringlist.Strings[i] + IntToStr(j), '') <> 'then
            begin
              //Dann dem Ergebnis hinzufügen
              tmpText := iniko.ReadString(FAktuellerRaum.Name, 'PersonText' + tmpStringlist.Strings[i] + IntToStr(j), '');
              Result.Add(iniko.ReadString(FAktuellerRaum.Name, 'PersonName' + IntToStr(j), 'Eine Person') + ' sagt: ' + tmpText);
              //Was muss hier hin, damit der block unten nicht ausgeführt wird?Weder break; noch continue; brigen den gewünschten erfolg
            end;
        end;
      //Falls Person ohne Item etwas sagt
      if iniko.ReadString(FAktuellerRaum.Name, 'PersonText' + IntToStr(j), '') <> 'then
        begin
          //Dann dem Ergebnis hinzufügen
          tmpText := iniko.ReadString(FAktuellerRaum.Name, 'PersonText' + IntToStr(j), '');
          Result.Add(iniko.ReadString(FAktuellerRaum.Name, 'PersonName' + IntToStr(j), 'Eine Person') + ' sagt: ' + tmpText);
        end;
    end;
Ja, die frage steht ja schon im code drinne. ich möchte halt, dass sobald etwas ausgelsen wurde der untere teil nicht ausgeführt wird. deshalb bräuchte ich ein "Continue" für die schleife obendrüber...

eine möglichkeit wäre eine booleanvariable aber gibt es eine bessere lösung?
vielleicht kann ja jemand helfen.

gruß

EDIT: Sorry für sie seltsame formatierung, kann ich nichts für...
Fabian E.
  Mit Zitat antworten Zitat