Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Mehrere Abbruchbedingungen in Repeat-Until


-delphin- - So 18.09.05 17:59
Titel: Mehrere Abbruchbedingungen in Repeat-Until
Wie mache ich bei einer Repeat-Until-Schleife mehrere Abbruchbedingungen?
Mit

Delphi-Quelltext
1:
2:
3:
4:
5:
  until
  begin
    StringGrid1.Cells[j,k]='Gespielt!';
    StringGrid1.Cells[k,j]='Gespielt!';
  end;


geht des nich oO


Moderiert von user profile iconGausi: Topic aus Algorithmen, Optimierung und Assembler verschoben am So 18.09.2005 um 19:02


Gausi - So 18.09.05 18:01


Delphi-Quelltext
1:
until (StringGrid1.Cells[j,k]='Gespielt!'AND (StringGrid1.Cells[k,j]='Gespielt!);                    


PLuS - So 18.09.05 18:03

Wenn ich das richtig verstehe, geht dat so:


Delphi-Quelltext
1:
2:
3:
4:
repeat
 //dein Code

until (StringGrid1.Cells[j,k]='Gespielt!'AND (StringGrid1.Cells[k,j]='Gespielt!');


MfG
PLuS


-delphin- - So 18.09.05 18:12

danke, das geht erstmal..
jetz will ich die cols und die rows in einem StringGrid zählen lassen, aber mit Cols.Count bzw. Rows.Count geht des nicht.


Keldorn - So 18.09.05 18:14

Hallo


Delphi-Quelltext
1:
stringgrid.colcount und stringgrid.rowcount                    


das mußt du doch schon kennen, oder wie durchläufst du die einzelnen zellen des Grids?

Mfg Frank


-delphin- - So 18.09.05 19:32

mit cells..


Keldorn - So 18.09.05 19:39

das ist schon klar, aber mit grid.cells[x,y] hast du x und y-werte und die durchläufst du dann doch in irgendeiner Schleifenform durchlaufen? wie sieht denn da dein restlicher code aus, wenn du colcount und rowcount nicht kennst?


-delphin- - So 18.09.05 19:51

naya ich kenn es schon, aber mich hat was verwirrt, weil des nich gefruchtet hat.. aber was anderes noch... gibt es einen befehl, der die letzte zeile in einem Memo anspricht? Ich habe nämlich zwei Variablen x und y, die den wert von 1-18 haben können (Zufall) und ich will neue Zufallszahlen, falls in der letzten Zeile des Memos eben jene Zahlen vorhanden sind


Keldorn - So 18.09.05 20:02

neue frage, neuer thread

Delphi-Quelltext
1:
s:=memo.lines[memo.lines.count-1]