Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi 2-dimensionales Array füllen (https://www.delphipraxis.net/25703-2-dimensionales-array-fuellen.html)

Spurius 10. Jul 2004 19:07


2-dimensionales Array füllen
 
Hallo,
ich male mit Canvas ein kariertes Feld auf ein Form.
Delphi-Quellcode:
var
  Form1: TForm1;
  test: array[1..20,1..20] of integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,b,i,j: integer;
begin
 for a := 1 to 20 do begin
  for b := 1 to 20 do begin
   canvas.Rectangle(a*20,b*20,a*20+20,b*20+20);
  end;
 end;
end;

end.
Wie kann ich jetzt dem Array für jedes Kästchen einen Wert zuweisen?
Ich versteh das Prinzip mit dem mehrdimensionalen Array noch nicht so ganz.
Also z.B. Test[5,10], wie verwende ich das? sind da jetzt 2 Werte drin gespeichert oder wie ist das?
Hoffe ihr könnt mir das erklären
Gruß
Spurius

StefanDP 10. Jul 2004 19:22

Re: 2-dimensionales Array füllen
 
...[Spalte,Zeile]

test[1,1] wär das linke obere kästchen
test[2,1] wär in der 2ten spalte das kästchen in der ersten zeile
usw.

z.b. kannst du sagen
test[20,1] := 3;
Dann hat das obere rechte Kästchen den wert 3


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:30 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz