Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 20.11.2008, 03:11
Morfey85 Morfey85 вне форума
Прохожий
 
Регистрация: 20.11.2008
Сообщения: 3
Репутация: 10
По умолчанию Помогите не пойму почему ошибка

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

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

Код:
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;
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:10.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025