Инициализация переменной

[Raf5456]

Написал код для входа, но выходит ошибка [Warning] Vxod1.pas(64): Variable 'Varh' might not have been initialized
Не могу понять, что не так.

procedure TVxod.ButtonVxodClick(Sender: TObject);

var LogPass:Array of string;
Varh,I,H:integer;
ResultLogPass:string;
begin
SetLength(LogPass,800);

ADODataSetUserTable.Active:=True;

ADODataSetUserTable.First;

for I := 0 to ADODataSetUserTable.RecordCount -1 do //Обработка логина и пароля пользователя
  begin
  LogPass[I]:=ADODataSetUserTable.FieldValues['Username']+''+ADODataSetUserTable.FieldValues['UserPass'];
  ADODataSetUserTable.Next;
  Inc(Varh);
  end;


ResultLogPass:=Trim(EditLogin.Text)+' '+Trim(EditPassword.Text);
for H:=0 to Varh do
  begin
  if ResultLogPass = LogPass[H] then
   begin
    bron.ShowModal;
    end
    else
    LabelInfoNone.Caption:='Не верный логин или пароль';
   end;
end;

[digitalis]

Ну дык козе понятно:

Inc(Varh);

а что до того было в Varh ? Не стоит полагаться, что система при загрузке программы обнулит всё и всех - начальное значение переменной надо присваивать явно.
Ну хотя бы так:

  Varh := 0 ;

[Raf5456]

digitalis, понял, спасибо

[ViktorR]

Ещё замечание:

Написал код для входа, но выходит ошибка [Warning] Vxod1.pas(64): Variable 'Varh' might not have been initialized

Это не ошибка, а предупреждение, и код будет работать. Вот только насколько правильно?
Предупреждения можно и нужно анализировать, но можно и игнорировать.
С ошибками (Error) код не сформируется.

[Raf5456]

]ViktorR[/B], значение присвоил. Ошибок/предупреждений нет. Но после того, как введешь правильный логин/пароль, сразу появляется сообщение :"Не верный логин или пароль". Подскажите пожалуйста. В чем проблема?
dd9fbf24-b58f-4bbf-afa0-0973b1f8cda8.jpg

8d158099-e842-4f43-835f-faf8f9719a26.jpg

[macomics]

Вот тут

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

LogPass[I]:=ADODataSetUserTable.FieldValues['Username']+''+ADODataSetUserTable.FieldValues['UserPass'];

у вас пробел отсутствует, а тут

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

ResultLogPass:=Trim(EditLogin.Text) +' '+Trim(EditPassword.Text);

присутствует. Но без тега [CODE][/CODE] это лишь догадка.

[Raf5456]

macomics,да, верно, я это переделал(Все равно спасибо). Но сообщение все равно выходит, если даже логин/пароль верны. Цикл перепроверил, вроде без ошибок написано.

[macomics]

Надо бы убрать вывод сообщения об ошибке из цикла проверки. Т.е. добавьте переменную флаг, которую сбрасывайте при совпадении пароля, а после цикла, если флаг не сброшен, выводите сообщение.

[Raf5456]

macomics, Хорошо, попробую. Спасибо большое.