[DELPI] : Array Dinamici

[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);