![]() |
|
#1
|
|||
|
|||
![]() нужна помощь, хотел сделать бегущую строку, но что бы программа учитывала дату и выводила на экран определенное сообщение связонное с этой датой, помогите пажалуйста.
|
#2
|
||||
|
||||
![]() Не знаю, подойдет или нет, но все же:
Код:
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; Помогаю за Спасибо ![]() |
#3
|
|||
|
|||
![]() ну что то вроде этого только например
если дата 21.04.95 то сообщение1 если дата 14.05.97 то сообщение2 и еще реально сделать ну вот сому оболучку программы и txt файл где написаны даты и сообщения к ним типа: 23.11.04 помыть посуду 25.11.04 выкинуть мусор и т.д. и это все в бегущей строке.? |
#4
|
||||
|
||||
![]() Не идеально конечно, но работает:
Код:
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; Код:
[messages] 23.11.04=помыть посуду 25.11.04=выкинуть мусор Последний раз редактировалось ryderx34, 01.12.2010 в 18:02. |
#5
|
|||
|
|||
![]() вот это ваще очень то что надо только не пишет сообщение из файла создал test.ini и поместил его в одну папку с exe открываю и что на сегодня нет сообщений
|
#6
|
||||
|
||||
![]() Так надо messages.txt а не test.ini
З.Ы. А если на одну дату два и больше сообщений? |