t_id
764
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{$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.