On Tuesday 13 August 2002 13:37, you wrote:
> You don't have QForms in your uses clause.
>
procedure TForm1.FormCreate(Sender: TObject);
begin
{Clear the edit boxes}
ClearData;
{Clear Current Record Counter}
CurRec:=0;
{Set Filename}
Fname:='ADDRESS.ABK';
{Set File Variable}
AssignFile(AddressFile,Fname);
{Get Record Size}
RecSize:=SizeOf(AddressData);
{If file exists, load it}
If FileExists(Fname) then //Undecleared identifier FileExists
Begin
Reset(AddressFile);
If not Eof(AddressFile) then
begin
Read(AddressFile,AddressData);
ShowRecord;
end;
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
