[Konrad]

Сообщение от Ildar-tsr

Посмотреть чтоб в uses присутствовал модуль SysUtils (он по умолчанию есть, но на всякий случай), и далее

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Time>=StrToTime('22:00:0')) and (Time<StrToTime('7:00:0')) then
    Edit1.Text:= '1';
  if (Time>=StrToTime('7:00:0')) and (Time<StrToTime('15:00:0')) then
    Edit1.Text:= '2';
  if (Time>=StrToTime('15:00:0')) and (Time<StrToTime('22:00:0')) then
    Edit1.Text:= '3';
end;

Кошмар...
Ну кто так учит программировать?
Это для того чтобы программа работала быстрей?

Это с разряда:

PHP код:

if length(a)=1 then s:='число меньше 10 :)'; 


правда в оригинале так:

PHP код:

...
if (i.ToString().Length == 1)
{
  ...
}