|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
 |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
17.05.2015, 09:26
|
|||
|
|||
Помогите найти ошибку и исправить ее
При запуске программы выдает сообщение "Project raised exception class ElistError with message 'list index out of bounds(0)'.'
Указывает на 7 форму. Я не знаю что делать нужно в такой ситуации, Помогите пожалуйста) Вот листинг. Указывает ошибку в Код:
procedure FormCreate(Sender: TObject);
"unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, ComCtrls, Buttons, DB, ADODB;
type
TForm7 = class(TForm)
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
DBEdit1: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Label6: TLabel;
Label1: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
Label55: TLabel;
Label74: TLabel;
Label68: TLabel;
Label69: TLabel;
Label70: TLabel;
Label71: TLabel;
Label72: TLabel;
Label73: TLabel;
Label56: TLabel;
Label75: TLabel;
Label76: TLabel;
Label77: TLabel;
Label78: TLabel;
Label79: TLabel;
Label80: TLabel;
Label81: TLabel;
Label82: TLabel;
Label83: TLabel;
Label84: TLabel;
Label85: TLabel;
Label87: TLabel;
Label88: TLabel;
Label89: TLabel;
Label90: TLabel;
Label91: TLabel;
Label86: TLabel;
Label92: TLabel;
Label93: TLabel;
Label94: TLabel;
Label95: TLabel;
Label96: TLabel;
Label97: TLabel;
Label98: TLabel;
Label99: TLabel;
Label100: TLabel;
Label101: TLabel;
Label102: TLabel;
Label103: TLabel;
Label104: TLabel;
Label105: TLabel;
Label106: TLabel;
Label57: TLabel;
DBEdit67: TDBEdit;
DBEdit68: TDBEdit;
DBEdit69: TDBEdit;
DBEdit70: TDBEdit;
DBEdit71: TDBEdit;
DBEdit72: TDBEdit;
DBEdit73: TDBEdit;
DBEdit74: TDBEdit;
DBEdit75: TDBEdit;
DBEdit76: TDBEdit;
DBEdit77: TDBEdit;
DBEdit78: TDBEdit;
DBEdit79: TDBEdit;
DBEdit80: TDBEdit;
DBEdit81: TDBEdit;
DBEdit82: TDBEdit;
DBEdit83: TDBEdit;
DBEdit84: TDBEdit;
DBEdit85: TDBEdit;
DBEdit86: TDBEdit;
DBEdit87: TDBEdit;
DBEdit88: TDBEdit;
DBEdit89: TDBEdit;
DBEdit90: TDBEdit;
DBEdit91: TDBEdit;
DBEdit92: TDBEdit;
DBEdit93: TDBEdit;
DBEdit94: TDBEdit;
DBEdit95: TDBEdit;
DBEdit96: TDBEdit;
DBEdit97: TDBEdit;
DBEdit98: TDBEdit;
DBEdit99: TDBEdit;
DBEdit100: TDBEdit;
DBEdit101: TDBEdit;
DBEdit102: TDBEdit;
DBEdit103: TDBEdit;
DBEdit104: TDBEdit;
DBEdit105: TDBEdit;
DBEdit106: TDBEdit;
DBEdit107: TDBEdit;
DBEdit108: TDBEdit;
DBEdit109: TDBEdit;
DBEdit110: TDBEdit;
DBEdit111: TDBEdit;
DBEdit112: TDBEdit;
DBEdit113: TDBEdit;
DBEdit114: TDBEdit;
DBEdit115: TDBEdit;
DBEdit116: TDBEdit;
StatusBar1: TStatusBar;
GroupBox1: TGroupBox;
BitBtn4: TBitBtn;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
Label3: TLabel;
DBEdit2: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
DBEdit17: TDBEdit;
DBEdit18: TDBEdit;
DBEdit19: TDBEdit;
DBEdit20: TDBEdit;
DBEdit21: TDBEdit;
DBEdit22: TDBEdit;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit25: TDBEdit;
DBEdit26: TDBEdit;
DBEdit27: TDBEdit;
DBEdit28: TDBEdit;
DBEdit29: TDBEdit;
DBEdit30: TDBEdit;
DBEdit31: TDBEdit;
DBEdit32: TDBEdit;
DBEdit33: TDBEdit;
DBEdit34: TDBEdit;
DBEdit35: TDBEdit;
DBEdit36: TDBEdit;
DBEdit37: TDBEdit;
DBEdit38: TDBEdit;
DBEdit39: TDBEdit;
DBEdit40: TDBEdit;
DBEdit41: TDBEdit;
DBEdit42: TDBEdit;
DBEdit43: TDBEdit;
DBEdit44: TDBEdit;
DBEdit45: TDBEdit;
DBEdit46: TDBEdit;
DBEdit47: TDBEdit;
DBEdit48: TDBEdit;
DBEdit49: TDBEdit;
DBEdit50: TDBEdit;
DBEdit51: TDBEdit;
DBEdit52: TDBEdit;
DBEdit53: TDBEdit;
DBEdit54: TDBEdit;
DBEdit55: TDBEdit;
DBEdit56: TDBEdit;
DBEdit57: TDBEdit;
DBEdit58: TDBEdit;
DBEdit59: TDBEdit;
DBEdit60: TDBEdit;
DBEdit61: TDBEdit;
DBEdit62: TDBEdit;
DBEdit63: TDBEdit;
DBEdit64: TDBEdit;
DBEdit65: TDBEdit;
DBEdit66: TDBEdit;
DBEdit117: TDBEdit;
DBEdit118: TDBEdit;
DBEdit119: TDBEdit;
DBEdit120: TDBEdit;
DBEdit121: TDBEdit;
DBEdit122: TDBEdit;
DBEdit123: TDBEdit;
DBEdit124: TDBEdit;
DBEdit125: TDBEdit;
DBEdit126: TDBEdit;
DBEdit127: TDBEdit;
DBEdit128: TDBEdit;
DBEdit129: TDBEdit;
DBEdit130: TDBEdit;
DBEdit131: TDBEdit;
DBEdit132: TDBEdit;
DBEdit133: TDBEdit;
DBEdit134: TDBEdit;
DBEdit135: TDBEdit;
DBEdit136: TDBEdit;
DBEdit137: TDBEdit;
DBEdit138: TDBEdit;
DBEdit139: TDBEdit;
DBEdit140: TDBEdit;
DBEdit141: TDBEdit;
DBEdit142: TDBEdit;
DBEdit143: TDBEdit;
DBEdit144: TDBEdit;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
{$R *.dfm}
procedure TForm7.BitBtn2Click(Sender: TObject);
begin
if ADOTable1.Modified then
ADOTable1.Post;
end;
procedure TForm7.BitBtn3Click(Sender: TObject);
begin
ADOTable1.Delete;
end;
procedure TForm7.BitBtn1Click(Sender: TObject);
begin
Form7.Close();
end;
end.Последний раз редактировалось Admin, 17.05.2015 в 13:45. |
|
#3
17.05.2015, 10:46
|
|||
|
|||
Цитата:
|
|
#4
17.05.2015, 10:30
|
||||
|
||||
|
На одной форме разместить больше 100 компонентов ввода - от души сочувствую оператору который это все будет заполнять.
На лицо явно неправильное проектирование. |
| Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение: | ||
gewasop (19.05.2015)
| ||
|
#5
17.05.2015, 10:40
|
|||
|
|||
|
Простите,я первый раз здесь, поэтому могу что-то неправильно делать.
Насчет того что много размещено(программа разрабатывается по утвержденным МинКульт РФ формам, поэтому нужны все поля, нельзя ничего изменять). По первому вопросу: Подскажите что именно нужно скинуть( и где это находиться). Я еще учусь поэтому не все еще знаю. |
|
#6
17.05.2015, 10:43
|
|||
|
|||
|
Код:
procedure TForm7.BitBtn2Click(Sender: TObject);
begin
if ADOTable1.Modified then
ADOTable1.Post;
end;
procedure TForm7.BitBtn3Click(Sender: TObject);
begin
ADOTable1.Delete;
end;
procedure TForm7.BitBtn1Click(Sender: TObject);
begin
Form7.Close();
end;
procedure TForm7.FormCreate(Sender: TObject);
begin
StatusBar1.Panels[0].Text := FormatDateTime('dd.mm.yyyy',now);
end;
end.Не увидела что не вошел кусочек. Последний раз редактировалось Admin, 17.05.2015 в 13:46. |
|
#7
17.05.2015, 10:49
|
|||
|
|||
|
Цитата:
Насчет количества полей ответила ниже. Помогите пожалуйста, уже всю программу сделала. Все работало.Потом начала добавлять код для скролбара и после начались проблемы с этой формой. а сдавать через неделю... |
|
#8
17.05.2015, 11:01
|
|||
|
|||
|
Все, помощь не нужна)))Удалила все скролбары и все заработало))Спасибо всем кто откликнулся) и все же нужно следовать правилу "на хрен то,чего не должно быть"))
 |
Комбинированный вид
