Страница 1 из 1

Часы в Делфи

Добавлено: 20 фев 2011, 17:19
Салих
Пишу данный код в турбо делфи 2006, а он при запуске выдает "Error in module Unit2: Declaration of class TForm2 is missing or incorrect"
Что делать???
[syntax="delphi"]
unit Unit2;

interface
uses SysUtils, Classes;

function gethours: integer;
function getmins: integer;
function getsecs: integer;

implementation

function gethours: integer;
var
s: string;
h: integer;
begin
s := timetostr(time);
h := strtoint(s[1] + s[2]);
Result := h;
end;

function getmins: integer;
var
s: string;
h: integer;
begin
s := timetostr(time);
h := strtoint(s[4] + s[5]);
Result := h;
end;

function getsecs: integer;
var
s: string;
h: integer;
begin
s := timetostr(time);
h := strtoint(s[7] + s[8]);
Result := h;
end;

end.
[/syntax]
Заранее огромное спасибо

Re: Часы в Делфи

Добавлено: 20 фев 2011, 17:37
dr.Jekill
Выложите все файлы проекта

Часы в Делфи

Добавлено: 20 фев 2011, 21:09
Салих
Ой... а я даже и не знаю. Я просто нашел этот код (http://window.edu.ru/window_catalog/pdf ... 0&p_page=7) и скопировал его... а что еще надо?

Re: Часы в Делфи

Добавлено: 21 фев 2011, 13:40
dr.Jekill
Если у Вас всего один модуль и Вы просто вставили данный код в модуль формы, то понятное дело работать ничего не будет.
Нужно как минимум описать класс Вашей формы.
Создайте новый проект и подключите к нему данный модуль.
Тогда в проекте Вы сможете пользоваться функциями, описанными в модуле.
И быстро читать теорию!

Часы в Делфи

Добавлено: 21 фев 2011, 20:29
Салих
Спасибо большое... попытаюсь освоить этот нелегкий путь :)