VPF::Добавление в динамический массив

Samhein

Дата 4.3.2010, 22:56 (ссылка)

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

Загрузка ...

Башзэфашовец

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

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

есть тип записи

Код


type
 fizrozh = record
imya:string;
fam:string;
otch:string;
pasp_seriya:string;
pasp_nom:string;
pasp_vid:string;
pasp_kod:string;
pasp_kem:string;
date_:string;
mest_rozhd:string;
propisan:string;
dolya_v_ustk:string;
kont_tel:string;
inn:string;
end;

и динамический массив записей

Код


 fiz:array of fizrozh;

и код процедуры

Код


var
i:integer;
begin
ListBox1.Items.Add(Edit9.Text + ' ' + edit10.Text + ' ' + Edit11.Text);
i := ListBox1.Items.Count;
SetLength(fiz,i);
with fiz[length(fiz)+1] do
begin
imya :=  Edit9.Text;
fam :=  Edit10.Text;
otch :=  Edit11.Text;
pasp_seriya :=  Edit12.Text;
pasp_nom :=  Edit13.Text;
pasp_vid :=  Edit14.Text;
pasp_kod :=  Edit15.Text;
pasp_kem :=  Edit16.Text;
date_ :=  Edit17.Text;
mest_rozhd :=  Edit18.Text;
propisan :=  Edit19.Text;
dolya_v_ustk :=  Edit20.Text;
kont_tel :=  Edit21.Text;
inn  :=  Edit22.Text;
end;
end;

Смотрю сколько в ListBox строк, указываю длину массива это число+1. Присваиваю что надо. 2 раза всё проходит нормально. На третий раз на присваивании места рождения

Код


mest_rozhd :=  Edit18.Text;

выдается: "Project raised exception class EAccessViolation with message 'Access violation at address 0040543C in module 'ProjectName.exe'. Read of address 6F5402F9'.".

Это сообщение отредактировал(а) Samhein - 4.3.2010, 22:57

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

Знаю форум наизусть, но писать еще боюсь

Matematik

Дата 4.3.2010, 23:06 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


with fiz[length(fiz)-1] do

Длина массива минус один.
Можно и так

Код


with fiz[i-1] do

Это сообщение отредактировал(а) Matematik - 4.3.2010, 23:07

Frees

Дата 4.3.2010, 23:09 (ссылка)

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

Загрузка ...

Эксперт

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

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

массив не нужен ссылку на запись можно хранить в ListBox1.Items

примерно так(писал на коленках)

Код


type
 fizrozh = record
imya:string;
fam:string;
otch:string;
pasp_seriya:string;
pasp_nom:string;
pasp_vid:string;
pasp_kod:string;
pasp_kem:string;
date_:string;
mest_rozhd:string;
propisan:string;
dolya_v_ustk:string;
kont_tel:string;
inn:string;
end;
Pfizrozh = ^fizrozh;


var
i:integer;
fize: Pfizrozh;
begin
New(fize);
ListBox1.Items.AddObject(Edit9.Text + ' ' + edit10.Text + ' ' + Edit11.Text, fize);
with fize^ do
begin
imya :=  Edit9.Text;
fam :=  Edit10.Text;
otch :=  Edit11.Text;
pasp_seriya :=  Edit12.Text;
pasp_nom :=  Edit13.Text;
pasp_vid :=  Edit14.Text;
pasp_kod :=  Edit15.Text;
pasp_kem :=  Edit16.Text;
date_ :=  Edit17.Text;
mest_rozhd :=  Edit18.Text;
propisan :=  Edit19.Text;
dolya_v_ustk :=  Edit20.Text;
kont_tel :=  Edit21.Text;
inn  :=  Edit22.Text;
end;
end;

Это сообщение отредактировал(а) Frees - 4.3.2010, 23:13

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

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

Samhein

Дата 4.3.2010, 23:23 (ссылка)

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

Загрузка ...

Башзэфашовец

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

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

Matematik, ага, точно. Спасибо)

Frees, хм..я в этом не силен, лучше подожду ещё ответа. Но всё равно спасибо.

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

Знаю форум наизусть, но писать еще боюсь

Matematik

Дата 5.3.2010, 00:38 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Frees @ 4.3.2010, 23:09

)

массив не нужен ссылку на запись можно хранить в ListBox1.Items

У этого способа есть маленький недостаток, в случае очистки (или удаления одной строки) ListBox необходимо самому освободить память от New(fize);, т.е. нельзя делать так

Код


ListBox1.Items.Clear;

будет утечка памяти
а надо так

Код


for j:=0 to ListBox1.Items.Count-1 do
  Dispose(Pfizrozh(ListBox1.Items.Objects[j]));
ListBox1.Items.Clear;

Отображение дин.массива я делаю по другому - перевожу ListBox в виртуальный режим, в этом случае в самом ListBox ничего не хранится, надо только указать длинну ListBox, а данные выводятся через событие OnData. При добавлении в массив новых данных, только изменяю длину ListBox.
Для больших списков это намного бысрее, чем простой ListBox.Items.Add()

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  // виртуальный режим
  ListBox1.Style := lbVirtual;
  ListBox1.Count := 0;
end.

// событие OnData
procedure TForm1.ListBox1Data(Control: TWinControl; Index: Integer;
  var Data: string);
begin
  if (0<=Index) and (Index<Length(fiz)) then
    Data := fiz[Index].xxx + ' ' + fiz[Index].yyy
  else
    Data := '???????'
end;

procedure AddItem();
var l: Integer;
begin
  // добвить запись
  l := Length(fiz);
  SetLength(fiz, l+1);
  with fiz[l] do
  begin
    {запись полей}
  end;
  ListBox1.Count := l; // обновить размер ListBox
end;

Это сообщение отредактировал(а) Matematik - 5.3.2010, 00:39

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