Thema: Delphi alternativen zu close???

Einzelnen Beitrag anzeigen

brutus

Registriert seit: 12. Sep 2003
45 Beiträge
 
#1

alternativen zu close???

  Alt 1. Apr 2005, 20:33
hier ist mein quellcode
Delphi-Quellcode:
procedure TFDUP.FormCreate(Sender: TObject);
begin
hacker:=0;
uni:=TAuswertung.create;
user;
//DATEI SCHLIESSEN !!!!
end;

procedure tfdup.user;
VAR PW:string;
begin

uni.id:=strtoint(InputBox('Bitte geben sie ihre Benutzer-ID ein','Ihre ID',inttostr(-maxint)));
PW:=InputBox('Bitte geben sie ihr Passwort ein'
             ,'Ihr Passwort','OI');
IF (uni.id<>0) OR ((PW<>'OI')) THEN
 IF NOT passwort(pw) THEN
  BEGIN
   showmessage('Das von ihnen eingegeben Passwort ist Falsch !');
   inc(hacker);
   CASE hacker OF
   1..3: IF MessageDlg('Wollen sie es noch einmal probieren?',
            mtConfirmation, [mbYes, mbNo], 0) = mrYes
         THEN user
         ELSE
          BEGIN
           MessageDlg('Das Programm wird beendet.', mtInformation, [mbOk], 0);
           //DATEI SCHLIESSEN !!!!
          END;

      4: BEGIN
              showmessage('Sie haben zum 4. mal ein falsches Passwort eingegeben'+#13+
                     'Überprüfen sie die folgende Eingabe besonders sorgfältig !!!');
              user;
         END;
      5: BEGIN
              showmessage('Sie haben zum 5. mal ein falsches Passwort eingegeben'+#13+
                          'Das Programm wird beendet !');

          //DATEI SCHLIESSEN !!!!
         END

 ELSE
    BEGIN
     showmessage('Gratulation !'+#13+''+''+#13+''+'Ihr Passwort ist richtig !'+#13+'');
     showmessage('Herzlich Willkomen'+#13+''+''+#13+''+name+'!'+#13+'');
     hacker:=0;
    END;
end;
end;
end;
also mit close wird das programm nicht geschlossen weil es ebend bei form create drinne steht- was kann ich stattdessen machen???
Der, Die Das,
Wer ,Wie, Was,
Wieso? Weshalb? Warum?
Wer nicht fragt bleibt dumm.
  Mit Zitat antworten Zitat