нужно свойства полей вывести в stringgrid через comobox

[nikita2480]

Здравствуйте.
У меня есть класс мне нужно свойства полей вывести в stringgrid через comobox

 type
  TPlane = class(TTransport)
  private
  Fcompany: string;
  FNMPlane: integer; // счетчик кол-ва самолетов
  class var FPlanes: TObjectList;
  class function GetListPlanes(Index: Integer): Tplane; static;
  class procedure SetListPlanes(Index: Integer; const Value: Tplane); static;
  public
  class property ListPlanes[Index: Integer]: TPlane read GetListPlanes write    SetListPlanes;
  property company: string read Fcompany write Fcompany;
  property NMPlane: integer read FNMPlane write FNMPlane;
  constructor Create (vid: string; year: integer; company: string);
  end;

implementation

{ TPlane }
constructor TPlane.Create(vid: string; year: integer; company: string);
begin
inherited Create(vid, year);
Fcompany:=company;
end;
class function TPlane.GetListPlanes(Index: Integer): TPlane;
begin
  if (FPlanes = nil) then Exit;
  result := TPlane(FPlanes.Items[Index]);
end;
class procedure TPlane.SetListPlanes(Index: Integer; const Value: TPlane);
begin
  if (FPlanes = nil) then Fplanes := TObjectList.Create;
  Fplanes.Insert(Index, Value);
end;
end.

На форме делаю считывание с editов все кладу в массив Planelist

planes: Tplane;
   Planelist: array of Tplane;

implementation
procedure TForm9.SaveClick(Sender: TObject);
var i: integer;
begin
planes:= Tplane.Create(vidtxt.Text, strtoint(yeartxt.Text), companytxt.Text );
planes.vid:=vidtxt.Text;
planes.year:=strtoint(yeartxt.Text);
planes.company:=companytxt.Text;
Planelist[i].NMPlane:= Planelist[i].NMPlane+1;
Planelist[i]:=planes;
end;

procedure TForm6.ComboPlaneDropDown(Sender: TObject);
var k: integer;
begin
ComboPlane.Clear();
for k := 0 to Planecount-1 do
begin
comboPlane.AddItem( Planelist[k].vid, Planelist[k]);
end;
end;

procedure TForm6.ButPokPlaneClick(Sender: TObject);     
var i, temp, k: integer;
begin
Transportgrid.RowCount:=Planelist[comboPlane.ItemIndex].NMPlane+1;   
Transportgrid.ColCount:= 3;                                         
Transportgrid.Cells[0,0]:= 'Вид';
Transportgrid.Cells[1,0]:= 'Год';
Transportgrid.Cells[2,0]:= 'Компания';
 temp:=Planelist[comboPlane.ItemIndex].NMPlane-1;
with TransportGrid do
for i := 0 to temp do       
begin

cells[0,i+1]:= planelist[i].vid;
cells[1,i+1]:=inttostr( planelist[i].year);
cells[2,i+1]:= planelist[i].company;
end;
end;

Что то делаю не так...
Помогите пожалуйста разобраться=(

[Stilet]

Что то делаю не так...

А что не так?

[nikita2480]

Вот скрины. При нажатие сохранить такое вылазит

[Serge_Bliznykov]

я не смотрел, что у Вас там с классами накручено, НО
если на кнопке сохранить вот этот код:

planes: Tplane;
   Planelist: array of Tplane;

implementation
procedure TForm9.SaveClick(Sender: TObject);
var i: integer;
begin
planes:= Tplane.Create(vidtxt.Text, strtoint(yeartxt.Text), companytxt.Text );
planes.vid:=vidtxt.Text;
planes.year:=strtoint(yeartxt.Text);
planes.company:=companytxt.Text;
Planelist[i].NMPlane:= Planelist[i].NMPlane+1;
Planelist[i]:=planes;
end;

то это страх и ужас!!

во-первых, если используете динамический массив (у вас это array of Tplane), то перед его использованием ему ОБЯЗАТЕЛЬНО нужно выделить место в памяти через SetLength(имя_дин_массива, количество_элементов);

во-вторых, как можно писать Planelist[i] ?!!!
Чему у Вас i в этот момент равно?! Мусору? И Вы в ячейку с неизвестным индексом, к тому же в массиве, которому не выделили память пытаетесь писать?!
Неудивительно, что получаете Access Violation!!!

[nikita2480]

Спасибо. Исправляю на это

Planecount: integer;

planecount:=0;
Planecount:= Planecount+1;
setLength(Planelist,Planecount);
Planelist[Planecount-1]:=planes;

Так не выдает ошибок, но не выводит vidы в комбобоксе.
А ещё можно отвлеченный вопрос с контейнером Toobjectlist как бы это выглядело?

[Stilet]

Var ol:TObjectList;
...
ol:=TObjectList.Create;
...
plane:= Tplane.Create(vidtxt.Text, strtoint(yeartxt.Text), companytxt.Text );
ol.add(plane);
...
Tplane(ol[i]) вернет объект.
...
ol.clear;
ol.free;

[nikita2480]

Stilet, спасибо большое=)
А с комбобоксом что не так?

[Stilet]

А с комбобоксом что не так?

Да откуда же я знаю )
Одно могу сказать точно: Я бы наполнение комбика в DropDown не писал.

[nikita2480]

Да?!)) Интересно почему и что вы пишите?))

[Stilet]

Тоже самое но не в этом событии.
Если комбик нужен как справочный инструмент то наполняю его в начале работы программы.