|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Ошибка ''is not a valid integer value
Код:
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, 25.05.2018 в 22:05. |