[дум]

Код:

procedure TForm14.Button1Click(Sender: TObject);
var i,g,e:integer;
begin
r:='leo';
s:='12345';
w:=логин.text;
t:=пароль.Text;
if (t=r) and (w=s) then
begin
  button4.Visible:=true;
  button1.Visible:=false;
  DBGrid1.Visible:=true;
  DBNavigator1.Visible:=true;
end
else
begin for I := 1 to 300 do
        begin
    if (w=f[i])and (y[i]=t) then
    begin
   edit3.Visible:=true;
   edit4.Visible:=true;
   cчёт.Visible:=true;
   label1.Visible:=true;
   label4.Visible:=true;
   label2.Visible:=true;
   label3.Visible:=true;
   button2.Visible:=true;
   button3.Visible:=true;
   button4.Visible:=true;
   button5.Visible:=true;
   логин.Visible:=false;
   пароль.Visible:=false;
   button1.Visible:=false;
   for g := 1 to i do
   begin
   ADOTable1.First;
    ADOTable1.Next;
   if g=i then
   begin

   E:=ADOTable1.Fields[1].AsInteger;


   end;
    end;

    label1.Caption:=inttostr(E div 10000000000);
    j:=E mod 10000000000;
    label2.Caption:=inttostr(j div 100000);
    label3.Caption:=inttostr(E mod 100000);

[lmikle]

Это что???

Код:

w:=логин.text;
t:=пароль.Text;

А ошибка скорее всего тут:

Код:

E:=ADOTable1.Fields[1].AsInteger;

Скорее всего там в поле NULL сидит, так что идет попытка конвертировать его, а точнее пустую строку, в которую он превращяется, в целое число. Вот оно и падает.

[Aristarh Dark]

Сообщение от lmikle

Это что???

Код:

w:=логин.text;
t:=пароль.Text;

Не поверишь, но с какой-то там версии (давно уже) можно давать переменным имена на русском.

[lmikle]

Сообщение от Aristarh Dark

Не поверишь, но с какой-то там версии (давно уже) можно давать переменным имена на русском.

Даже знаю с какой примено - с 2009, кторая юникодная.
Но руки за такое отрывать надо.

[Alegun]

А у меня подозрение что в цикле слишком много нулей,правда,не считал, может здесь банальный выход из диапазона integer?

[lmikle]

Да не, это точно ошибка конвертации.