Помогите с ошибкой [dcc32 Error] Unit1.pas(40): E2250 There is no overloaded version of 'TimeToStr' that can be called with these

[hunter24]

var
  Form1: TForm1;
  k: String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
k:=DateToStr(MonthCalendar1.Date) +' '+TimeToStr(Edit1.Text); // здесь ошибка 
Memo2.Lines.Add(k);
for i := 0 to Memo1.Lines.Count-1 do
  begin
  Memo2.Lines.Add(Memo1.Lines.Strings[i]);
  end;
Memo2.Lines.Add('');
Memo2.Lines.SaveToFile(SaveDialog1.FileName);
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  y,j: Integer;
begin
Memo2.Lines.LoadFromFile(OpenDialog1.FileName);
for y := 0  to Memo2.Lines.Count-1 do
  begin
  If Memo2.Lines.Strings[y]=DateToStr(MonthCalendar1.Date) +' '+TimeToStr(Edit1.Text) then
    begin
    if (Memo2.Lines.Strings[y+1]<>'')and(Memo2.Lines.Strings[y+2]='') then
    begin
    ShowMessage(DateToStr(MonthCalendar1.Date) +' '+TimeToStr(Edit1.Text)+#13#10+Memo2.Lines.Strings[y+1]);
    end
    else if (Memo2.Lines.Strings[y+2]<>'')and(Memo2.Lines.Strings[y+3]='') then
    begin
    ShowMessage(DateToStr(MonthCalendar1.Date) +' '+TimeToStr(Edit1.Text)+#13#10+Memo2.Lines.Strings[y+1]+#13#10+Memo2.Lines.Strings[y+2]);
    end
    else
    begin
      ShowMessage(DateToStr(MonthCalendar1.Date) +' '+TimeToStr(Edit1.Text)+#13#10+Memo2.Lines.Strings[y+1]+#13#10+Memo2.Lines.Strings[y+2]+#13#10+Memo2.Lines.Strings[y+3]);
    end;
    end;
  end;
  end;
end.

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

[Аватар]

Достаточно заглянуть в хелп для TimeToStr и вопросов не будет

[min@y™]

Код, конечно, жуткий.
Начни с замены Edit1.Text на DateTimePicker.Time.

Но лучше всего - сначала сформулируй задание. А то вот, к примеру, это удручает:

If Memo2.Lines.Strings[y]=DateToStr(MonthCalendar1.Date) +' '+TimeToStr(Edit1.Text) then...

Ну чо за детский сад?..

[Dvoishnik]

hunter24, на случай если у вас тоже аллергия на F1
TimeToStr - переводит время в строку а вы пытаетесь спомощью нее перевести строку в строку

[min@y™]

TimeToStr - переводит дату в строку

А я-то, старый пень, думал, что время!

[Dvoishnik]

Сообщение от min@y™

А я-то, старый пень, думал, что время!

Простите, каюсь.

[hunter24]

Сообщение от min@y™

Начни с замены Edit1.Text на DateTimePicker.Time.

Но лучше всего - сначала сформулируй задание.

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