помогите пожалуйста разобраться с проблемой. где-то ошибка не могу понять где
| Код |
procedure TForm1.Button2Click(Sender: TObject);
Var
i: byte;
n1: integer;
begin
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') and // проверка заполнения всех окон редактирования
(Edit4.Text<>'') and (Edit5.Text<>' ') then begin
inc(n1); // увеличение размерности массива
SetLength(mass,n1);
Mass[n1-1].name:=Edit1.Text; // заполнение новой записи
Mass[n1-1].Price:=StrToInt(Edit2.Text);
Mass[n1-1].Seller:=Edit3.Text;
Mass[n1-1].Company:=Edit4.Text;
Mass[n1-1].Country:=Edit5.Text;
With StringGrid1 do begin
For i:=n1-1 to High(mass) do begin // вывод дополненного массива
Cells[0,i+1]:=Mass[i].name;
Cells[1,i+1]:=IntToStr(Mass[i].Price);
Cells[2,i+1]:=Mass[i].Seller;
Cells[3,i+1]:=Mass[i].Company;
Cells[4,i+1]:=Mass[i].Country;
end;
end;
end;
end;
|
|
