mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-28 22:23:09 +02:00
13 lines
123 B
PHP
13 lines
123 B
PHP
{%MainUnit unit1.pas}
|
|
procedure Do1;
|
|
begin
|
|
if True then
|
|
begin
|
|
Test() //caret position
|
|
else
|
|
begin
|
|
|
|
end;
|
|
end;
|
|
|