procedure TForm1.Test(tf:TFD);
begin
Memo1.Lines.Add('---');
Memo1.Lines.Add(IntToStr(tf.ID));
Memo1.Lines.Add(tf.Name);
if tf is TChara then begin
Memo1.Lines.Add(TChara(tf).SaveMap);
end;
if tf is TMob then begin
Memo1.Lines.Add(IntToStr(TMob(tf).ATK1));
end;
Memo1.Lines.Add('---');
end;