25 Mayıs 2012 Cuma
DELPHİ'DE YAPILAN ÖRNEK UYGULAMALAR
DELPHİ'DE YAPILAN ÖRNEK UYGULAMALAR
Örnek 1) Formun başlığını değiştirmek ve forma tıklandığında mesaj veren program
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure Mesaj(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Mesaj(Sender: TObject);
begin
showmessage('aaaaaa');
Form1.Caption:=('borland Delphi 7')
end;
end.
Örnek 2) Boolean değişkenini kullanarak ögrencinin inputbox fonksiyonu ile girilen notunun 50'den büyükse geçerli not 50 den küçükse geçerli not değil oldğunu gösteren,ögrencinin aldığı notun 0-100 arası olması gerektiğini gösteren programı yazınız.
procedure TForm1.FormClick(Sender: TObject);
var
sonuc:Boolean;
sinav_sonucu:integer;
begin
sinav_sonucu:=strtoint(inputbox('sınav sonucunu ','lütfen 0-100 arası değer giriniz..',''));
sonuc:=sinav_sonucu>50;
sonuc:=sinav_sonucu<100;
if sonuc=true then
showmessage('alınan sonuç geçerli');
if sonuc=false then
showmessage('alınan sonuç geçerli değil');
if sinav_sonucu>100 then
showmessage('girdiğiniz değer sınav aralığından büyük olduğundan dolayı geçerli değildir..lütfen 0-100 arası değer giriniz..');
end;
end.
Örnek 3)Herhangi bir değişkene 2 farklı değer atadığımızda en son girdiğimiz değeri kaideye alan program.
procedure TForm1.FormClick(Sender: TObject);
var
degisken1:variant;
tip:variant;
begin
degisken1:='dddd';
degisken1:=121;
tip:= vartype(degisken1);
showmessage(tip);
end;
end.
Örnek 4) Tarih ve zaman atamalarını yapan program.
procedure TForm1.FormClick(Sender: TObject);
var
tarih:tdatetime;
zaman:tdatetime;
begin
tarih:=strtodate('25.05.2012');
zaman:=strtodate('22:30');
end;
end.
Örnek 5) ilk 4 karekterden sonrasını silen program.
procedure TForm1.Button1Click(Sender: TObject);
var
sehir:String;
sonuc:String;
begin
sehir:='erzincan';
sonuc:=leftstr(sehir,4);
showmessage(sonuc);
end;
end.
Kaydol:
Kayıt Yorumları (Atom)
Hiç yorum yok:
Yorum Gönder