Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.05.2010, 00:54   #1
FireflyJuillet
Новичок
Джуниор
 
Регистрация: 20.05.2010
Сообщений: 1
Вопрос Delphi.Как организовывать чтение из файла и отображение его в списке-ListBoxе.

у меня есть программка,которая должна выводить список предметов.
На форме имеются Edit и LislBox .
В Edit я ввожу название нового предмета, в ListBox- список имеющихся данных (предметов), чтоб потом можно было из них выбирать.
Все введённые предметы сохраняю в типизированном файле.Также на форме расположены 3 кнопки.При нажатии на одну из кнопок, вызываю методы класса- создание,изменение,удаление соответствующих данных.

Хотелось бы организовывать чтение из файла и отображение его в списке. Для этого надо получить список всех предметов (считать из файла все предметы), просмотреть их в цикле и определить максимальный id, который нужен для создания нового предмета.

Текст программки, в которой id-номер,который будет однозначно идентифицировать предмет, name-название предмета, courseFile-имя файла где будут храниться все предметы,Courses-класс предметов.


uses Courses;

procedure TForm2.Button1Click(Sender: TObject);//добавляю новый предмет
var
course:CCourse;
name:string;
id:byte;
begin
name:=edit1.text;
id:=1;//что я сдесь должна указать?
course:=CCourse.Create;
course.InsertNewCourse(id,name,'d:\ 1.dat');
end;

procedure TForm2.Button3Click(Sender: TObject);//удаление предмета
var
course:CCourse;
id:byte;
begin
id:=1;
course:=CCourse.Create;
course.RemoveCourseById(id,'d:\1.da t')
end;

procedure TForm2.Button2Click(Sender: TObject);//изменение
var
course:CCourse;
id:byte;
oldId:byte;
name:string;
begin
name:=edit1.text;
id:=2;
oldId:=1;
course.UpdateCourseById(oldId,id,na me,'d:\1.dat');
end;

end.


Да, к тому же, чему присвоить id ?

Последний раз редактировалось FireflyJuillet; 20.05.2010 в 00:58.
FireflyJuillet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Открытие и чтение DAT файла. C++ в Delphi Человек_Борща Общие вопросы Delphi 5 18.04.2010 12:50
Чтение из файла Delphi VadEr Помощь студентам 2 25.10.2009 17:29
чтение файла Delphi world12_tk Помощь студентам 1 07.10.2009 08:16
Чтение данных из файла (Delphi 7) alxd Помощь студентам 15 14.08.2009 13:21