Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - einenbestimmten Array Wert abfragen


hibbert - Do 11.03.04 20:32
Titel: einenbestimmten Array Wert abfragen
Hi,
eine gewöhnliche abfrage funktioniert ja so:

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


Christian S. - Do 11.03.04 20:37

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 : 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.