Autor Beitrag
hibbert
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1007

WinServer2003, Win XP, Linux
D6 Pers, D05
BeitragVerfasst: Do 11.03.04 20:32 
Hi,
eine gewöhnliche abfrage funktioniert ja so:
ausblenden Delphi-Quelltext
1:
2:
if meinArray[wert1,wert2]='hallo' then
mache was


Doch nun möchte ich gerne diese abfrage umdrehen und herrausfinden, wo das hallo steht.
Dann möchte ich nurnoch die beiden "punkte" wissen, wo ich diesen Wert finden kann.

thx hibbert

Moderiert von user profile iconPeter Lustig: Topic verschoben

_________________
I kunnen väl svara endast ja eller nej
Om i viljen eller nej
Christian S.
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 20451
Erhaltene Danke: 2264

Win 10
C# (VS 2019)
BeitragVerfasst: Do 11.03.04 20:37 
Wenn es nicht irgendwie sortiert ist:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
function koordinate(const text : Stringvar 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".