Показываю
Код:
unit U1;
.........
........
procedure ReadTest;
begin
AssignFile(FTest, FileName);
Reset(FTest);
Read(FTest,Test);
CloseFile(FTest);
end;
Юнит1 идет как модуль где описана процедура ReadTest,
но когда я хочу вставить ее в юнит 2
Код:
Unit U2;
Interface
Uses U1;
...........
...........
procedure TForm2.Button6Click(Sender: TObject);
begin
FileName:=Edit1.text;
if FileExists(FileName)then begin ReadTest;
end
else begin ShowMessage('Файл отсутствует');
Exit end;
Делфи ругается на процедуру