unit registration;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
TForm2 =
class(TForm)
Label1: TLabel;
Benutzername: TEdit;
Label2: TLabel;
Passwort: TEdit;
Passwort2: TEdit;
Label3: TLabel;
Label4: TLabel;
Email: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form2: TForm2;
implementation
uses login, main;
{$R *.dfm}
procedure TForm2.Button2Click(Sender: TObject);
begin
Form1.Visible := true;
Form2.Close;
Form1.Client.Disconnect;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
Buffer :
string;
Reg : byte;
begin
If Passwort.Text <> Passwort2.Text
then Showmessage('
Die Passwörter sind nicht identisch!');
If Passwort.Text = '
'
then Showmessage('
Bitte wähle ein Passwort!');
If Benutzername.Text = '
'
then Showmessage('
Der Benutzername darf nicht leer sein!');
If Email.Text = '
'
then Showmessage('
Bitte gib eine E-Mail Adresse ein!');
if Passwort.Text = Passwort2.Text
then
begin
if Benutzername.Text <> '
'
then
begin
if Email.Text <> '
'
then
begin
Reg := 1;
end;
end;
begin
if Reg = 1
then
begin
Form1.Client.Connect(5000);
Form1.Client.WriteLn('
Register' + '
|' + Form2.Benutzername.Text + '
|' + Form2.Passwort.Text + '
|' + Form2.EMail.Text);
Buffer := Form1.Client.ReadLn;
if Buffer = '
Erstellt'
then
begin
Showmessage('
Account wurde erfolgreich erstellt!');
Form2.Close;
Form1.Show;
Form1.Client.Disconnect;
Button1.Enabled := false;
end;
if Buffer = '
Vorhanden'
then Showmessage('
Account existiert bereits!');
end;
end;
end;
end;
end.