Dynamisk Array

dynamisk arrays er ikke lige muligt i Delphi 3 .. Men der findes et hack .. Det vil jeg gerne vise og en lille times tid .. Har lidt travlt pt.

Jens B

Kan du ikke bare bruge en TList i stedet for.

Den har en liste at Pointer, som du kan caste til Integer

MyInt := Integer(MyList[Cnt])

MyList.Add(Pointer(MyInt));

>> martinlind:

TList er absolut en mulighed - Det må også fungere med records i stedet for integer (det er faktisk det jeg skal bruge).

Jeg har desuden prøvet variant og sætte den til en array, men den tager ikke array of records.

Jeg ser lige Jens B´s hack hvis han kan finde det.

Du kan IKKE bruge delphi til openarrays i version 3, du kan lave noget windows MEM allokering, men en TList med Record's en klart det nemeste.

/Martin

Selvfølgelig kan man lave dynamiske arrays i D3 :

type
  THest = Integer;
  THesteArray = array[0..0] of THest;
  pHesteArray = ^THesteArray;

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  s : String;
  HesteArray : pHesteArray;
begin
  GetMem(HesteArray, 10 * Sizeof(THest));
  for i := 0 to  9 do
    THest(HesteArray^[i]) := I;
  s := '';

  for i := 0 to  9 do
    s := s + IntToStr(THest(HesteArray^[i])) + #32 + ',';
  ShowMessage(s);
  FreeMem(HesteArray);
end;


Jens B

JB >> Som du selvfølge bemærkede skrev jeg "OpenArrays" som er noget lidt andet, jeg mente at D3 ikke supporter dette, hvilket også er tilfældet, og mht. dit eks. så har du et problem når du gerne vil udvide dit array, så hvis du skal lave det manuelt, skal du bruge windows allokereing rutiner, for de kan udvide et allokeret område uden at slette indholdet, SÅ det må nok siges at være meget nemere med en TList, du slipper for en masse "house-keeping"

/Martin

jo jo sådan er det også med SetLength i D4+

Jesn B

Ja, men IKKE med GetMem()

Mit Heste hack er ligeså godt/dårligt som SetLength og Dynamiske Arrays i D4+

Jens B

Jeg har ikke erfaring med andet end OpenArrays og SetLength i D6, og der virker det fint, og når du udvider ( den husker indholdet )

OKI det er også noget nyt for d6 !

Jens B

Det kan man da bare kode til d3


Jens B

Ja da, man kan kode alt, men det er sku da nemere at bruge en TList

jammen så står der je ikke hest !

Og så bruger han ikke mit gamle hack !

:-)

Jens B

Ok, begge dele fungerer fint, så egentlig burde i jo have haft 15 point hver.