Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Добавление в динамический массив

Автор: Samhein 4.3.2010, 22:56

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

Код


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'.".

Автор: Matematik 4.3.2010, 23:06

Код


with fiz[length(fiz)-1] do

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

Код


with fiz[i-1] do

Автор: Frees 4.3.2010, 23:09

массив не нужен ссылку на запись можно хранить в 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;

Автор: Samhein 4.3.2010, 23:23

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

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

Автор: Matematik 5.3.2010, 00:38

Цитата(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;