Jak vytvořit jakousi registraci v delphi? – Delphi – Fórum – Programujte.com

Zdar,
potřebuju pomoc, dělám do školy projekt a chci v Delphi vytvořit jakousi registraci (kdy se to, co někdo napíše do Editu uloží a bude to možné použít v dalším Editu v jiném formuláři) Díky za rady...

Zdar,
potřebuju pomoc, dělám do školy projekt a chci v Delphi vytvořit jakousi registraci (kdy se to, co někdo napíše do Editu uloží a bude to možné použít v dalším Editu v jiném formuláři) Díky za rady...

Můžeš to jednoduše uložit do texťáku a pak načíst. Ale ty asi máš ty dva formuláře zapnuté najednou, takže to můžeš jednouduše načíst např.: Edit2.Caption:=Form1.Edit1.Caption

To spartan13 :

No já bych právě chtěl aby se to někam ukládalo a při dalším spuštění se uživatel nemusel znova registrovat...

Tak dej, aby se při zapnutí aplikace pokusila data načíst z nějakého souboru, pokud to proběhne úspěšně, tak to uživatele pustí dál a pokud neúspěšně, tak ho to požádá o registraci, ne?:-)

To Chrasty :

panejo :) já s delphi dělám teprve 1/2 roku, takže s tim zas tolik neumim, tak kdyžtak napiš zdroják, nebo popiš podrobněji pls dik

pomozte pls někdo..pokročil jsem, ale stále nic moc, ted sem na to takhle :

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Label2.Caption:='Uživatel : '+Edit1.Text;
Form9.Memo1.Lines.LoadFromFile(Edit1.Text+'.txt');
Form9.Memo2.Lines.LoadFromFile('_'+Edit2.Text+'.txt');

if Edit1.Text=Form9.Memo1.Text
then begin if Edit2.Text=Form9.Memo2.Text then
begin Form2.Show;
Form1.Hide;
end
else
Label3.Caption:='špatné přihlašovací jméno';
end
else
Label3.Caption:='špatné heslo';

end;

a když to spustim a do editu napíšu nezaregistrované jméno, tak to napíše chybu, protože to nemůže načís neexistující soubor. Najděte mi tam někdo chybu prosím..předem děkuji

pomozte pls někdo..pokročil jsem, ale stále nic moc, ted sem na to takhle :

procedure TForm1.Button1Click(Sender: TObject);
begin
Form9.Memo1.Lines.LoadFromFile(Edit1.Text+'.txt');
Form9.Memo2.Lines.LoadFromFile('_'+Edit2.Text+'.txt');

if Edit1.Text=Form9.Memo1.Text
then begin if Edit2.Text=Form9.Memo2.Text then
begin Form2.Show;
Form1.Hide;
end
else
Label3.Caption:='špatné přihlašovací jméno';
end
else
Label3.Caption:='špatné heslo';

end;

a když to spustim a do editu napíšu nezaregistrované jméno, tak to napíše chybu, protože to nemůže načís neexistující soubor. Najděte mi tam někdo chybu prosím..předem děkuji

To druhý je upravený!!

Kód sem dávej v code, jinak s Delphi ti já nepomůžu, neumím ho, jen jsem ti napsal takový algoritmický postup:-) Btw, za půl roku se toho dá zvládnout..:-)

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.

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; 

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; 

ok moc děkuju

Škoda jen, že je Delphi na práci se soubory dost těžkopádné.