Position im 2D-Array

[Borti]

Morgen!

Wie kann ich in einem zweidimensionalen array die Position eines Wertes ohne die beiden Indizes angeben?

Gruß,
Borti

[s.h.a.r.k]

Meines Erachtens kannst du das in Delphi nur auf diese eine Art und Weise, wie du schon gesagt hast.

Was für eine Lösung hättest du denn gerne? Man kann sicherlich für jedes Problem eine andere Art der Programmierung verwenden!

[Borti]

Ich hätte da an so was wie einen Pointer gedacht, den man auf die entsprechende Position im Array richtet.

[Kroko1999]

Zitat:

Zitat von Borti

Ich hätte da an so was wie einen Pointer gedacht, den man auf die entsprechende Position im Array richtet.

Was hindert dich daran

Delphi-Quellcode:

P := @Array[0,0];

zu nehmen und die Position entsprechend zu ändern ( zBsp: durch ausprobieren)? Wenn P: PChar kannst Du sogar den Offset addieren!

[Borti]

Wahrscheinlich liegt's daran, dass ich bisher nie mit Pointern gearbeitet habe. Daher muss ich mich hier entschuldigen.

Was mach ich, wenn ich einen Zeiger auf eine Position errichtet habe, ich aber auch noch die nächste höhere position auslesen will? Kann ich dann zum Zeiger einfach was dazu addieren?

Code:

var
  a:array[1..2] of array[1..2] of real;
  P:^real;
  Ergebnis1,Ergebnis2:real;
begin
  a[1][1]:=50.1;
  a[1][2]:=50.2;
  a[2][1]:=50.3;
  a[2][2]:=50.4;
  P:=@a[2][1];
  Ergebnis1:=P^;
  Ergenbnis2:=?????
end;

Gruß,
Pollux

[Kroko1999]

(a) Tipp: beginne die Indize bei 0, spart viel Ärger bei dynamischen Array's
(b)

Delphi-Quellcode:

type
  TMyArray= array[0..1,0..1] of real;
  PReal = ^Real;
var
  A: TMyArray;
  Pr: ^real;
  I: Integer;
begin
  A[0,0]:=50.1;
  A[0,1]:=50.2;
  A[1,0]:=50.3;
  A[1,1]:=50.4;
  Pr := @A[0,0];
  for I := 0 to 3 do
  begin
    Memo1.Lines.Add (FloatToStr(Pr^));
    Inc (Pr);
  end;

end;

(c) Wozu soll dies gut sein, der Compiler macht das mit den Array's eigentlich recht effektiv?