[Morfey85]

Проблема в том что при при запуске вданном виде вроде работает
но если убрать коментарии с двух строк внизу там где про ListBox
программа компилируется и при нажатии кнопки Button1Click
выдает ошибку не могу понять почему

И вообще если будут замечания по коду и советы как изменить в лучшую сторону буду очень благодарен.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

procedure TForm1.FormPaint(Sender: TObject); var   z,x,k:integer;   fam,imia,otch,s:String; begin   z:=TabControl1.TabIndex;   ADOTable1.First;   TabControl1.Tabs.Clear;   Memo1.Lines.Clear;   for k:=0 to ADOTable1.RecordCount-1 do   begin     s:=ADOTable1.FieldValues['Фамилия'];     s:=s[1];     if Memo1.Lines.Count=0 then Memo1.Lines.Add(s) else       if Memo1.Lines.IndexOf(s)>=0 then continue else         if s>Memo1.Lines[Memo1.Lines.Count-1] then Memo1.Lines.Add(s) else           for x:=0 to Memo1.Lines.Count-1 do             if s<Memo1.Lines[x] then             begin               Memo1.Lines.Insert(x,s);               break;             end;     ADOTable1.Next;   end;   TabControl1.Tabs:=Memo1.Lines;   TabControl1.TabIndex:=z;   s:=Memo1.Lines[z];   ADOTable1.First;   for k:=0 to ADOTable1.RecordCount-1 do   begin     fam:=ADOTable1.FieldValues['Фамилия'];     if s=fam[1] then     begin       imia:=ADOTable1.FieldValues['Имя'];       otch:=ADOTable1.FieldValues['Отчество']; //      ListBox1.Items[k]:=fam+' '+imia[1]+'. '+otch+'.'; //      ListBox2.Items[k]:=ADOTable1.FieldValues['ID'];     end;     ADOTable1.Next;   end;   end;   procedure TForm1.Button1Click(Sender: TObject); begin   FormPaint(Sender); end;

[Aristarh Dark]

Вообще-то стоило указать что за ошибка.
Я думаю ты пытаешься добавить в ListBox значения, а делается это так:

Код:

1	ListBox.Items.Append('все что дуще угодно');

[Morfey85]

Попробывал так и вот так:

ListBox1.Items.Insert(x,fam+' '+imia[1]+'. '+otch+'.');
ListBox2.Items.Insert(x,ADOTable1.FieldValues['ID']);

все равно не помогло

[Morfey85]

Все разобрался вот так заработало

ADOTable1.First;
ListBox1.Items.Clear;
ListBox2.Items.Clear;
x:=0;
for k:=0 to ADOTable1.RecordCount-1 do
begin
fam:=ADOTable1.FieldValues['Фамилия'];
if s=fam[1] then
begin
imia:=ADOTable1.FieldValues['Имя'];
otch:=ADOTable1.FieldValues['Отчество'];
ListBox1.Items.Insert(x,fam+' '+imia[1]+'. '+otch+'.');
ListBox2.Items.Insert(x,ADOTable1.FieldValues['ID']);
inc(x);
end;
ADOTable1.Next;
end;