function  IsTCADFile(FileName:String):Boolean;




Description:


Determine a file is in TCAD file format or not .



Example:


if MyCAD1.IsTCADFile( OpenDialog1.FileName) then

begin

ifnot MyCAD1.LoadFromFile(OpenDialog1.FileName) then

       ShowMessage('Error when read file');

end

else

  ShowMessage(OpenDialog1.FileName +'is not a TCAD format file');

end;