Wenn es nicht irgendwie sortiert ist:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:
| function koordinate(const text : String; var x, y : Integer) : Boolean; var i, j : Integer; begin result := False; for i:=Low(meinArray) to High(meinArray) do for j:= Low(meinArray[i]) to High(meinArray[i]) do if meinArray[i, j] = text then begin x := i; y := j; result := true; exit; end; |
Die Funktion gibt "true" zurück, wenn gefunden wurde und speichert die Koordinate dann x und y. Wenn nichts gefunden wurde, wird "false" zurück gegeben.
//edit: Ist im Forum geschrieben, kann also noch Fehler enthalten.
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".