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;