probleme structure Record

**vitch8** · 26/03/2009, 10h26

Bonjour,
Voici la structure que j'ai déclaré

Code :

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

1
2
3
4
5
6
7
8
9
10
11
TStringConcatenator = record
  strict private
    FResult: string;
    FStart, FDelimiter, FEnde: string;
  public
    procedure Init(const AStart, ADelimiter, AEnde: string);
    property Result: string read FResult;
    procedure BeginConcat;
    procedure EndConcat;
    procedure Add(const s: string);
  end;

Delphi me sort comme message d'erreur "end" attendu mais "procedure' trouvé.

D'où vient le problème

En attente de votre aide

**Aka Guymelef** · 26/03/2009, 10h34

Bonjour, pourriez-vous préciser la version de Delphi que vous utilisez.

**vitch8** · 26/03/2009, 10h37

Il s'agit de delphi 2005

**Yurck** · 26/03/2009, 11h09

Etes vous sur de vouloir déclarer un RECORD et non une CLASSE

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
TStringConcatenator = class
  strict private
    FResult: string;
    FStart, FDelimiter, FEnde: string;
  public
    procedure Init(const AStart, ADelimiter, AEnde: string);
    property Result: string read FResult;
    procedure BeginConcat;
    procedure EndConcat;
    procedure Add(const s: string);
  end;

Car je ne pense que l'on puisse mettre des procédures ou fonction dans un record

a+

**vitch8** · 26/03/2009, 11h16

C'est exact delphi 2005 ne supporte pas cette déclaration.

Si je le déclare en tant que class ou object et bien cela passe bien.

Encore merci pour votre aide.

Salutations