Allgemeine Delphisyntax

[Marphy]

Hallo zusammen,
mir ist bisher noch kein Delphibuch bzw. kein Tutorial über den Weg gelaufen, dass eine allgemein gültige, anerkannte und übersichtliche Delphisyntax verwendet und diese einem nahe bringt.
Nun, ich will aber eine solche verwenden... Und hier sollt ihr mir weiterhelfen.

Wer also denkt, er verwende eine Syntax, die obig genannte Bedingungen erfüllt, bitte ich hier zu posten...

Danke für euer Verständnis für eine so exotische Frage - und natürlich eure Antworten.

Gruß, Marco

P.S.: Ich mach mal den Anfang...

Delphi-Quellcode:

unit SyntaxExample;

// USES
uses
  Windows, SysUtils; // ...

// PROTOTYPEN
procedure MyPublicProc();

type
  // TYPENDEKLARATION (RECORDS)
  TMyRecord = record
    Membr1,          // Member-Reihenfolge:
    Membr2: Integer; //   siehe "Globale Variablendeklarartion"
    Membr3: String;
  end;

  // TYPENDEKLARATION (KLASSEN)
  TMyClass = class
    private
      FMyProp: Integer;
      FSomewhat: Cardinal;

      procedure MyProcedure(AParam1, AParam2: String; AInt: Integer);
      function MyFunc(): Integer;

      function GetMyProp(): Integer;
      procedure SetMyProp(AValue: Integer);
    protected
      // ...
    public
      property MyProp: Integer read GetMyProp write SetMyProp; 
      property Somewhat: Cardinal read FSomewhat write FSomewhat; 
    published
      // ...
  end;

// GLOBALE VARIABLENDEKLARATION
var
  Obj1: TBitmap;     // 1. Objekte
  Obj2: TStringList;
  hHandle: THandle;  // 2. Handles
  pPtr: Pointer;     // 3. Pointer
  Int: Integer;      // 4. Ganzzahl-Variablen
  Dbl: Double;       // 5. Gleitpunkt-Variablen
  Str: String;       // 6. Strings

implementation

// IMPLEMENTATION

procedure MyPublicProc();
// Private Variablendeklaration
var
  Obj: TBitmap;       // 1. Objekte
  hHandle2: THandle;  // 2. Handles
  pPtr: Pointer;      // 3. Pointer
  Int2: Integer;      // 4. Ganzzahl-Variablen
  Dbl2: Double;       // 5. Gleitpunkt-Variablen
  Str2: String;       // 6. Strings
begin
end;

procedure MyPrivateProc();
begin
end;

// Parameter
procedure TMyClass.MyProcedure(AParam1, AParam2: String; AInt: Integer);
begin

function TMyClass.MyFunc(): Integer;
begin
  Result := 100;
end;

function TMyClass.GetMyProp(): Integer;
begin
  // ...
  Result := FMyProp;
end;

procedure TMyClass.SetMyProp(AValue: Integer);
  // ...
  FMyProp := AValue;
end;