Anonymní profil Hologos – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Hologos – Programujte.comAnonymní profil Hologos – Programujte.com

 

Příspěvky odeslané z IP adresy 83.208.3.–

Hologos
Delphi › Jak vytvořit jakousi registr…
1. 6. 2008   #75599

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;

Hologos
Delphi › Jak vytvořit jakousi registr…
1. 6. 2008   #75598

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;


Nevýhody?
Nikde tu nevidím, že pokud se Franta zaregistruje s heslem Pepík, a pak se zaregistruje Pepík s heslem Franta, že se pak nemůže přihlásit Franta s heslem Franta a Pepík s heslem Pepík.

Ty datové soubory je to nejlepší, co ti můžu doporučit.

Hologos
Delphi › Jak vytvořit jakousi registr…
1. 6. 2008   #75597

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.

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032021 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý