mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 17:59:37 +02:00
24 lines
349 B
ObjectPascal
24 lines
349 B
ObjectPascal
{$MODE OBJFPC }
|
|
type
|
|
TestRec = record
|
|
fString : AnsiString;
|
|
fInt1 : Longint;
|
|
fInt2 : Longint;
|
|
fRetAddr : Longint;
|
|
end;
|
|
|
|
function GetGroupInfo: TestRec;
|
|
begin
|
|
fillchar(Result, Sizeof(Result), 0);
|
|
Result.fRetAddr := 0;
|
|
end;
|
|
|
|
function SelectGroup: TestRec;
|
|
begin
|
|
Result := GetGroupInfo;
|
|
end;
|
|
|
|
begin
|
|
SelectGroup;
|
|
end.
|