Цитата:
|
Сообщение от Alegun
Кой-чего нужно добавить
Код:
procedure TForm1.tsl(ds: integer);
var
hour, min, sec: integer;
begin
min := ds div 60;
hour:= min div 60;
if min > 60 then min:= min mod 60;
sec := ds mod 60;
SpinEdit1.Value:=hour;
SpinEdit2.Value:=min;
SpinEdit3.Value:=sec;
end; Для всех кнопок-прибавлялок задать такой клик |
Ругается на
Код:
procedure TForm1.tsl(ds: integer);
[Error] Unit1.pas(178): Undeclared identifier: 'tsl'
[Error] Unit1.pas(182): Undeclared identifier: 'ds'
[Error] Unit1.pas(186): Undeclared identifier: 'SpinEdit1'
[Error] Unit1.pas(187): Undeclared identifier: 'SpinEdit2'
[Error] Unit1.pas(188): Undeclared identifier: 'SpinEdit3'
[Error] Unit1.pas(205): Undeclared identifier: 'tsl'
[Error] Unit1.pas(205): ')' expected but identifier 'Value' found
[Error] Unit1.pas(205): Statement expected, but expression of type 'Integer' found
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'