Цитата:
|
Сообщение от angvelem
Просто в секции Implementation функция IntToDigit должна быть указана с именем класса, так как является его частью.
Код:
implementation
function TPerevod.IntToDigit(aVal : Byte) : String;
...
тоже касается и всех остальных функций/процедур, которые есть/будут в составе класса TPerevod.
P.S. Небольшее дополнение. Небходимо декларацию вынести из private в public, иначе они будут недоступны вызывающей программе. |
а теперь в основном модуле ругается
Код:
procedure TForm1.btnPreobrClick(Sender: TObject);
begin
edRezul.Text := TPerevod.DecimalToXStr(
StrToInt(edOsnovNew.Text),
StrToInt(edPrecision.Text),
StrToFloat(edChisDec.Text)
);
на последнюю строку