Italian community of Lazarus and Free Pascal

program project1;

{$mode delphi}{$H+}
{$DEFINE USE_ADVANCED_RECORD_SYNTAX}

uses Classes;

type

  { TCliente }

  TCliente = record
  public
     type
       TIndirizzo = record
         Indirizzo: string[40];
         CAP: string[5];
         Citta: string[40];
         Prov: string[2];
       end;
       TTipoIndirizzo = (tiSedeOp, tiSedeLeg, tiSedeCon);
     var
       ID: integer;
       RagSociale: string[40];
       ParIva: string[13];

       SedeOperativa: TIndirizzo;
       SedeLegale: TIndirizzo;
       SedeConsegna: TIndirizzo;

     {$IFDEF USE_ADVANCED_RECORD_SYNTAX}
     procedure WriteIndirizzo(tipo: TTipoIndirizzo = tiSedeOp);
     {$ENDIF}
  end;

var Cliente: TCliente;

{ TCliente }

{$IFDEF USE_ADVANCED_RECORD_SYNTAX}
procedure TCliente.WriteIndirizzo(tipo: TTipoIndirizzo);
begin
   WriteLn(RagSociale);

   // test output
   case tipo of
      tiSedeLeg: if (SedeLegale.Indirizzo = '') and
                    (SedeLegale.CAP = '') and
                    (SedeLegale.Citta = '') and
                    (SedeLegale.Prov = '') then
                    tipo := tiSedeOp;
      tiSedeCon: if (SedeConsegna.Indirizzo = '') and
                    (SedeConsegna.CAP = '') and
                    (SedeConsegna.Citta = '') and
                    (SedeConsegna.Prov = '') then
                    tipo := tiSedeOp;
   end;

   // output
   case tipo of
      tiSedeOp: begin
                  Writeln(SedeOperativa.Indirizzo);
                  Writeln(SedeOperativa.CAP, ' - ' , SedeOperativa.Citta, ' (', SedeOperativa.Prov, ')');
      end;
      tiSedeLeg: begin
                  Writeln(SedeLegale.Indirizzo);
                  Writeln(SedeLegale.CAP, ' - ', SedeLegale.Citta, ' (', SedeLegale.Prov, ')');
      end;
      tiSedeCon:begin
                  Writeln(SedeConsegna.Indirizzo);
                  Writeln(SedeConsegna.CAP, ' - ', SedeConsegna.Citta, ' (', SedeConsegna.Prov, ')');
      end;
   end;
end;
{$ENDIF}


begin

  WriteLn('Test Advanced Record Syntax');
  Write('Advanced Record Syntax: ');
  {$IFDEF USE_ADVANCED_RECORD_SYNTAX}
  WriteLn('ON');
  {$ELSE}
  WriteLn('OFF');
  {$ENDIF}

  WriteLn('Size TCliente: ', SizeOf(Cliente));

  with Cliente do begin
     ID:= 1;
     RagSociale:='Lazarus Enterprises Inc.';
     ParIva := 'IT01234567890';

     With SedeOperativa do begin
        Indirizzo := 'Via dei mille nr. 999';
        CAP := '12345';
        Citta := 'Firenze';
        Prov := 'FI';
     end;

     With SedeConsegna do begin
        Indirizzo := 'Via dei bancali nr. 541';
        CAP := '55442';
        Citta := 'Ancona';
        Prov := 'AN';
     end;


  end;


  {$IFDEF USE_ADVANCED_RECORD_SYNTAX}
  Cliente.WriteIndirizzo(tiSedeLeg);
  {$ELSE}
  WriteLn(Cliente.RagSociale);
  Writeln(Cliente.SedeLegale.Indirizzo);
  Writeln(Cliente.SedeLegale.CAP, ' - ', Cliente.SedeLegale.Citta, ' (', Cliente.SedeLegale.Prov, ')');
  {$ENDIF}


end.

{$mode delphi}

{$DEFINE USE_ADVANCED_RECORD_SYNTAX}

TCliente = record

TIndirizzo = record

Test Advanced Record Syntax
Advanced Record Syntax: ON
Size TCliente: 332
Lazarus Enterprises Inc.
Via dei mille nr. 999
12345 - Firenze (FI)

// {$DEFINE USE_ADVANCED_RECORD_SYNTAX}  

Test Advanced Record Syntax
Advanced Record Syntax: OFF
Size TCliente: 332
Lazarus Enterprises Inc.

 -  ()

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, db, FileUtil, ZConnection, ZDataset, Forms, Controls,
  Graphics, Dialogs, DBGrids, DbCtrls, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    DBGrid1: TDBGrid;
    DBMemo1: TDBMemo;
    DBNavigator1: TDBNavigator;
    DBText1: TDBText;
    ZConnection1: TZConnection;
    ZQuery1: TZQuery;
    Q_Inserimento: TZQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    function GetLastId(): integer;
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
   LastId: integer;
begin
     LastId:=Self.GetLastId()+1;
     Self.Q_Inserimento.SQL.Text:='INSERT INTO utenti(Id, Cognome,Nome,Citta)VALUES(' + IntToStr(LastId) + ',''Cognome' + IntToStr(LastId) + ''',''Nome' + IntToStr(LastId) + ''',''Città' + IntToStr(LastId) + ''');';
     Self.Q_Inserimento.ExecSQL;
     Self.ZQuery1.Refresh;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     //svuoto la tabella
     Self.Q_Inserimento.SQL.Text:='DELETE FROM utenti;';
     Self.Q_Inserimento.ExecSQL;
     Self.ZQuery1.Refresh;
end;

function TForm1.GetLastId(): integer;
var
   ret: integer;
begin
     ret:=0;
     Self.Q_Inserimento.SQL.Text:='select Id as MaxId from utenti group by Id order by Id desc;';
     Self.Q_Inserimento.Open;
     if not Self.Q_Inserimento.EOF then
     begin
          Self.Q_Inserimento.First;
          ret:=Self.Q_Inserimento.FieldByName('MaxId').AsInteger;
     end;
     Self.Q_Inserimento.Close;
     result:=ret;
end;

end.

procedure TForm1.FormCreate(Sender: TObject);
begin
     //svuoto la tabella
     Self.Q_Inserimento.SQL.Text:='DELETE FROM utenti;';
     Self.Q_Inserimento.ExecSQL;
     Self.ZQuery1.Refresh;
end;

function TForm1.GetLastId(): integer;
var
   ret: integer;
begin
     ret:=0;
     Self.Q_Inserimento.SQL.Text:='select Id as MaxId from utenti group by Id order by Id desc;';
     Self.Q_Inserimento.Open;
     if not Self.Q_Inserimento.EOF then
     begin
          Self.Q_Inserimento.First;
          ret:=Self.Q_Inserimento.FieldByName('MaxId').AsInteger;
     end;
     Self.Q_Inserimento.Close;
     result:=ret;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   LastId: integer;
begin
     LastId:=Self.GetLastId()+1;
     Self.Q_Inserimento.SQL.Text:='INSERT INTO utenti(Id, Cognome,Nome,Citta)VALUES(' + IntToStr(LastId) + ',''Cognome' + IntToStr(LastId) + ''',''Nome' + IntToStr(LastId) + ''',''Città' + IntToStr(LastId) + ''');';
     Self.Q_Inserimento.ExecSQL;
     Self.ZQuery1.Refresh;
end;