[Hetrue]

Написать программу для ведения собственного дневника: каждый отдельный день сохранять в отдельном файле. Обеспечить поиск по дате создания записи и по фрагментам текста.
Можете хоть покидать ссылки на исходники, а то я искал , и ничего не нашел, , или фрагменты кода хотя бы. Заранее благодарю!

[Pyro]

если выбросить поиск по фрагментам текста то:
кидаешь на форму tcalendar и memo, у календаря onchange
if fileexist(name) then memo.lines.loadfromfile(name)
name-локальная переменная, определяешь через formatdatetime(calendar.date) или что-то типа того
у memo onchange: ...savetofile(name)

[NumLock]

для начала так
сохранение и чтение:

Код:

Memo1.Lines.SaveToFile(FloatToStr(Date));
Memo1.Lines.LoadFromFile(FloatToStr(Date));

поиск фрагмента:

Код:

  if Memo1.Lines.IndexOf('я вчера пришел домой сильно на рогах, еле смог устоять на своих ногах')<>-1 then
    ShowMessage('найдено')
  else
    ShowMessage('не найдено');

поиск по дате:

Код:

var
  sr: TSearchRec;
begin
    if FindFirst('4087*', faAnyFile, sr) = 0 then
    begin
      repeat
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
end;

[Hetrue]

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

если выбросить поиск по фрагментам текста то:
кидаешь на форму tcalendar и memo, у календаря onchange
if fileexist(name) then memo.lines.loadfromfile(name)
name-локальная переменная, определяешь через formatdatetime(calendar.date) или что-то типа того
у memo onchange: ...savetofile(name)

Благодраю!

[Hetrue]

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

для начала так
сохранение и чтение:

Код:

Memo1.Lines.SaveToFile(FloatToStr(Date));
Memo1.Lines.LoadFromFile(FloatToStr(Date));

поиск фрагмента:

Код:

  if Memo1.Lines.IndexOf('я вчера пришел домой сильно на рогах, еле смог устоять на своих ногах')<>-1 then
    ShowMessage('найдено')
  else
    ShowMessage('не найдено');

поиск по дате:

Код:

var
  sr: TSearchRec;
begin
    if FindFirst('4087*', faAnyFile, sr) = 0 then
    begin
      repeat
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
end;

Благодарю!!