[4ebyrda]

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

[v1s2222]

Не знаю, подойдет или нет, но все же:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.Caption:=TimeToStr(Now)+'; Date: '+DateToStr(Now);
  if(label1.Left<=-label1.Width) then
    label1.Left := 152;

  label1.Left:=label1.Left-3;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Left:=152;
  Timer1.Interval:=100;
end;

Поставь на форму таймер и текстовую метку, и вставь код что я дал.

[4ebyrda]

ну что то вроде этого только например
если дата 21.04.95 то сообщение1
если дата 14.05.97 то сообщение2
и еще реально сделать ну вот сому оболучку программы и txt файл где написаны даты и сообщения к ним типа:
23.11.04 помыть посуду
25.11.04 выкинуть мусор
и т.д.
и это все в бегущей строке.?

[ryderx34]

Не идеально конечно, но работает:

Код:

uses
  IniFiles;

var
  MsgStr: String;
  CurrentDate: TDateTime;

function GetMessage(D: TDateTime): String;
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'messages.txt');
  Result := Ini.ReadString('messages', DateToStr(D), 'на сегодняшний день нет сообщений');
  Ini.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  CurrentStr: String;
begin
  if CurrentDate <> Date then  // проверяется дата и если она изменилась
    MsgStr := GetMessage(Date); // из файла читается соответствующее ей сообщение (смотри функцию выше)
  // далее реализация бегущей строки:
  CurrentStr := Label1.Caption; 
  if Length(CurrentStr) > 0 then
    Delete(CurrentStr, 1, 1)
  else
    CurrentStr := MsgStr;
  Label1.Caption := CurrentStr;
end;

файл с сообщениями - обычный INI:

Код:

[messages]
23.11.04=помыть посуду
25.11.04=выкинуть мусор

[4ebyrda]

вот это ваще очень то что надо только не пишет сообщение из файла создал test.ini и поместил его в одну папку с exe открываю и что на сегодня нет сообщений

[deltas]

Так надо messages.txt а не test.ini

З.Ы. А если на одну дату два и больше сообщений?