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

[18192123]

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

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

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

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

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

[volvo]

Ошибка - в том, что ты не приводишь реализацию методов, а только описываешь их... Этого недостаточно.

[18192123]

Ошибка - в том, что ты не приводишь реализацию методов, а только описываешь их... Этого недостаточно.

Вот что я добавила..Снова ошибки..

implementation
Uses Unit1, Unit2, Unit3, Unit4;

function GetName:string;
begin
Result:=fName;
end;

function GetWorkshop:integer;
begin
Result:=fWorkshop;
end;

function GetRange:integer;
begin
Result:=fRange;
end;

procedure SetName(newName:string);
begin
fName:=newName;
end;

procedure SetWorkshop(newWorkshop:integer);
begin
fWorkshop:=newWorkshop;
end;

procedure SetRange(newRange:integer);
begin
fRange:=newRange;
end;

[Error] Unit5.pas(45): Undeclared identifier: 'fName'
[Error] Unit5.pas(50): Undeclared identifier: 'fWorkshop'
[Error] Unit5.pas(55): Undeclared identifier: 'fRange'
[Error] Unit5.pas(60): Undeclared identifier: 'fName'
[Error] Unit5.pas(65): Undeclared identifier: 'fWorkshop'
[Error] Unit5.pas(70): Undeclared identifier: 'fRange'
[Hint] Unit5.pas(7): Private symbol 'fName' declared but never used
[Hint] Unit5.pas(8): Private symbol 'fWorkshop' declared but never used
[Hint] Unit5.pas(9): Private symbol 'fRange' declared but never used
[Error] Unit5.pas(10): Unsatisfied forward or external declaration: 'TPeople.GetName'
[Error] Unit5.pas(11): Unsatisfied forward or external declaration: 'TPeople.SetName'
[Error] Unit5.pas(12): Unsatisfied forward or external declaration: 'TPeople.GetWorkshop'
[Error] Unit5.pas(13): Unsatisfied forward or external declaration: 'TPeople.SetWorkshop'
[Error] Unit5.pas(14): Unsatisfied forward or external declaration: 'TPeople.GetRange'
[Error] Unit5.pas(15): Unsatisfied forward or external declaration: 'TPeople.SetRange'
[Error] Unit5.pas(22): Unsatisfied forward or external declaration: 'TPeople.Create'
[Error] Unit5.pas(23): Unsatisfied forward or external declaration: 'TPeople.Destr'
[Fatal Error] Project1.dpr(9): Could not compile used unit 'Unit5.pas'

Сообщение отредактировано: 18192123 - 4.05.2008 1:42