PLEASE HELP

Posted by mahavira on May 28, 2008

Hello,
Please help me...
I need help with this problem:

I have some record's:

trecord = Record
datac: LongInt; { numeral item }
platn: Boolean; { validity }
length: Byte; { length of record }
next : Pointer; { direction to the next item }
pointx: pstring; { direction to data }
End;
tpointa = ^trecord;

trecordH = Record
data : string12; { unambiguous name of Header }
datah: Pointer; { direction to 1.record of subjugate structure}
dataa: trecord {tpointa};
next : Pointer;
pocd : LongInt;
End;
tpoint = ^trecordH;
.
.
var
fcth : tpoint;
.
.
and I need do this following step's:
.
.
fcth^.dataa:=tprva;
.
.
fcth^.dataa^.next:=tprva;
fcth^.dataa:=tprva;

Please, I have no idea how to write this in Delphi.
And I have the second problem with following function in Delphi:

Seek(FileTemp,FileSize(FileTemp));
Seek(FileTemp,temp);

where FileTemp :textfile;
temp : LongInt;

Thank's a lot...
Mathew