VPF::Как вытянуть из тхт запись по дате

zhefran

Дата 2.11.2007, 11:22 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 237
Регистрация: 27.9.2007
Где: Винница-Киев-Ирпе нь-?, Украина

Репутация: нет
Всего: нет

У меня такакя проблема: мне нужно из файла выводить данные по текущей дате.
Пробывал сделать так:

Код


for k:=0 to f.Count-1 do begin
      r:=copy(f.Strings[k],1,10);
      if r=datetostr(date)
      then begin
      for m:=k to f.Count-1 do
      Memo1.Lines.add(f.Strings[m]);
      end;
      break;
      end;

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

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

Alix

Дата 2.11.2007, 12:13 (ссылка)

(голосов:1)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 8
Всего: 23

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

Код

for k:=0 to f.Count-1 do
  if copy(f.Strings[k],1,10) = datetostr(date) then
    Memo1.Lines.add(f.Strings[k]);

идет по всем строкам файла (я так понимаю что f - это TStrings в которые загрузили файл, так?), если первые 10 символов, которые содержат дату - соответствуют текущей, то выводим строку в memo. Если все записи идут последовательно, то все как у тебя, только break надо внести в begin/end if'a (я вообще не понимаю как он у тебя работает иначе...)

Код

for k:=0 to f.Count-1 do
  if copy(f.Strings[k],1,10) = datetostr(date) then begin
    for m:=k to f.Count-1 do
      Memo1.Lines.add(f.Strings[m]);
    break; 
  end;

Это сообщение отредактировал(а) Alix - 2.11.2007, 12:14

--------------------

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

zhefran

Дата 2.11.2007, 13:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Alix, спасибо!
Все пипчит!

--------------------

Ніщо нізвідки не виникає і нікуди не дівається!Лечение компьютеров от вирусов! Бесплатно!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »