[DELPI] : Array Dinamici

[Whitecrowsrain]

Salve a tutti,
ho un problema con un elemento di una classe, un array dinamico, in fase di assegnazione valori.

Strutture:

TInfoCoda = record
    id:integer;
    nome:string;
    formati:array of string;
    carta:array of char;
  end;
  TListaCode = class
    codePresenti:array of TInfoCoda;
  public
    constructor create(FileConfig:TFileName);
    function trovaStampante(nm:string;var ris:TInfoCoda):boolean;
  end;

Metodi:

constructor TListaCode.create(FileConfig:TFileName);
begin
  SetLength(codePresenti,0); //qui mi va in errore (Access Violation)
  ...
  //qui ci sono altre funzioni ma è già andato in errore quindi inutile postarle

end;

Qualcuno sa dirmi per quale dannata ragione non riesce a fare quella istruzione?
Grazie!

[denis76]

type PTInfoCoda= ^TInfoCoda;
function trovaStampante(nm:string; ris:PTInfoCoda):boolean;

type
TInfoCoda = record
    id:integer;
    nome:string;
    formati:array of string;
    carta:array of char;
  end;
type ATInfoCoda= array of TInfoCoda;
type PTInfoCoda= ^TInfoCoda;

type

  TListaCode = class
    codePresenti:array of ATInfoCoda;
  public
    constructor create(FileConfig:TFileName);
    function trovaStampante(nm:string; ris:PTInfoCoda):boolean;
  end;


constructor TListaCode.create(FileConfig:TFileName);
begin
  SetLength(codePresenti,0);
  ...
  
end;



function trovaStampante(nm:string; ris:PTInfoCoda):boolean;
begin
WriteLn(ris^.nome);