приложение, которое бы выдавало в виде бегущей строки текущее время и дату (Напишите ПРОГРАММНЫЙ КОД для задачи в LAZARUS!!! )

[MonaxVali]

procedure TForm1.TimerTimer(Sender: TObject);

[VIK_aka_TOR]

procedure TForm1.TimerTimer(Sender: TObject);
var T, D: TDateTime;
begin
..........
............
.........
end;

это ваши наработки, что бы не быть "голословным" ?

var 
  vremia : TDateTime; // переменная со временем
  stroka : string;
begin
  vremia := now; // считываем теперешнее время и дату
  stroka := DateToStr(vremia); // время и дату в строковую переменную
 // а как сделать бегущей - тут уже либо впереди пробелы лепить, либо сам лабел (компонент с отображением времени) двигать по форме
  
end;

ну и в таймер там интервал секунду выставить...

[kventin_zhuk]

Вот так вDelphi 7. Может и здесь так можно?

label1.Caption := FormatDateTime('hh:mm:ss', Time) + FormatDateTime('dddddd', Date);

А вот некое кривоватое движение:

Timer1.Interval := 200;
Timer1.Enabled := true;

.........

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Left := Label1.Left + 10;
  if (Label1.Left >= Form1.Width) then
      Label1.Left := - Label1.Width;
end;

[MonaxVali]

Большое спасибо! Поймите меня, я понимаю все команды и что как сделать нужно, но не понимаю алгоритм записи

[VIK_aka_TOR]

Сообщение от MonaxVali

Большое спасибо! Поймите меня, я понимаю все команды и что как сделать нужно, но не понимаю алгоритм записи

тогда представляй что должно быть в итоге, как делается постепенно то что ты хочешь. какие команды делают то самое постепенно то что ты хочешь.

[Mad_Cat]

http://programmersclub.ru/labgrafica/