|
|
Регистрация | << Правила форума >> | 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. |
#2
|
|||
|
|||
Это что???
Код:
w:=логин.text; t:=пароль.Text; А ошибка скорее всего тут: Код:
E:=ADOTable1.Fields[1].AsInteger; |
#3
|
||||
|
||||
Цитата:
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#4
|
|||
|
|||
Цитата:
Даже знаю с какой примено - с 2009, кторая юникодная. Но руки за такое отрывать надо. |
#5
|
||||
|
||||
А у меня подозрение что в цикле слишком много нулей,правда,не считал, может здесь банальный выход из диапазона integer?
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#6
|
|||
|
|||
Да не, это точно ошибка конвертации.
|