mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-14 07:02:50 +02:00
15 lines
130 B
PHP
15 lines
130 B
PHP
{%MainUnit unit1.pas}
|
|
procedure Do1;
|
|
begin
|
|
if True then
|
|
begin
|
|
Test() //caret position
|
|
end
|
|
else
|
|
begin
|
|
|
|
end;
|
|
end;
|
|
|
|
|