Работа со списком строк Опции

[18192123]

Требуется разработать программу для работы со списками строк. Структура объектов пользовательского класса следующая:
Кадры: имя,номер цеха, разряд;
Список содержит строки с идентификатором объекта и связанной со строкой объект. Для визуализации списка используется компонент TListBox. Предусмотреть создание, просмотр и редактирование объектов, а так же сохранение объектов в файле и их загрузку из файла.

Во-первых, объясните пожалуста, что имеется ввиду под: "Список содержит строки с идентификатором объекта и связанной со строкой объект" и как это можно осуществить?

Ещё проблема с определением в главном модуле класса объектов (Кадры: имя,номер цеха, разряд), размещаемых в списке...(сначало нужно опредилить объект, а потом класс этих объектов или как?? покажите пожалуста на моём примере..)

Причём в классе требуется определить конструктор вида:

constructor TMyObject.Create(поле1:тип;....);
begin
inherited Create;
<инициализация полей>
end;

[volvo]

Я показал тебе в предыдущем сообщении, что надо сделать приведение типа (в таком случае, действительно, конструктор не нужен)... Тут вопрос в другом: как ты заносишь информацию в Objects? Если это делается неправильно, то чтение, естественно, работать не будет (а вот при занесении класса в список Objects конструктор как раз обязателен)...

Так что, показывай код, где к ListBox-у присоединяешь данные...

[18192123]

Я показал тебе в предыдущем сообщении, что надо сделать приведение типа (в таком случае, действительно, конструктор не нужен)... Тут вопрос в другом: как ты заносишь информацию в Objects? Если это делается неправильно, то чтение, естественно, работать не будет (а вот при занесении класса в список Objects конструктор как раз обязателен)...

Так что, показывай код, где к ListBox-у присоединяешь данные...

Не знаю, насколько правильно я сделала - но заработало)

procedure TForm2.BitBtn1Click(Sender: TObject); //присоединение данных к ListBox1 на Form1
var NewPeople:TPeople;
begin
NewPeople:=TPeople.Create(Edit1.Text,StrToInt(Edit2.Text),StrToInt(SpinEdit1.Text));
Form1.ListBox1.Items.AddObject(Form2.Edit1.Text, NewPeople as TObject);
end;

//и собственно полная информация об объекте
procedure TForm3.BitBtn1Click(Sender: TObject);
var CurPeople: TPeople;
begin
CurPeople:=TPeople(Form1.ListBox1.Items.Objects[Form1.ListBox1.ItemIndex]);
Edit1.Text:=CurPeople.Name;
Edit2.Text:=IntToStr(CurPeople.Workshop);
SpinEdit1.Text:=IntToStr(CurPeople.Range);
end;