mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-06 17:12:41 +02:00
29 lines
319 B
ObjectPascal
29 lines
319 B
ObjectPascal
unit UsedUnitRefs1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, math, process;
|
|
|
|
implementation
|
|
|
|
procedure DoSome;
|
|
var
|
|
c: TComponent;
|
|
d: float;
|
|
i: Int64;
|
|
begin
|
|
c:=TComponent.Create(nil);
|
|
c.Free;
|
|
d:=1.3;
|
|
i:=round(d);
|
|
writeln(i+abs(d));
|
|
writeln(sin(d));
|
|
writeln(MinFloat<d);
|
|
end;
|
|
|
|
end.
|
|
|