paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 01:00:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: more complete block exmaples

Browse Source 
git-svn-id: trunk@21333 -
This commit is contained in:
mattias 2009-08-19 21:05:44 +00:00
parent 01e56ae6fa
commit 5ca1c74263
4 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -165,6 +165,7 @@ components/codetools/examples/testscompleteblock/beginwithoutindent1.inc svneol=
components/codetools/examples/testscompleteblock/casecolon1.inc svneol=native#text/plain components/codetools/examples/testscompleteblock/casecolon1.inc svneol=native#text/plain
components/codetools/examples/testscompleteblock/caseelseend1.inc svneol=native#text/plain components/codetools/examples/testscompleteblock/caseelseend1.inc svneol=native#text/plain
components/codetools/examples/testscompleteblock/caseend1.inc svneol=native#text/plain components/codetools/examples/testscompleteblock/caseend1.inc svneol=native#text/plain
components/codetools/examples/testscompleteblock/class1.inc svneol=native#text/plain
components/codetools/examples/testscompleteblock/ifbegin1.inc svneol=native#text/plain components/codetools/examples/testscompleteblock/ifbegin1.inc svneol=native#text/plain
components/codetools/examples/testscompleteblock/ifbeginelse1.inc svneol=native#text/plain components/codetools/examples/testscompleteblock/ifbeginelse1.inc svneol=native#text/plain
components/codetools/examples/testscompleteblock/procedurebegin1.inc svneol=native#text/plain components/codetools/examples/testscompleteblock/procedurebegin1.inc svneol=native#text/plain

9
components/codetools/examples/testscompleteblock/class1.inc Normal file
View File

@ -0,0 +1,9 @@
{%MainUnit unit1.pas}
type
TMyClass = class
procedure Do1;
begin
end;

8
components/codetools/examples/testscompleteblock/record1.inc
View File

@ -1,8 +1,12 @@
{%MainUnit unit1.pas} {%MainUnit unit1.pas}
type type
TMyRecord = record TMyRecord1 = record
PMyRecord = ^TMyRecord; PMyRecord1 = ^TMyRecord1;
TMyRecord2 = packed record
TMyRecord3 = bitpacked record
procedure Do1; procedure Do1;
begin begin

1
components/codetools/examples/testscompleteblock/unit1.pas
View File

@ -10,6 +10,7 @@ uses
implementation implementation
{$IFDEF record} {$I record1.inc} {$ENDIF} {$IFDEF record} {$I record1.inc} {$ENDIF}
{$IFDEF class} {$I class1.inc} {$ENDIF}
{$IFDEF procedurebegin} {$I procedurebegin1.inc} {$ENDIF} {$IFDEF procedurebegin} {$I procedurebegin1.inc} {$ENDIF}
{$IFDEF procedurebeginend} {$I procedurebeginend1.inc} {$ENDIF} {$IFDEF procedurebeginend} {$I procedurebeginend1.inc} {$ENDIF}