关于类的调用.(50分)

单元1
type
TSe = class(TObject)
private
FInfo: TInfos;
public
function TT(AFInfo: TInfos; AFLIST: TList): Boolean; virtual;
abstract;
end;

单元2:
type
PALIST = ^TALIST;

TALIST = record
FA: string[255];
FB: string[255];
FC: string;
FD: string[255];
FE: string;
FS: TStringList;
end;

TInfos = record
FF: string[255];
FG: Integer;
FH: string[255];
FI: string[255];
end;
问题:我不会指针,但是这个格式不能改,如果我才能使用单元一的function?如果才能取得单元2的赋值?单元1里面的私有变量FInfo: TInfos如何才能取得值?

单元1引用单元2,单元2引用单元1,

我在窗口引用了这两个单元,在窗口给记录赋值,但是在FInfo还是为空值

摇头

就是对类不了解,所以才发问,别老是摇头呀,解决问题才是重要啦.

你的赋值语句是怎么写的？

var
tmpPALIST : PALIST;
Alist : Tlist;
begin
Alist := Tlist.Create;
new(tmpPALIST);
tmpPALIST.FA := 'test';
Alist.Add(tmpPALIST);
...
tmpPALIST := PALIST(Alist.items[0]); //强制类型转换
showmessage(tmpPALIST.FA);
end;

接受答案了.