Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Fylhtqman
0 / 0 / 0
Регистрация: 16.12.2014
Сообщений: 18
0

Удаление данных из типизированного файла по условию

14.06.2015, 04:09. Просмотров 862. Ответов 20
Метки (Все метки)

Всем привет!Такой вопрос, мне нужно удалять данные за промежуток времени выбранный в датапикерах,так вот, код написал..переписываем данные(которые не нужно удалять) в новый файл, потом перекидываем их обратно но уже удалив те которые не прошли по условию, удаляет вообще всё, в чём ошибка, знает кто?заранее спасибо!
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
procedure TForm12.BitBtn1Click(Sender: TObject);
begin
if (datetimepicker1.date>datetimepicker2.Date) then begin Showmessage('ГЌГҐ ГўГҐГ°Г*Г*Гї Г¤Г*ГІГ*!');
exit;
end
else
AssignFile(f3,'333.dat');
Rewrite(f3);
Reset(f1);
While not Eof(f1) do
begin
read(f1,d);
if (d.datareg<datetimepicker1.date) and (d.datareg>datetimepicker2.date)  then
begin
o.predmetdg:=d.predmetdg;
o.sernom:=d.sernom;
o.podradtch:=d.podradtch;
o.regnomer:=d.regnomer;
o.datareg:=d.datareg;
o.srnach:=d.srnach;
o.srkonc:=d.srkonc;
o.stoimost:=d.stoimost;
o.stadiadg:=d.stadiadg;
write(f3,o);
end;
end;
CloseFile(f1);
CloseFile(f3);
Rewrite(f1);
Reset(f3);
While not Eof(f3) do
begin
read(f3,o);
begin
d.predmetdg:=o.predmetdg;
d.sernom:=o.sernom;
d.podradtch:=o.podradtch;
d.regnomer:=o.regnomer;
d.datareg:=o.datareg;
d.srnach:=o.srnach;
d.srkonc:=o.srkonc;
d.stoimost:=o.stoimost;
d.stadiadg:=o.stadiadg;
write(f1,d);
end;
end;
CloseFile(f3);
closefile(f1);
deletefile('333.dat');
end;


Вернуться к обсуждению:
Удаление данных из типизированного файла по условию
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2015, 04:09
Готовые ответы и решения:

Удаление из типизированного файла по условию
Надо сделать удаление по условию, то есть несколько записей сразу. Ошибку...

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

Удаление из типизированного файла
Привет, Ребятки!))) Столкнулся вот с какой проблемой!( Есть процедура...

Удаление записи из типизированного файла (StringGrid)
Подскажите, пожалуйста, как удалить запись по номеру? Сам пробовал, но после...

Удаление строки из типизированного файла в StringGrid-е
Здравствуйте. Подскажите пожалуйста, где ошибка... Процедура должна удалить...

20
Другие темы раздела
Delphi Загрузка DLL при запуске программы http://www.cyberforum.ru/delphi-beginners/thread1477604.html
Как можно автоматически загрузить DLL в стороннее приложение при его запуске (без своей программы)?
Delphi Несколько TWebBrowser на одной форме в Delphi 7 Пишу программу, где активно использую компонент TWebBrowser. На компе установлен IE 10. Появилась необходимость на одной форме иметь три независимых друг от друга браузера с разными cookies. ... http://www.cyberforum.ru/delphi-beginners/thread1477595.html
Поиск данных в StringGrid Delphi
Мне нужна помощь ваша, программисты, мне нужно сделать поиск данных в StringGrid. На форме находится компонент StringGrid, и он заполняется данными из txt документа, дак вот, мне нужно сделать поиск...
Сохраняет файл не в той кодировке Delphi
Доброго времени суток, надеюсь именно ВЫ мне сможете помочь ;) Суть проблемы в том, что файл сохраняется, НО если открыть его любым текстовым редактором, в ответ видишь непонятные символы. Как...
Delphi Удаление всех нечётных элементов из дерева http://www.cyberforum.ru/delphi-beginners/thread1477525.html
Добрый день. Прошу помочь с задачей: Нужно удалить все нечётные элементы дерева. Буду рад любой помощи.
Delphi Алгоритм работы программы Может я не в той теме,извините. две папки in и out, из in поступает письмо, как только оно получено, направляется уведомление о доставке письма в папку out,дальше идет проверка письма, далее... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru