chore: bump scintilla and lexilla version
This commit is contained in:
80
3rdparty/lexilla545/lexilla/test/examples/pascal/CodeFolding.pas
vendored
Normal file
80
3rdparty/lexilla545/lexilla/test/examples/pascal/CodeFolding.pas
vendored
Normal file
@ -0,0 +1,80 @@
|
||||
// tests for code folding
|
||||
|
||||
// multi line comments
|
||||
{
|
||||
line1
|
||||
line2
|
||||
}
|
||||
|
||||
// begin .. end
|
||||
begin
|
||||
some commands
|
||||
end;
|
||||
|
||||
record test
|
||||
var1: type1;
|
||||
var2: type2;
|
||||
end; //record
|
||||
|
||||
//asm
|
||||
asm
|
||||
some statement
|
||||
end; //asm
|
||||
|
||||
//try (from https://wiki.freepascal.org/Try)
|
||||
try
|
||||
// code that might generate an exception
|
||||
except
|
||||
// will only be executed in case of an exception
|
||||
on E: EDatabaseError do
|
||||
ShowMessage( 'Database error: '+ E.ClassName + #13#10 + E.Message );
|
||||
on E: Exception do
|
||||
ShowMessage( 'Error: '+ E.ClassName + #13#10 + E.Message );
|
||||
end;
|
||||
|
||||
//try nested (from https://wiki.freepascal.org/Try)
|
||||
try
|
||||
try
|
||||
// code dealing with database that might generate an exception
|
||||
except
|
||||
// will only be executed in case of an exception
|
||||
on E: EDatabaseError do
|
||||
ShowMessage( 'Database error: '+ E.ClassName + #13#10 + E.Message );
|
||||
on E: Exception do
|
||||
ShowMessage( 'Error: '+ E.ClassName + #13#10 + E.Message );
|
||||
end;
|
||||
finally
|
||||
// clean up database-related resources
|
||||
end;
|
||||
|
||||
//case
|
||||
case x of
|
||||
1: do something;
|
||||
2: do some other thing;
|
||||
else
|
||||
do default;
|
||||
end; //case
|
||||
|
||||
//if then else
|
||||
if x=y then
|
||||
do something;
|
||||
else
|
||||
do some other thing;
|
||||
|
||||
//for loop
|
||||
for i:=1 to 10 do
|
||||
writeln(i)
|
||||
|
||||
//do until
|
||||
repeat
|
||||
write(a);
|
||||
i:=i+1;
|
||||
until i>10;
|
||||
|
||||
//preprocessor if, else, endif
|
||||
{$DEFINE label}
|
||||
{$IFDEF label}
|
||||
command 1
|
||||
{$ELSE}
|
||||
command 2
|
||||
{$ENDIF}
|
Reference in New Issue
Block a user