Anonymní profil Hologos – Programujte.com

Oprava

procedure TForm1.Button1Click(Sender: TObject);

    var 

       Login, Password : String;

begin

    Password := Edit1.Text+'.txt';

    Login := '_'+Edit2.Text+'.txt';



    Form9.Memo1.Lines.LoadFromFile(Login);

    Form9.Memo2.Lines.LoadFromFile(Password);



    if (FIleExists(Password)) then begin

        if(FileExists(Login)) then begin

            ShowMessage('Úspěšně jste se přihlásil.'); 

            Form2.Show;

            Form1.Hide;

        end else begin

            Label3.Caption := 'Zadal jste neexistující přihlašovací jméno.';

        end;

    end else begin

        Label3.Caption := 'Zadal jste špatné heslo.';

    end;

end; 

Co když někdo ve jméně použije tečku? Třeba nezadá jméno, ale nickname s tečnou, dvojtečkou, lomítko atp? To ti uložení souboru spadne a soubor se nevytvoří. A pokud se bude při přihlašování na to odvolávat, tak ho to taky nepustí.

Takže kód něco na způsob ala (jestli jsem to správně pochopil):

procedure TForm1.Button1Click(Sender: TObject);

    var 

       Login, Password : String;

begin

    Login := Edit1.Text+'.txt';

    Password := '_'+Edit2.Text+'.txt';



    Form9.Memo1.Lines.LoadFromFile(Login);

    Form9.Memo2.Lines.LoadFromFile(Password);



    if (FIleExists(Login)) then begin

        if(FileExists(Soubor2)) then begin

            ShowMessage('Úspěšně jste se přihlásil.'); 

            Form2.Show;

            Form1.Hide;

        end else begin

            Label3.Caption := 'Zadal jste neexistující přihlašovací jméno.';

        end;

    end else begin

        Label3.Caption := 'Zadal jste špatné heslo.';

    end;

end; 

Používej funkci FileExists. Pokud zjištuješ podle existence souboru, zda je uživatel zaregistrován, tak pokud vrátí fce FileExists True -> Registrovaný, když False -> neregistrovaný. Podle mně je to ale něco jako drbání se levou rukou za pravým uchem.

Jestli v tom začínáš, bylo by lepší použít třeba datový soubory. Mají určitou strukturu, a tak jsou na tohle přímo stvořené. I když je to trochu prehistorické. Jestli se chceš zdokonalit, tak doporučuji nějakou EmbeddedDatabase.