mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-21 10:06:53 +02:00
35 lines
494 B
ObjectPascal
35 lines
494 B
ObjectPascal
program Foo;
|
|
{$mode objfpc}{$H+}
|
|
|
|
type
|
|
TTestClass = class
|
|
public
|
|
FWord: Word;
|
|
FBool: Boolean;
|
|
FTest: TTestClass;
|
|
end;
|
|
|
|
procedure Bar;
|
|
var
|
|
int1, int2: Integer;
|
|
pint1, pint2: ^Integer;
|
|
uint1, uint2: Cardinal;
|
|
puint1, puint2: ^Cardinal;
|
|
b1,b2: Byte;
|
|
bool1,bool2: Boolean;
|
|
test: TTestClass;
|
|
|
|
begin
|
|
int1 := int2;
|
|
pint1 := pint2;
|
|
uint1 := uint2;
|
|
puint1 := puint2;
|
|
b1:=b2;
|
|
bool1 := bool2;
|
|
writeln(int1,uint1,b1,bool1, test.FWord);
|
|
end;
|
|
|
|
begin
|
|
Bar;
|
|
end.
|