Работа с тремя файлами

25.09.2013, 16:31. **Показов** 1189. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Привет всем.
Вообщем есть проблемка, дали решать задачу(Delphi), может кто сможет помочь?
Условие:
1-й файл содержит данные: шифр доктора, фио доктора, специализация;
2-й файл содержит данные: шифр пациента, фио пациента, диагноз;
3-й файл содержит данные: какой доктор принимал, каких пациентов он принял, какой диагноз поставил.
Отсортировать врачей по алфавиту, затем сортировка идет по пациентам с их диагнозом.
Работать желательно БЕЗ массивов.

Свои соображения даже боюсь писать, потому что они всегда разные и данная задача показалась очень сложной, но все же может кто поможет

@nVz · 29.09.2013, 14:16

Самый простой и понятный способ такой
1 создаете 3 текстовых файла в папке с программой;
2 кидаете на форму 3 Listbox, 2 edit, 3 button
3 на Oncreate формы пишите

Delphi

ListBox1.Clear;
ListBox2.Clear;
ListBox3.Clear;
ListBox1.Items.LoadFromFile('файл1.txt');
ListBox1.Items.LoadFromFile('файл2.txt');
ListBox1.Items.LoadFromFile('файл3.txt');

далее чтобы добавлять врачей в один список, пациентов в другой для первых двух Listbox делаете так

Delphi

1 2	Listbox1.items.add(edit1.text); // код для кнопок Listbox2.items.add(edit2.text);

ну и чтобы добавить результат в третий файл, можно выделить нужного доктора в первом списке, затем нужного пациента во втором (курсор поставить) и нажать на кнопку добавить. и в 3ий список попадет выделенный врач из 1ого списка + выделенный пациент 2ого списка

Delphi

1	ListBox3.Items.Add(ListBox1.Items[ListBox1.itemIndex]+' - '+ListBox2.Items[ListBox2.itemIndex]);

ну и сохраняете все

Delphi

1
2
3

ListBox1.Items.SaveToFile('файл1.txt');
ListBox2.Items.SaveToFile('файл2.txt');
ListBox3.Items.SaveToFile('файл3.txt');

все просто)

Barsu40k
		1
	Работа с тремя файлами 25.09.2013, 16:31. Показов 1189. Ответов 1 Метки нет (Все метки) Привет всем. Вообщем есть проблемка, дали решать задачу(Delphi), может кто сможет помочь? Условие: 1-й файл содержит данные: шифр доктора, фио доктора, специализация; 2-й файл содержит данные: шифр пациента, фио пациента, диагноз; 3-й файл содержит данные: какой доктор принимал, каких пациентов он принял, какой диагноз поставил. Отсортировать врачей по алфавиту, затем сортировка идет по пациентам с их диагнозом. Работать желательно БЕЗ массивов. Свои соображения даже боюсь писать, потому что они всегда разные и данная задача показалась очень сложной, но все же может кто поможет

	29.09.2013, 14:16

Работа с тремя файлами

Решение