Array prüfen

[qb-tim]

Hi,

ich habe in meinem Programm ein Array[1..200, 1..200], der aber nicht für jeden Wert Array[x, y] aktiviert (mit "create") wurde.
Wie kann ich denn prüfen, ob z.Bsp Array[50, 100] vorhanden ist, oder nicht.

Beispiel:

Delphi-Quellcode:

for y := 1 to 100 do
  for x := 1 to 100 do
  begin
    MyArray[x, y] := TMyObject.Create;
    MyArray[x, y].MyVar := x * y;
  end;
for y := 150 to 200 do
  for x := 150 to 200 do
  begin
    MyArray[x, y] := TMyObject.Create;
    MyArray[x, y].MyVar := x * y;
  end;

Wie kann ich prüfen lassen ob MyArray[x, y] vorhanden ist, oder nicht?

[DeddyH]

if Assigned(MyArray[x,y]) and (MyArray[x,y] is TMyObject) then

[SirThornberry]

hast du das Array vorher mit nil initialisiert?
Am besten du setzt das Array zu begin überall auf nil um später prüfen zu können ob etwas zugewiesen wurde
ZeroMemory(@MyArray, SizeOf(MyArray));

[qb-tim]

Zitat von DeddyH:

if Assigned(MyArray[x,y]) and (MyArray[x,y] is TMyObject) then

Wunderbar... Danke

Ich habe es so benutzt:

Delphi-Quellcode:

if Assigned(MyArray[x,y]) = False then
begin
  ShowMessage('Error 404'); // z.Bsp
  exit;
end;

[Christian Seehase]

Moin Tim,

Zitat von qb-tim:

Ich habe es so benutzt:

Delphi-Quellcode:

if Assigned(MyArray[x,y]) = False then
begin
  ShowMessage('Error 404'); // z.Bsp
  exit;
end;

Dann schlage ich mal vor, dass Du es etwas anders machst:

Delphi-Quellcode:

if not Assigned(MyArray[x,y]) then
begin
  ShowMessage('Error 404'); // z.Bsp
  exit;
end;

Boolesche Werte sollte man nie auf Gleichheit prüfen, ausserdem ist es so auch lesbarer.

[SirThornberry]

@christian. Eine prüfung auf False sollte fehlerfrei sein aber "schöner" ist es auf jeden fall mit not