Array???

Jeg svarer måske ikke før lørdag aften eller søndag.

Du skal nok være lidt mere præsis. Hvad er det du ikke kan finde ud af ?

procedure Example;
var
  a : Array [0 .. 100] of integer;
  i : Integer;
begin
  for i:= 0 to 100 do
    a[i] := i;
  //her efter har du tallene fra 0 til 100 liggende i dit array
end;

Jens B

Som supplement til borrisholts udmærkede eksempel kan nævnes:

Når du f.eks. vil bruge indholdet i array element 25 skriver du:

var := arraynavn[25];

f.eks. Showmessage(arraynavn[25]); vil vise indholdet af element 25 på skærmen. I borrisholts eksempel er det et integer array og derfor skal du bruge:

Showmessage(inttostr(arraynavn[25]));

eller du kan sætte en anden var, f.eks

var
  navn  : string;
  navne : array[1..10] of strings;

begin
  // fyld navne ind i arrayet:
  navne[1] := \'PER\'
  navne[2] := \'LISE\';
  // o.s.v. og derefter kan du så bruge en af dem i navn:
  navn := navne[2];
end;

så vil navn indehlde LISE.

Så enkelt er det !!

Der er også mulighed for at bruge openarrays i D5

VAR
  MyArray : array of Byte;

begin
  SetLength(Myarray,250); // Opretter 250 elementer i array\'et
  // Så er det bare at bruge det som tidlige beskrevet
end;

sjensen  >> haløjsa, jeg troede du havde forladt os ?

Jens B

Hej Jens,

Næh nej, jeg har bare lidt travlt for øjeblikket.

Men jeg kommer stærkt igen på et tidspunkt