IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Работа со списком строк
18192123
сообщение 23.04.2008 18:07
Сообщение #1


Профи
****

Группа: Пользователи
Сообщений: 920
Пол: Женский
Реальное имя: Марина

Репутация: -  2  +


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

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

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

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

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


 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
18192123
сообщение 4.05.2008 23:24
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 920
Пол: Женский
Реальное имя: Марина

Репутация: -  2  +


Итак, продолжу задавать вопросы)

На 1-й форме у меня два ListBox..По нажатию кнопки "Добавить" вызывается ещё одна форма (2-я)..Начала работать над добавлением..Перед этим добавила конструктор для моего класса TPeople:


type TPeople=class
private

fName:string;
fWorkshop:integer;
fRange:integer;
function GetName:string;
procedure SetName(newName:string);
function GetWorkshop:integer;
procedure SetWorkshop(newWorkshop:integer);
function GetRange:integer;
procedure SetRange(newRange:integer);

public

property Name:string read GetName write SetName;
property Workshop:integer read GetWorkshop write SetWorkshop;
property Range:integer read GetRange write SetRange;
constructor Create(fName:string;fWorkshop:integer;fRange:integer);
end;

implementation
Uses Unit1, Unit2, Unit3, Unit4;

constructor TPeople.Create(fName:string;fWorkshop:integer;fRange:integer);
begin
inherited Create;
fName:='';
fWorkshop:=0;
fRange:=0;
end;



Теперь оработчик события "нажатие кнопочки добавить на 2-й форме", где и возникла проблема:


unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Spin, StdCtrls, Buttons;

type
TForm2 = class(TForm)
BitBtn1: TBitBtn; //OK
BitBtn2: TBitBtn; //cancel
Edit1: TEdit; //fio
Label1: TLabel;
Label2: TLabel;
SpinEdit1: TSpinEdit;//range
Edit2: TEdit; //workshop
Label3: TLabel;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation
Uses Unit1, Unit3, Unit4, Unit5;
{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
var NewPeople:TPeople;
begin
if Form2.ShowModal=mrOK then
begin
NewPeople:=TPeople.Create(fName,fWorkshop,fRange);
{...}
end;
end;

end.



И вот такие однотипные ошибки:

[Error] Unit2.pas(38): Undeclared identifier: 'fName'
[Error] Unit2.pas(38): Undeclared identifier: 'fRange'

Объясните пожалуста, в чём дело?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
18192123   Работа со списком строк   23.04.2008 18:07
18192123   Вот что получилось: interface type TPeople=class ...   23.04.2008 20:32
18192123   Объясните пожалуста, в чём ошибка..не компилится ...   3.05.2008 20:22
volvo   Ошибка - в том, что ты не приводишь реализацию мет...   3.05.2008 20:34
18192123   Ошибка - в том, что ты не приводишь [b]реализацию...   3.05.2008 21:41
volvo   :) Ты добавила просто процедуры/функции, а надо бы...   3.05.2008 22:02
18192123   Итак, продолжу задавать вопросы) На 1-й форме у м...   4.05.2008 23:24
volvo   Можно задать тебе один вопрос: что ты делаешь вот ...   5.05.2008 0:12
18192123   Можно задать тебе один вопрос: что ты делаешь вот...   5.05.2008 0:34
volvo   Я не заметил этого... Ты просто заносишь в парамет...   5.05.2008 0:43
18192123   И снова здраствуйте! В процессе работы у меня ...   8.05.2008 17:45
volvo   Погоди... Я не понял, что происходит? Ты описываеш...   8.05.2008 18:24
18192123   Погоди... Я не понял, что происходит? Ты описывае...   8.05.2008 18:40
18192123   Это всё было попыткой обратиться к уже существующ...   9.05.2008 22:03
volvo   Я показал тебе в предыдущем сообщении, что надо сд...   10.05.2008 0:36
18192123   Я показал тебе в предыдущем сообщении, что надо с...   10.05.2008 2:29
18192123   У меня появился ещё один вопрос.. Пусть на Form3 м...   10.05.2008 17:48
volvo   Точно так же: получаешь сам объект и изменяешь его...   10.05.2008 18:56
18192123   Точно так же: получаешь сам объект и изменяешь ег...   10.05.2008 19:47
volvo   Ты не удаляешь строку, и естественно не удаляешь о...   10.05.2008 20:00
18192123   Здраствуйте. У меня вопрос возник по механизму пер...   11.05.2008 21:08
volvo   Значит, смотри: переносим из ListBox2 (источник) в...   11.05.2008 22:13
18192123   Вот и все в принципе... Для обратной операции - м...   11.05.2008 22:55


 Ответить  Открыть новую тему 
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 19.07.2025 3:10
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"