Dyn. 2 dim. array - igen

Så vidt jeg husker kan du angive et eller andet sted om dine arrays starter med 0 eller med 1 når du ikke selv angiver arrayet. Det bør hedde noget med BASE(0) eller BASE(1), men jeg er ikke helt sikker på hvor, eller hvordan, du skal gøre det.

Prøv at se om du kan finde noget omkring "base" (el. arraybase eller noget i den stil)

kan ikke finde noget :(

/SpEeDy

He he... Endnu engang et opslag... Denne gang fra Delphi 4 Developers Guide:

Dynamic arrays are always zero-based.

Om du vil stole på bogen vil jeg lade være helt op til dig!
Mvh
Retep

Kan du ikke "bare" lavet en Property der læser dit array "som om" de started med 1. Det vil sige at dit fysiske array går fra 0 til 99 men når du tager fat i det via Property'en "ser det ud som om" det gik fra 1 til 100 ???

retep>> tak! Men øv... :)

pellelil>> Ha du en ide til hvordan det skal gøres ??

/SpEeDy

pellelil>> Du skal nok få nogle points :)

/SpEeDy

For nemhedens skyld bruger vi et std. array:

<SNIP>
type
  TNullBasedArray = Array[0..99] of String;

  TWhatever = Class
  private
    FArray : TNullBasedArray;   
    Function  GetArray(iIdx : Integer) : String;
    Procedure SetArray(iIdx : Integer; szValue : String);
  public
    Constructor Create;
    Destructor  Destroy;
    Property ArrayValue[iIdx : Integer] : String read GetArray write SetArray;
  End;
</SNIP>

Vi "springer over hvor der er hul i hegnet" og beskriver således kun indholdet af GetArray/SetArray:

<SNIP>
Function  TWhatever.GetArray(iIdx : Integer) : String;
begin
  if iIdx < 1 then iIdx := 1;      // "God vane"
  if iIdx > 100 then iIdx := 100; 
  Result := FArray[iIdx-1];
end;

Procedure TWhatever.SetArray(iIdx : Integer; szValue : String);
begin
  if iIdx < 1 then iIdx := 1;      // "God vane"
  if iIdx > 100 then iIdx := 100; 
  FArray[iIdx+1] := szValue;
end;
</SNIP>

Når du skal "bruge data" så glemmer du alt om FArray og læser/sætter alt gennem din property.

<SNIP>
var
  Whatever : TWhatever;
  szTest  : String;
begin
  Whatever := TWhatever.Create;
  Whatever.ArrayValue[35] := 'Test':
  szTest := Whatever.ArrayValue[35];
  Whatever.Free;
</SNIP>

Linien "FArray[iIdx+1]..." i SetArray skulle naturligvis være "-1" i stedet for "+1"

pellelil>> "Vielen dank", "thank you", "tak skal du ha".

Se : http://www.eksperten.dk/spm.asp?id=20502

/SpEeDy