home *** CD-ROM | disk | FTP | other *** search
- Delphi
- T=Delphi Project
- program ^\;
-
- uses
- forms;
-
- {$R *.RES}
-
- begin
- Application.Initialize;
- Application.Title := '';
- Application.CreateForm(TMyForm, MyForm);
- Application.Run;
- end.
- T=Delphi Project (simple)
- program ^\;
-
- uses
- ;
-
- {$R *.RES}
- begin
-
- end.
- T=Delphi Unit
- unit ^\;
-
- interface
-
- uses
- windows,
- messages;
-
- type
- TMyForm = class( TForm )
-
-
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
-
- implementation
-
- {$R *.DFM}
-
-
- end.
- T=array[var]
- array[0..^\] of ;
- T=array[const]
- array[0..^\] of = ();
- T=case statement
- case ^\ of
- : ;
- : ;
- end;
- T=case statement (else)
- case ^\ of
- : ;
- : ;
- else ;
- end;
- T=class declaration (full)
- T^\ = class(T)
- private
-
- protected
-
- public
-
- published
-
- end;
- T=class declaration (short)
- T^\ = class(T)
-
- end;
- T=class declaration (with overrides)
- T^\ = class(T)
- private
-
- protected
-
- public
- constructor Create; override;
- destructor Destroy; override;
- published
-
- end;
- T=for (simple)
- for ^\ := to do ;
- T=for statement
- for ^\ := to do
- begin
-
- end;
- T=function declaration
- function ^\(): ;
- begin
-
- end;
- T=procedure declaration
- procedure ^\();
- begin
-
- end;
- T=if (simple)
- if ^\ then ;
- T=if statement
- if ^\ then
- begin
-
- end;
- T=if_else (simple)
- if ^\ then
-
- else ;
- T=if_else
- if ^\ then
- begin
-
- end
- else
- begin
-
- end;
- T=try_except
- try
- ^\
- except
-
- end;
- T=try_finally
- try
- ^\
- finally
-
- end;
- T=while (simple)
- while ^\ do ;
- T=while statement
- while ^\ do
- begin
- end;
- T=with (simple)
- with ^\ do ;
- T=with statement
- with ^\ do
- begin
-
- end;
- T=Separator {-----}
- {-------------------------------------------------------------------}
- T=Separator (*---*)
- (*-----------------------------------------------------------------*)