![]() | |
| | #1 (permalink) |
| Üye Üyelik Tarihi: 05/2008
Mesaj: 46
| Edit butona gerek kalmaksızın kodla oluşturulan güzel bir örnek 3 hakta verilmiştir,3 hakkını bilemedimi kişi form açılmıyacaktır, gerekli kodu form create yazmak yeterlidir ama ben komple bırakacağım en azından end bitişlerinde hata almassınız Kod: unit Unit1; Kod: interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
sayi:Integer;
sifre:AnsiString;
dugme:Boolean;
begin
sayi:=1;
dugme:=InputQuery('Şifreyi Giriniz','Şifre',sifre);
if dugme Then
begin
while(sifre<>'1234')do
begin
if sayi>=3 Then
begin
ShowMessage('Üç Hakkınızdada Bilemediniz. Program Kapanacak');
Halt;
end
else
begin
dugme:=InputQuery('Şifreyi Giriniz','Şifre',sifre);
inc(sayi);
end;
end;
end
else
begin
ShowMessage('Program Kapatılacak');
Halt;
end;
end;
end. |
| | |
![]() |
| Bookmarks |
| Seçenekler | |
| |
Benzer Konular | ||||
| Konu | Konuyu açana göre | Forum | Cevap | En Son Mesaj |
| Sayfa Yaratma | cbaris | PHP | 14 | 21/05/2008 23:36 |
| Fonksiyon Yaratma Problemi | skacurt | ASP | 5 | 23/03/2008 16:46 |
| XML yaratma problemi | dubrovski | Java / JSP | 1 | 22/04/2006 11:18 |
| php ile resim dosyası yaratma | gozum | PHP | 4 | 29/07/2005 11:38 |
| Program sayesinde klasöre şifre koyabilirmiyim.Koyduğum şifre ile nasıl açarım. | SİNELSAN | Visual Basic | 5 | 05/05/2004 12:50 |
| Reklamlar & Desteklenenler | |
| Hassas Valf | Hassas Kaplama | Antalyamız | Gazete | Ticari Bilişim | Hakan Müştak | Rüya Tabirleri | Kadın | Hastalıklar | Cepte msn ve e-posta | Webmaster | Antalya Aupair | Turkish Property Antalya | Forum | Chat | Perde | Adsl | Araba | bolindir.com | guncelle.com | livescore | Web Tasarım | evden eve nakliyat | forum | evden eve | sohbet | Resimcim| Kalifiye İnsan Kaynakları | Web Tasarım | Oyun | Yusuf KOÇ | Akın Yorulmaz | şiir | UFO | Web Tasarım | Oyunlar | Canlı Tv | |