какой-то полтергейст, вчера никак не хотело работать, сегодня после десятка манипуляций, открытий сохранений перезагрузок, функция writedata стала выполнятся, правда с кое-каками мат. ошибками. И вот попутная проблема.
Чтоб все было совсем хорошо надо объявить процедуру не после var а в type и дальше в программе описать ее так:
Код:
procedure Tmain.keyctrl();
begin
writedata; // обявлено в другом модуле mod.pas
writeln(ft,' x='+inttostr(x)); //
Nperemennoy();// Необходим вызов этой функции... как сделать правильно?
end;
procedure Tmain.Nperemennoy();
begin
...
end;
Так вот теперь уже проблема вызвать keyctrl() из библиотеки пишет что не может найти такую процедуру, а
если обьявляю так:
Код:
procedure keyctrl();
begin
writedata; // обявлено в другом модуле mod.pas
writeln(ft,' x='+inttostr(x)); //
Nperemennoy();// Необходим вызов этой функции... как сделать правильно?
end;
то процедура вызывается из библиотеки но тогда не вызвается Nperemennoy(); Как сделать чтоб все вызывалось?