VPF::записи в гриде - Форум программистов

Иванна

Дата 10.9.2011, 15:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 10.9.2011

Репутация: нет
Всего: нет

помогите пожалуйста разобраться с проблемой. где-то ошибка не могу понять где

Код


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;

Frees

Дата 10.9.2011, 15:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

опиши, в чем ошибка выражается?

Добавлено через 2 минуты и 16 секунд
smile

замени

Код


inc(n1);

на

Код


n1 := Length(Mass) + 1;

--------------------

Кольцов Виктор Владимирович

Иванна

Дата 10.9.2011, 15:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 10.9.2011

Репутация: нет
Всего: нет

спасибо Вам огромное))) работает

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »