Discussion :

[looping]

Bonjour ,

Je voudrais savoir à quel endroit dans la structure d'une fiche on peut faire une déclaration de type.

Par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
type
**// Declare a customer record
**TCustomer = Record
****firstName : string[20];
****lastName**: string[20];
****address1**: string[100];
****address2**: string[100];
****address3**: string[100];
****city******: string[20];
****postCode**: string[8];
**end;

Est ce que l'on peut le faire dans une procédure juste avant la déclaration des variables ?

Merci

[tourlourou]

Je pense ! Lazarus dit oui :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
function test: integer;
type
  TMyRec = record
    a,b: integer;
  end;
var
  MyRec: TMyRec;
begin
  MyRec.a:=-1;
  MyRec.b:=Result*MyRec.a;
  result := MyRec.b;
end;

On peut aussi y déclarer des constantes.

Maintenant, avoir besoin d'un type exclusivement dans une fonction, n'est-ce pas éventuellement signe qu'elle est trop longue ?

[Andnotor]

On peut faire des déclarations à-peu-près n'importe où dans le code. Depuis D2009 on peut même les imbriquer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
type
  TRec1 = record
  type
    TRec2 = record
    end;
 
  public
    Rec :TRec2;
  end;

[looping]

bonjour,

Tout fonctionne bien

merci à tous pour votre aide

cordialement