как вставить ссылку на процедуру?

[whiskey]

Всем Доброго Дня, Суть вот в чем - пишу программу из нескольких форм и чтобы не засорять их одними и теми же операциями в Юнит1 записаны все необходимые константы и процедуры, но почему-то при вставке их в другие юниты(подключение через interface) Делфи пишет - Undeclared identifier Процедура1..итд, причем константы его вполне устраивают

Вообщем выручайте!

[alexprey]

чтобы функции использовать нужно их объявить
Помню тоже когда то страдал этим вопросом
например

unit Unit1;

interface

function GetString: string;

implementation

function GetString: string;
begin
 Result:= 'This is a test';
end;

end.

[iama]

судя по всему, нужно всего-то подключить модуль. добавьте название модуля, где константы, в список uses модуля, где они должны использоваться

[whiskey]

Сообщение от alexprey

чтобы функции использовать нужно их объявить

Они у меня обьявлены в 1 юните

unit U1;
.........
........
procedure ReadTest;
  begin
AssignFile(FTest, FileName);
Reset(FTest);
Read(FTest,Test);
CloseFile(FTest);
end;

Но потом когда я хочу всавить их в юнит 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;

Делфи ругается на процедуру

[dmitriegorovih]

Так нужно вот так
сначала объявить их глобально

unit U1;
.........
........
procedure form1.ReadTest;
  begin
AssignFile(FTest, FileName);
Reset(FTest);
Read(FTest,Test);
CloseFile(FTest);
end;

procedure TForm2.Button6Click(Sender: TObject);  
begin
FileName:=Edit1.text;
if FileExists(FileName)then begin form1.ReadTest;
end
else begin ShowMessage('Файл отсутствует'); 
Exit end;

[whiskey]

Сообщение от dmitriegorovih

Так нужно вот так
сначала объявить их глобально

procedure form1.ReadTest;

"TForm1 does not contain a member named ReadTest" , делфи тут прав - нужно обьявлять НЕ через форму, так как к форме процедура никакого отношения не имеет