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