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

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

14.06.2015, 04:09. Просмотров 861. Ответов 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
Fylhtqman
0 / 0 / 0
Регистрация: 16.12.2014
Сообщений: 18
15.06.2015, 01:22  [ТС] 21
ничего, так даже лучше
0
15.06.2015, 01:22
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.06.2015, 01:22

Удаление и редактирование записи из типизированного файла
Здравствуйте! Я хотел бы узнать, возможно ли удалить запись из типизированного...

Вывод данных из типизированного файла
Здравствуйте! У меня такой вопрос. Имеется типизированный файл след. стр-ры:...

Сортировка данных типизированного файла
здравствуй... хотелось бы узнать как осуществить событие.. выбор даты...и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
21
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru