Delphi prisijungimo forma

Sveiki, kažkas ne taip. Tik negaliu pats pasitaisyti. Turiu pasidares prisijungimą(mokytojo) - skaitymas iš txt failo.

Turiu tai pat Administracinį prisijungimą pasidares, tai pat iš .txt failo skaitymas, bet ten tik 2 eilutes parašytos(vardas ir slaptažodis), lengvai nuskaito ir viskas gerai. Prisijunges per administratorių, padariau teises per ten galima sukurti Mokytojo vartotoją. Viskas gerai, įrašo į txt failą.

Problema tame, jog kai bandai jungtis per Mokytojo prisijungimą nuskaito Vardą ir Slaptažodį iš txt failo, kai paspaudi prisijungti, meta lentele:

Vardas arba Slaptažodis blogai įvestas. (Nors gerai įvestas), kas svarbiausia paspaudinėji apie 8-9 kartus lentele(OK) prisijunge prie norimo lango. Tačiau negali normaliai prisijungti prie to lango norimo, išvada - Blogai su If'ais arba kodą blogai esu pasirašes.

Nuotraukoje galite pamatyti, kokia meta lentele, kai prisijungi su pirmais duomenimis, tai yra Pirma eilute(Vardas) ir Antra eilute(Slaptažodis). Tai pat nuotraukoje matote .txt failo, mokytojų sąrašas.

Kodas to viso veikimo:

procedure TForm6.SpeedButton1Click(Sender: TObject);
var k,l,n,vard,pass: string;
   A:TextFile;
begin
 vard := Edit1.Text;
 l := Edit2.Text;
 AssignFile(A,'mokytojoV.dat');
 Reset(A);
 if (Edit1.Text = '') and (Edit2.Text = '') then ShowMessage ('Vardas ir slaptazodis neuzpildytas')
     else
if (Edit1.Text = '') then ShowMessage('Vardas neuzpildytas')
 else
if (Edit2.Text = '') then ShowMessage('Slaptazodis neuzpildytas');
 while not Eof(A) do begin
   ReadLn(A,n);
   ReadLn(A,pass);
   if (vard = n) and (l = pass) then begin
         Form6.visible:=False;
         Form3.Show;
       end
     else
       begin
         ShowMessage('Vardas arba Slaptazodis blogai ivestas');
         Edit1.Text:='';
         Edit2.Text:='';

       end;

 end;
       closefile(A);
end;
end.

Kas tikrai supranta ir gali padėti, padėkit labai reikia, nes padarysiu šitą tada galėsiu prie kito etapo judėti. Ačiū iš anksto.

Sveiki, ar atsirastu žinančių?

if (vard = n) and (l = pass) then begin

Na, jei delphi tas pats kaip c++, tai ar lygu rašosi ==, o daugiau klaidų nematau..

if (vard = n) and (l = pass) then begin

Na, jei delphi tas pats kaip c++, tai ar lygu rašosi ==, o daugiau klaidų nematau..

delphi kaip pascal, čia viskas gerai.

Google -> delphi debugger

ismok naudotis ir nebereikes list i forumus su tokiais klausimais.