42 lines
809 B
ObjectPascal
42 lines
809 B
ObjectPascal
|
// some example source code
|
||
|
|
|
||
|
|
{
|
||
|
|
SCE_PAS_DEFAULT=0
|
||
|
|
SCE_PAS_IDENTIFIER=1
|
||
|
|
SCE_PAS_COMMENT=2
|
||
|
|
SCE_PAS_COMMENT2=3
|
||
|
|
SCE_PAS_COMMENTLINE=4
|
||
|
|
SCE_PAS_PREPROCESSOR=5
|
||
|
|
SCE_PAS_PREPROCESSOR2=6
|
||
|
|
SCE_PAS_NUMBER=7
|
||
|
|
SCE_PAS_HEXNUMBER=8
|
||
|
|
SCE_PAS_WORD=9
|
||
|
|
SCE_PAS_STRING=10
|
||
|
|
SCE_PAS_STRINGEOL=11
|
||
|
|
SCE_PAS_CHARACTER=12
|
||
|
|
SCE_PAS_OPERATOR=13
|
||
|
|
SCE_PAS_ASM=14
|
||
|
|
}
|
||
|
|
|
||
|
|
{ --------------------------------------------------------------------------- }
|
||
|
|
function functionname(paramerter1: type1):result1;
|
||
|
|
var
|
||
|
|
i: LongInt;
|
||
|
|
begin
|
||
|
|
for i:=1 to 10 do
|
||
|
|
begin
|
||
|
|
writeln(i)
|
||
|
|
end;
|
||
|
|
result:=true;
|
||
|
|
end;
|
||
|
|
{ --------------------------------------------------------------------------- }
|
||
|
|
procedure procedurename(parameter2: type2);
|
||
|
|
var
|
||
|
|
i: LongInt;
|
||
|
|
begin
|
||
|
|
for i:=1 to 10 do
|
||
|
|
begin
|
||
|
|
writeln(i)
|
||
|
|
end;
|
||
|
|
end;
|