Record zum Teil als Konstante und Variable?

[himitsu]

VAR muß man nicht angeben, denn am Anfang einer Section (private/public/...) ist VAR der Standard

um eine Ebene zu sparen lasse ich die einrückung weg und für die Ordnung kommen meistens einzelne Gruppen in eine eigene Section

Delphi-Quellcode:

type
  TmyRecord = record
    String_1: String;
    String_2: String;
    const Boolean1 = True;
    const Boolean2 = False;
    const Boolean3 = True;
  end; 

  TmyRecord = record
  public
    const Boolean1 = True;
    const Boolean2 = False;
    Boolean3 = True;  // ABER ist auch eine CONST
  public
    String_1: String;
    String_2: String;
  end; 

  // ich mach es meistens so
  TmyRecord = record
  private const  
    Boolean1 = True;
    Boolean2 = False;
  public const  
    Boolean3 = True;
  public
    String_1: String;
    String_2: String;
  end; 

  // weil mir das zu blöd ist
  TmyRecord = record
  private
    const  
      Boolean1 = True;
      Boolean2 = False;
  public 
    const  
      Boolean3 = True;
  public
    String_1: String;
    String_2: String;
  end;