Dvojrozmerné pole – Pascal – Fórum – Programujte.com

nazdar...dúfam, že mi pomôžete...potrebujem zadeklarovať dvojrozmerné pole...ale také, aby malo mnou určený počet riadkov a stĺpcov...ako to mám do TP zadať?

Var Nazev:Array[od..do,od..do] of typ_promenne;
zda se

@KIIV: ale ja potrebujem, aby som potom neskôr v programe zadal počet riadkov a stĺpcov....
proste nadeklarovať pole a potom už v programe zadať počet riadkov a stĺpcov...chápeš?

hledej dynamickou alokaci...
nicmene je lepsi mit jednorozmerne a osefovat si druhej rozmer offsetem

Třeba takto:
do sekce var nadeklaruješ: nazev_pole: array of array of typ_promenne;
a pak až budeš znát ty počty (např řádků x, sloupců y) dáš
SetLength(nazev_pole,x,y);

Setlength je z Delphi, v TP se musí použít dynamické jednorozměrné pole a vyšší rozměry simulovat výpočtem, přesně jak píše KIIV. V praxi to vypadá nějak takhle:

1) Vypnutí automatické kontroly rozsahu indexů:
{$R-} nebo Options -> Compiler -> vypnout Range checking
To aby program nepadal, až začneš zapisovat zdánlivě za konec pole (ve skutečnosti bude alokováno jako větší, ale to překladač neví a hlásil by chybu).

2) Definice "šablony" pole:
type tpole=array[Od..Cokoli] of typ_dat;
Od je počáteční index, dej si jaký potřebuješ (nejjednodušší je 0). Cokoli je koncový index, ale na jeho hodnotě celkem nezáleží. Jestli budeš do pole přistupovat přes konstantní indexy (tj. takové, které vidí i překladač), dej Cokoli větší. Jestli jenom přes proměnné, může to být opravdu cokoli >=Od.

3) Deklarace proměnné:
var pole:^tpole;
Je to ukazatel na výše uvedenou šablonu.

4) Zjištění požadovaných rozměrů pole.

5) Alokace pole:
getmem(pole,sirka*vyska*sizeof(typ_dat));
Tím se pod ukazatelem Pole alokuje dynamická proměnná o dané velikosti (počítáno v bytech). Je dobré si napřed zjistit, jestli se vejde do paměti, tj. jestli požadovaná velikost není větší než Maxavail nebo 65528 B (viz help k Getmem).

6) Přístup do pole na ytý řádek a xtý sloupec:
pole^[y*sirka+x]:=hodnota;
promenna:=pole^[y*sirka+x];
Takhle by to fungovalo, kdyby byl počáteční index v yovém směru rovný 0. Pokud je 1 nebo obecně jiný (dejme tomu PocY), bude to vypadat takhle:
pole^[(y-PocY)*sirka+x]:=hodnota;
promenna:=pole^[(y-PocY)*sirka+x];
Počáteční index v xovém směru je stejný jako počáteční index šablony, takže se o něj zvlášť starat nemusíme.

7) Zrušení pole:
freemem(pole,sirka*vyska*sizeof(typ_dat));