AGS SOFTWARE - Consulenze Informatiche


25/02/2005 : Nuove versioni del programma GESTFIN

Uso di liste di record
USO DELLE LISTE DI RECORD IN UN PROGRAMMA DELPHI ================================================ (***********************************************) ( Definizione di tipi ) (*********************************************) type // Puntatore al nodo della lista PMyRecord = ^MyRecord // Nodo della lista MyRecord = record FieldInt : Integer; FieldStr : String; FieldCur : Currency; . . . FieldBol : Boolean; end; (*********************************************) ( Definizione di variabili ) (*********************************************) // Lista di nodi MyListOfRecords : TList Nell'evento FormCreate della finestra principale : // Creazione della lista MyListOfRecords := TList.Create; Nell'evento FormDestroy della finestra principale : // Distruzione della lista MyListOfRecords.Free; (*********************************************) ( Implementazione inserimento di un record ) (*********************************************) var ARecord : PMyRecord; begin // Creazione di un nodo New(ARecord); // Assegnazione dei valori ARecord^.FieldInt := .... // Aggiunta del nodo alla lista MyListOfRecords.Add(ARecord); end; (*********************************************) ( Implementazione estrazione di un record ) (***********************************************) var ARecord : PMyRecord; i : integer; begin // Scorrimento della lista for i := 0 to MyListOfRecords.Count - 1 do begin // Estrazione del nodo ALine := MyListOfRecords.Items[i]; // Lettura dei valori del nodo ... := ALine^.FieldInt; end; end; ELENCO

Uso di liste di record

USO DELLE LISTE DI RECORD IN UN PROGRAMMA DELPHI
================================================

(************************************************)
(* Definizione di tipi                          *)
(************************************************)

type 

  // Puntatore al nodo della lista

  PMyRecord = ^MyRecord


  // Nodo della lista

  MyRecord = record

    FieldInt : Integer;
    FieldStr : String;
    FieldCur : Currency;
    .
    .
    .
    FieldBol : Boolean;

  end;

(************************************************)
(* Definizione di variabili                     *)
(************************************************)


  // Lista di nodi

  MyListOfRecords : TList



Nell'evento FormCreate della finestra principale :

  // Creazione della lista

  MyListOfRecords := TList.Create;

Nell'evento FormDestroy della finestra principale :

  // Distruzione della lista

  MyListOfRecords.Free;


(************************************************)
(* Implementazione inserimento di un record     *)
(************************************************)

var
  ARecord : PMyRecord;

begin

  // Creazione di un nodo

  New(ARecord);

  // Assegnazione dei valori

  ARecord^.FieldInt := ....

  // Aggiunta del nodo alla lista

  MyListOfRecords.Add(ARecord);

end;

(************************************************)
(* Implementazione estrazione di un record      *)
(************************************************)

var
  ARecord : PMyRecord;
  i       : integer;

begin

  // Scorrimento della lista

  for i := 0 to MyListOfRecords.Count - 1 do

    begin

      // Estrazione del nodo

      ALine := MyListOfRecords.Items[i];

      // Lettura dei valori del nodo

      ... := ALine^.FieldInt;

    end;

end;

ELENCO