"Tablice dynamiczne" w Pascalu

0

Cześć. No męcze się i męcze i nic nie mogę wymęczyć. Jak zrobić coś takiego jak tablica dynamiczna w Pascalu?
Oczywiście wiem, że to będzie na wskaźnikach, ale jak?
Już próbowałem coś takiego:

type
 PKlient = ^array of TKlient;
 TKlient = record
  {definicje pól}
end;

var
 Klient: PKlient;

To był chyba wg mnie mój najlepszy pomysł, ale i tak nieskuteczny.
I jeszcze jedno pytanie... Czy lista to taka tablica dynamiczna? Jeśli nie, to jak zrobić listę prostą?

0

albo:

var a:array of costam;
begin
setlength(a,ilosc_elementow);
end;

albo jak chciales ze wskaznikiem:

type ttab=array[0..0] of costam;
var a:^ttab;
begin
getmem(a,ilosc_elementow*sizeof(costam));
// ...
freemem(a);
end;

// W pascalu... po pierwsze {$r-}, po drugie freemem(wskaznik,rozmiar), po trzecie pascal nie ma setlength, bo nie ma dynamicznych tablic, takich jak ma delphi. [mf]

0
type
 TKlient = record
   {definicje pól}
 end;
 TAKlient = array [0..65520 div sizeof(TKlient)] of TKlient;
 PAKlient = ^TAKlient;

var
 Klient: PAKlient;

begin
  GetMem(Klient,ILOSC_POL*sizeof(TKlient));

  Klient^[1].pole := costam('whatever');
{........}

  FreeMem(Klient,ILOSC_POL*sizeof(TKlient));
end.

1 użytkowników online, w tym zalogowanych: 0, gości: 1