Programlama yapalım ve Öğrenelim.

Delphi fonksiyonlarına birkaç örnek (derleme)

//Pos fonksiyonu

procedure TForm1.HazirlaClick(Sender: TObject);

label 1;

var I: integer;

Dosya: string;

begin

ListBox1.Clear;

for I:= 0 to FileListBox1.Items.Count - 1 do

begin

Dosya:= FileListBox1.Items.Strings[I];

if Pos('.', Dosya) > 0 then //Nokta(. işareti) buluncaya kadar döngü

begin //devam eder.

Dosya:= Copy(Dosya, 1, Pos('.', Dosya) - 1); //Dosya'nın .işareti olan

//kısmına kadar kopyalar

//Örnek: deneme.exe (dosyanız) -> Copy('deneme.exe',1,Pos('.','deneme.exe')-1);

//Sonuç --> deneme olarak kalır. Bu durumda Copy fonksiyonu içindeki 1 başlangıç,

//Pos('.','deneme.exe')-1 ise, .işaretininden 1 eksik karekter kadar demektir.

//deneme.exe dosyasında 1 -> d harfi, Pos('.','deneme.exe')-1 -> . işaretinden

//bir önceki e harfidir. Eğer .exe kısmını atarsak deneme 6 karekterlidir.

//Copy('deneme', 1, 6) anlamına gelir. Pos('.','deneme.exe')-1 -> 6 reel sayısını

//döndürür. Sonuç -> deneme

//Dosya:= 'Deneme.Exe';

//Copy(Dosya,Pos('.', Dosya)+1,Length(Dosya)); şeklindeki bir ifade ise;

//Deneme.Exe isimli dosyanın sadece " Exe " kısmını döndürür. Sonuç -> Exe

if Pos('.', Dosya) = 0 then GoTo 1; //başka .işareti bulamazsa döngü

end; //sonlanır ve Label 1 olarak tanımlı

end; //satıra gider (GoTo 1). Bu şartsız

//gidiştir. Başka yere gitme şansı yok

1://

Hazirla.Enabled:= False;

Aktar.Enabled:= True;

end;

*Bu kodlama, DosyaAdı ve DosyaUzantısı bulma ve ayırma işleminde kullanılabilir.

*Yukarıdaki satırlar, şuan piyasada FreeWare olarak çalışan fotoğraf stüdyoları için

yazdığım "Arşiv" programımda bulunmaktadır(ve tabii diğerlerinde de).

//Trunc, Int, Frac ve Round fonksiyonları

//Pi --> Pi sayısını verir ( 3,1415926535897932385 )

var

Z, Y: string;

R, S: real;

Z:= IntToStr(Trunc(1.4)); //kesirli kısmı atar. - (negatif) işaretliler için de

//geçerli (sonuç = 1)

R:= Int(123.456); //kesirli kısmı atar. - (negatif) işaretliler için de

//geçerli (sonuç = 123)

S:= Frac(123.456); //tam sayı kısmını atar. - (negatif) işaretliler için de

//geçerli (sonuç = 0,456)

Y:= IntToStr(Round(1.5)); // ,5 den ,9 e kadar tam sayı kısmına 1 ekler. Sonuç = 2

//Round(1.4) olsaydı Sonuç = 1 olacaktı. - (negatif) işaretliler için de geçerli

ShowMessage('Z = ' + Z +#10+ 'R = ' + FloatToStr(R) +#10+ 'S = ' + FloatToStr(S)

+#10+ 'Y = ' + Y +#10+ 'Pi = ' + FloatToStr(Pi));

//Real sayılar için FloatToStr(RealSayı) çevrimini kullanınız, Pi de bir Real sayıdır.

Not: Eklenecek o kadar çok fonksiyon var ki :)

Ancak, unutmayınız ki, sizin için en iyi yardımcı kullandığınız programın

Yardım(Help) dosyasıdır. Hemen hemen *.exe dosyanın yarısı kapasitesinde

*.hlp / *.html dosya hazırlanır. Lütfen, klavyenizden şu F1(Yardım) tuşuna

basmayı ihmal etmeyiniz ve naçizane tavsiyem, yazdığınız programlarda da F1 tuşuna

yardım dosyanızdan başka kısayol tanımlamayınız. F1 --> Kayıt demeyiniz. F1 zaten

Windows'un standart kısayol tuşudur. Windows ile zıtlaşmaya hiç gerek yok )

Hatta, F1 DOS(DiskOperatingSystem - Disk İşletim Sistemi)'un da yardım dosyasını

çalıştırır(programlamada gözünü DOS'la açanlar çok iyi bilir).

F1'i Formula One ile karıştırmayınız.

İşinizi görmesi dileğimle,

Çalışmalarınızda başarılar dilerim.

NeverFear - kaheri579@hotmail.com

Delphi - .....................................

Ad Soyad Bölme ( POS ve Trim fonksiyonları )

NeverFear - kaheri579@hotmail.com

*** Delphi x.0 (Delphi 2005 ve sonrası sürümlerde denenmedi)

* Bileşen Hint'lerinin StatusBar'da gösterimi.

* Formlardaki nesnelerin kontrolü.

* POS, Trim fonksiyonlarının kullanımına örnek.

* 4 Ad 1 Soyad için bölme yapar. Geliştirmek sizin elinizde.

//*.pas ve *.dfm kısımları

//*.pas kısmı

unit AdSoyad;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ComCtrls, StdCtrls, ExtCtrls, Buttons;

type

Tfrm_AdSoyadBol = class(TForm)

StatusBar1: TStatusBar;

Panel1: TPanel; Panel2: TPanel; Panel3: TPanel;

Panel4: TPanel; Panel5: TPanel; Panel6: TPanel;

Panel7: TPanel;

Edit_AdSoyad: TEdit; Edit_Ad1: TEdit; Edit_Ad2: TEdit;

Edit_Ad3: TEdit; Edit_Ad4: TEdit; Edit_Soyad: TEdit;

Edit_Adi: TEdit; Edit_Soyadi: TEdit;

BitBtn_Basla: TBitBtn; BitBtn_Kapat: TBitBtn;

BitBtn_Temizle: TBitBtn;

Timer1: TTimer;

procedure FormCreate(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure BitBtn_BaslaClick(Sender: TObject);

procedure BitBtn_KapatClick(Sender: TObject);

procedure Edit_AdSoyadChange(Sender: TObject);

procedure BitBtn_TemizleClick(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Edit_AdSoyadExit(Sender: TObject);

procedure Edit_AdSoyadKeyPress(Sender: TObject; var Key: Char);

procedure Edit_Ad1Click(Sender: TObject);

procedure BitBtn_KapatMouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

private

{ Private declarations }

public

procedure DisplayHint(Sender: TObject);

procedure Ad_Soyad_Bol;

procedure Saha_Temizle;

procedure Saha_Giris_Ac;

procedure Saha_Giris_Kapa;

end;

var

frm_AdSoyadBol: Tfrm_AdSoyadBol;

AdSoyad: string;

Basilan_Tus: TObject;

implementation

{$R *.DFM}

procedure Tfrm_AdSoyadBol.DisplayHint(Sender: TObject);

begin

//Bileşen Hint'lerinin StatusBar'da gösterimi

StatusBar1.Panels.Items[0].Text:= Application.Hint;

end;

procedure Tfrm_AdSoyadBol.FormCreate(Sender: TObject);

begin

//Bileşen Hint'lerinin StatusBar'da gösterimi

Application.ShowHint:= True;

Application.OnHint:= DisplayHint;

end;

procedure Tfrm_AdSoyadBol.FormShow(Sender: TObject);

begin

Saha_Temizle;

Saha_Giris_Kapa;

BitBtn_Basla.Enabled:= False;

BitBtn_Temizle.Enabled:= False;

end;

procedure Tfrm_AdSoyadBol.BitBtn_BaslaClick(Sender: TObject);

begin

Ad_Soyad_Bol;

Saha_Giris_Kapa;

BitBtn_Basla.Enabled:= False;

BitBtn_Temizle.Enabled:= True;

end;

procedure Tfrm_AdSoyadBol.BitBtn_KapatClick(Sender: TObject);

begin

Close;

end;

procedure Tfrm_AdSoyadBol.Saha_Temizle;

var I: integer;

begin

//Form'daki neslerin kontrölü

for I:= 0 to ComponentCount - 1 do

if (Components[I] is TEdit) then TEdit(Components[I]).Text:= '';

end;

procedure Tfrm_AdSoyadBol.Saha_Giris_Kapa;

var I: integer;

begin

//Form'daki neslerin kontrölü

for I:= 0 to ComponentCount - 1 do

if (Components[I] is TEdit) then TEdit(Components[I]).ReadOnly:= True;

Edit_AdSoyad.ReadOnly:= False;

end;

procedure Tfrm_AdSoyadBol.Saha_Giris_Ac;

var I: integer;

begin

//Form'daki neslerin kontrölü

for I:= 0 to ComponentCount - 1 do

if (Components[I] is TEdit) then TEdit(Components[I]).ReadOnly:= False;

end;

procedure Tfrm_AdSoyadBol.Edit_AdSoyadChange(Sender: TObject);

begin

if Edit_AdSoyad.Text = '' then BitBtn_Basla.Enabled:= False;

end;

procedure Tfrm_AdSoyadBol.Ad_Soyad_Bol;

Label 1;

var SAT1_AD,Ad1,Ad2,Ad3,Ad4,Ad5,Ad,Soyad: string;

begin

//Ad Soyad bölme ve birden fazla ad birleştirme

AdSoyad:= Edit_AdSoyad.Text;

SAT1_AD:= Edit_AdSoyad.Text;

Ad1:= SAT1_AD; Ad2:= ''; Ad3:= ''; Ad4:= ''; Ad5:= '';

if Pos(' ', SAT1_AD) > 0 then

begin

Ad1:= Copy(SAT1_AD,1,Pos(' ', SAT1_AD));

SAT1_AD:= Copy(SAT1_AD,Pos(' ', SAT1_AD)+1,Length(SAT1_AD));

Edit_Ad1.Text:= Ad1;

Edit_Soyad.Text:= SAT1_AD;

if Pos(' ', SAT1_AD) = 0 then GoTo 1;

if Pos(' ', SAT1_AD) > 0 then

begin

Ad2:= Copy(SAT1_AD,1,Pos(' ', SAT1_AD));

SAT1_AD:= Copy(SAT1_AD,Pos(' ', SAT1_AD)+1,Length(SAT1_AD));

Edit_Ad1.Text:= Ad1;

Edit_Ad2.Text:= Ad2;

Edit_Soyad.Text:= SAT1_AD;

if Pos(' ', SAT1_AD) = 0 then GoTo 1;

if Pos(' ', SAT1_AD) > 0 then

begin

Ad3:= Copy(SAT1_AD,1,Pos(' ', SAT1_AD));

SAT1_AD:= Copy(SAT1_AD,Pos(' ', SAT1_AD)+1,Length(SAT1_AD));

Edit_Ad1.Text:= Ad1;

Edit_Ad2.Text:= Ad2;

Edit_Ad3.Text:= Ad3;

Edit_Soyad.Text:= SAT1_AD;

if Pos(' ', SAT1_AD) = 0 then GoTo 1;

if Pos(' ', SAT1_AD) > 0 then

begin

Ad4:= Copy(SAT1_AD,1,Pos(' ', SAT1_AD));

Ad5:= Copy(SAT1_AD,Pos(' ', SAT1_AD)+1,Length(SAT1_AD));

Edit_Ad1.Text:= Ad1;

Edit_Ad2.Text:= Ad2;

Edit_Ad3.Text:= Ad3;

Edit_Ad4.Text:= Ad4;

Edit_Soyad.Text:= Ad5;

if Pos(' ', SAT1_AD) = 0 then GoTo 1;

end;

Ad1:= Trim(Ad1); Ad2:= Trim(Ad2); Ad3:= Trim(Ad3);

Ad4:= Trim(Ad4); Ad5:= Trim(Ad5);

1://

if Ad5 <> '' then

begin

Ad:= Ad1 + ' ' + Ad2 + ' ' + Ad3 + ' ' + Ad4;

Soyad:= Ad5;

end

else if Ad5 = '' then

begin

Ad:= Ad1 + ' ' + Ad2 + ' ' + Ad3;

Soyad:= SAT1_AD;

end

else if Ad3 <> '' then

begin

Ad:= Ad1 + ' ' + Ad2;

Soyad:= Ad3;

end

else begin

Ad:= Ad1;

Soyad:= Ad2;

end;

Edit_Adi.Text:= Ad;

Edit_Soyadi.Text:= Soyad;

end;

procedure Tfrm_AdSoyadBol.BitBtn_TemizleClick(Sender: TObject);

begin

Saha_Giris_Ac;

Saha_Temizle;

if Edit_AdSoyad.CanFocus then Edit_AdSoyad.SetFocus;

Edit_AdSoyad.Text:= Ogr_AdSoyad;

Saha_Giris_Kapa;

BitBtn_Temizle.Enabled:= False;

end;

procedure Tfrm_AdSoyadBol.Timer1Timer(Sender: TObject);

begin

//Sistem saatinin StatusBar'da gösterimi

StatusBar1.Panels.Items[1].Text:= TimeToStr(Time);

end;

procedure Tfrm_AdSoyadBol.Edit_AdSoyadExit(Sender: TObject);

begin

if Edit_AdSoyad.Text <> '' then BitBtn_Basla.Enabled:= True;

if Basilan_Tus = BitBtn_Kapat then BitBtn_KapatClick(Basilan_Tus)

else if BitBtn_Basla.CanFocus then BitBtn_Basla.SetFocus;

end;

procedure Tfrm_AdSoyadBol.Edit_AdSoyadKeyPress(Sender: TObject;

var Key: Char);

begin

if Key = #13 then Edit_AdSoyadExit(Edit_AdSoyad);

end;

procedure Tfrm_AdSoyadBol.Edit_Ad1Click(Sender: TObject);

begin

if Edit_AdSoyad.CanFocus then Edit_AdSoyad.SetFocus;

end;

procedure Tfrm_AdSoyadBol.BitBtn_KapatMouseUp(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

BitBtn_Basla.Enabled:= False;

if Button = mbLeft then

begin

Basilan_Tus:= BitBtn_Kapat;

BitBtn_KapatClick(Basilan_Tus);

end;

end.

//*.dfm kısmı

object frm_AdSoyadBol: Tfrm_AdSoyadBol

Left = 246

Top = 193

Hint = ' Program Hazır ... [ F1 .Yardım Alt+F4 .Programı Kapat ]'

BorderIcons = [biSystemMenu]

BorderStyle = bsSingle

Caption = 'Ad Soyad Böl'

ClientHeight = 236

ClientWidth = 427

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

Icon.Data = {

0000010001002020100000000000E80200001600000028000000200000004000

0000010004000000000080020000000000000000000000000000000000000000

000000008000008000000080800080000000800080008080000080808000C0C0

C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF004444

44444444444444444444444444444FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF44F44

44444444444444444444444444F44F4444444444444444444444444444F44F44

44444444444444444444444444F44F444444444FFFFFF4444444444444F44F44

44444FFFFFFFFFF44444444444F44F444444FFFFFFFFFFFFF444444444F44F44

4444FFFFFFFFFFFFFF44444444F44F44444FFFFFFFFFFFFFFFF4444444F44F44

444FFFFFFF4444FFFFFF444444F44F44444FFFFFF4444444FFFFF44444F44F44

444FFFFFF444444444FFFF4444F44F44444FFFFFF4444444444FFFF444F44F44

444FFFFFFFF444444444FFF444F44F44444FFFFFFFFFF44444444FF444F44F44

444FFFFF44FFFF444444444444F44F444444FFFF4444FFF44444444444F44F44

4444FFFF44444FFF4444444444F44F4444444FFFF44444FFF444444444F44F44

44444FFFFF44444FFF44444444F44F44444444FFFFF44444FFF4444444F44F44

4444444FFFFF44444FFF444444F44F4444444444FFFFF44444FFF44444F44F44

444444444FFFFFF444FFFF4444F44F4444444444444FFFFFFFFFFF4444F44F44

444444444444FFFFFFFFFF4444F44F4444444444444444FFFFFFF44444F44F44

44444444444444444444444444F44F4444444444444444444444444444F44FFF

FFFFFFFFFFFFFFFFFFFFFFFFFFF4444444444444444444444444444444440000

0000000000000000000000000000000000000000000000000000000000000000

000000000000000000000000000000000000000000000000000000000000}

OldCreateOrder = True

Position = poScreenCenter

OnCreate = FormCreate

OnShow = FormShow

PixelsPerInch = 96

TextHeight = 13

object StatusBar1: TStatusBar

Left = 0

Top = 217

Width = 427

Height = 19

Panels = <

item

Width = 342

end

item

Alignment = taCenter

Width = 51

end

item

Text = 'KE'

Width = 25

end>

end

object Panel1: TPanel

Left = 5

Top = 5

Width = 72

Height = 21

Alignment = taLeftJustify

BorderStyle = bsSingle

Caption = ' Adı Soyadı'

TabOrder = 1

end

object Edit_AdSoyad: TEdit

Left = 80

Top = 5

Width = 342

Height = 21

Hint = ' Adı Soyadı'

TabOrder = 2

Text = 'Edit_AdSoyad'

OnChange = Edit_AdSoyadChange

OnExit = Edit_AdSoyadExit

OnKeyPress = Edit_AdSoyadKeyPress

end

object Panel2: TPanel

Left = 5

Top = 29

Width = 72

Height = 21

Alignment = taLeftJustify

BorderStyle = bsSingle

Caption = ' Adı_1'

TabOrder = 3

end

object Edit_Ad1: TEdit

Left = 80

Top = 29

Width = 342

Height = 21

Hint = ' Ad_1'

TabOrder = 4

Text = 'Edit_Ad1'

OnClick = Edit_Ad1Click

end

object Panel3: TPanel

Left = 5

Top = 53

Width = 72

Height = 21

Alignment = taLeftJustify

BorderStyle = bsSingle

Caption = ' Adı_2'

TabOrder = 5

end

object Edit_Ad2: TEdit

Left = 80

Top = 53

Width = 342

Height = 21

Hint = ' Ad_2'

TabOrder = 6

Text = 'Edit_Ad2'

OnClick = Edit_Ad1Click

end

object Panel4: TPanel

Left = 5

Top = 77

Width = 72

Height = 21

Alignment = taLeftJustify

BorderStyle = bsSingle

Caption = ' Adı_3'

TabOrder = 7

end

object Edit_Ad3: TEdit

Left = 80

Top = 77

Width = 342

Height = 21

Hint = ' Ad_3'

TabOrder = 8

Text = 'Edit_Ad3'

OnClick = Edit_Ad1Click

end

object Panel5: TPanel

Left = 5

Top = 101

Width = 72

Height = 21

Alignment = taLeftJustify

BorderStyle = bsSingle

Caption = ' Adı_4'

TabOrder = 9

end

object Edit_Ad4: TEdit

Left = 80

Top = 101

Width = 342

Height = 21

Hint = ' Ad_4'

TabOrder = 10

Text = 'Edit_Ad4'

OnClick = Edit_Ad1Click

end

object Panel6: TPanel

Left = 5

Top = 125

Width = 72

Height = 21

Alignment = taLeftJustify

BorderStyle = bsSingle

Caption = ' Soyadı'

TabOrder = 11

end

object Edit_Soyad: TEdit

Left = 80

Top = 125

Width = 342

Height = 21

Hint = ' Soyadı'

TabOrder = 12

Text = 'Edit_Soyad'

OnClick = Edit_Ad1Click

end

object BitBtn_Basla: TBitBtn

Left = 99

Top = 181

Width = 75

Height = 25

Hint = ' Girilen adı ve soyadı bölme işlemini başlatır ...'

Caption = '&Başla'

TabOrder = 13

OnClick = BitBtn_BaslaClick

Glyph.Data = {

76010000424D7601000000000000760000002800000020000000100000000100

04000000000000010000130B0000130B00001000000000000000000000000000

800000800000008080008000000080008000808000007F7F7F00BFBFBF000000

FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303

333333333333337FF3333333333333903333333333333377FF33333333333399

03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999

99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999

99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099

03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003

33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333

33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333

3333777777333333333333333333333333333333333333333333}

NumGlyphs = 2

end

object BitBtn_Kapat: TBitBtn

Left = 253

Top = 181

Width = 75

Height = 25

Hint = ' Programı Kapatır ... [ Alt+F4.Kapat ]'

Caption = '&Kapat'

TabOrder = 14

OnClick = BitBtn_KapatClick

OnMouseUp = BitBtn_KapatMouseUp

Glyph.Data = {

BE060000424DBE06000000000000360400002800000024000000120000000100

0800000000008802000000000000000000000001000000000000000000000000

80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA

A600000000000000000000000000000000000000000000000000000000000000

0000000000000000000000000000000000000000000000000000000000000000

000000000000000000000000000000000000F0FBFF00A4A0A000808080000000

FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0003F8F8F8F8F8

F8F8F8F80707FF07FF07F807FFF8F8F8F8F8F8F8F8F8F8030303030303FF0404

0404040000F8F8F8FFFFFF0404040404F8F8F8F8F8F8F8F8F8F8FF030303FFFF

F8FF0303030304FD05000007FFFFFF0403030303F8F8F8F8F8F8F8F8F8F80303

03F8F8F8F8FF030303030405FD0500FFFFFFFF040303030303030303F8FFF8F8

F8FF030303F8FF0303FF0303030304FD05FD00FFFFFFFF040303030303030303

F8F807F8F8FF030303F8FF0303FF030303030405FD0500FFFEFFFE0403030303

03030303F8FFF807F8FF030303F8FF0303FF0303030304FD05FD00FFFFFFFF04

0303030303030303F8F807F8F8FF030303F8FF0303FF030303030405FD0500FF

FEFFFE040303030303030303F8FFF807F8FF030303F8FF0303FF0303030304FD

05FD00FFFFFFFF040303030303030303F8F807F8F8FF030303F8FF0303FF0303

03030405FD0500FFFEFFFE040303030303030303F8FFF807F8FF030303F8FF03

03FF0303030304FD05FD00FEFFFEFF040303030303030303F8F807F8F8FF0303

03F8FF0303FF030303030405FD0500FFFEFFFE040303030303030303F8FFF807

F8FF030303F8FF0303FF0303030304FD05FD00FEFFFEFF040303030303030303

F8F807F8F8FF030303F8FF0303FF030303030404040404040404040403030303

03030303F8FFF8FFF8FFFFFFFFF8FF0303FF0303030303030303030303030303

0303030303030303F8F8F8F8F8F8F8F8F8F8030303FF03030303030300000000

000003030303030303030303030303FFFFFFFFFFFF03030303FF030303030303

00FAFAFAFA00030303030303030303030303F8F8F8F8F8F8FF03030303FF0303

03030303000000000000030303030303030303030303F8FFFFFFFFF8FF030303

03FF}

NumGlyphs = 2

end

object BitBtn_Temizle: TBitBtn

Left = 176

Top = 181

Width = 75

Height = 25

Hint = ' " Adı Soyadı " hariç, diğer sahaları temizler ...'

Caption = '&Temizle'

TabOrder = 15

OnClick = BitBtn_TemizleClick

Glyph.Data = {

76010000424D7601000000000000760000002800000020000000100000000100

04000000000000010000120B0000120B00001000000000000000000000000000

800000800000008080008000000080008000808000007F7F7F00BFBFBF000000

FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000

3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070

33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070

333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070

03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070

33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777

0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033

3333333337FFF7F3333333333000003333333333377777333333}

NumGlyphs = 2

end

object Panel7: TPanel

Left = 5

Top = 149

Width = 72

Height = 21

Alignment = taLeftJustify

BorderStyle = bsSingle

Caption = ' Adı / Soyadı'

TabOrder = 16

end

object Edit_Adi: TEdit

Left = 80

Top = 149

Width = 170

Height = 21

Hint = ' Adı Soyadı'

TabOrder = 17

Text = 'Edit_Adi'

OnChange = Edit_AdSoyadChange

OnClick = Edit_Ad1Click

end

object Edit_Soyadi: TEdit

Left = 252

Top = 149

Width = 170

Height = 21

Hint = ' Adı Soyadı'

TabOrder = 18

Text = 'Edit_Soyadi'

OnChange = Edit_AdSoyadChange

OnClick = Edit_Ad1Click

end

object Timer1: TTimer

OnTimer = Timer1Timer

Left = 340

Top = 176

end

İşinizi görmesi dileğimle,

Çalışmalarınızda başarılar dilerim.

NeverFear - kaheri579@hotmail.com

Delphi - .....................................

DBGrid'de seçilen satırın ekran görüntüsü

NeverFear - kaheri579@hotmail.com

//Not: Delphi 7.0 için;

//Eğer Quick Reports paketini kurmadıysanız Delphi 7.0Bin dizini altındaki

//dclqrt70.bpl dosyasını eklemeniz gerekir.

//[Menüde ComponentInstall Packages...Add sırasını izleyip]

//Delphi 5.0 - 6.0 için bu işlemi yapmanıza gerek yok.

//Form1 üzerine 1 DBGrid, 1 Table1, 1 DataSource,

//1 PrinterSetupDialog, 1 PrintDialog1 ve 1 Button ekleyin.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, ComCtrls, ExtCtrls, Mask,

QuickRpt, Qrctrls, Printers, QRPrntr, QrExtra;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

Table1: TTable;

DataSource1: TDataSource;

PrinterSetupDialog1: TPrinterSetupDialog;

PrintDialog1: TPrintDialog;

Button3: TButton;

procedure DBGrid1DblClick(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

aReport: TQuickRep;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.DBGrid1DblClick(Sender: TObject);

begin

if DBGrid1.SelectedRows.Count > 0 then begin

with DBGrid1.DataSource.DataSet do begin

try

Application.CreateForm(TForm2, Form2);

if not DBGrid1.Fields[0].IsNull then Form2.QRLabel7.Caption:= DBGrid1.Fields[0].Value;

//"if not DBGrid1.Fields[0..n].IsNull then" şeklinde bir kod, programınızın

//kırılmasını engelleyecektir. Bu, tüm "Field" aktarımları için geçerli ve sorun

//çıkarmayan, çıkmasını kontrol altında tutan bir yöntem olduğu düşüncesindeyim.

if not DBGrid1.Fields[1].IsNull then Form2.QRLabel8.Caption:= DBGrid1.Fields[1].Value;

if not DBGrid1.Fields[2].IsNull then Form2.QRLabel9.Caption:= DBGrid1.Fields[2].Value;

if not DBGrid1.Fields[3].IsNull then Form2.QRLabel10.Caption:= DBGrid1.Fields[3].Value;

if not DBGrid1.Fields[4].IsNull then Form2.QRLabel11.Caption:= DBGrid1.Fields[4].Value;

if not DBGrid1.Fields[5].IsNull then Form2.QRLabel12.Caption:= DBGrid1.Fields[5].Value;

if not DBGrid1.Fields[6].IsNull then Form2.QRLabel13.Caption:= DBGrid1.Fields[6].Value;

if not DBGrid1.Fields[7].IsNull then Form2.QRLabel14.Caption:= DBGrid1.Fields[7].Value;

if not DBGrid1.Fields[8].IsNull then Form2.QRLabel15.Caption:= DBGrid1.Fields[8].Value;

Form2.QR.ShowProgress:= False;

aReport:= Form2.QR;

Printer.PrinterIndex:= -1;

aReport.Preview;

finally

Form2.Free;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

end.

Not: DBGrid1.Options dgRowSelect True olmalı.

QR -> Form2 üzerindeki QuickRep1 bileşeni

////////////////////////////////////////////////////////////////////////////////

//Form2 üzerine 1 QuickRep (Bu kodlamaya göre Name = QR),

//QuickRep üzerine 2 adet QRBand,

//QRBand'lar üzerine listelenmesini istediğiniz Field'lerinizin 2 katı QRLabel ve

//başlıklarla dataların birbirine karışmaması için Shape ekleyiniz.

//Örnek;

// STOK LİSTESİ (QRLabel1)

// Stok No(QRLabel2) Stok Adı(QRL3) Birim(QRL4) Brm.Miktar(QRL5) .........

//-------------------------------------------------------------------------------- Shape1

// StokNo(QRL6 StokAdi(QRL7 Birim(QRL8 BrmMiktar(QRL9 .........

// -SağaDayalı) -SolaDayalı) -Ortalı) -SağaDyalı)

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, QuickRpt, QRPrntr, QRCtrls, Printers, DB, DBTables, QrExtra;

type

TForm2 = class(TForm)

QR: TQuickRep;

QRBand1: TQRBand;

QRLabel1: TQRLabel;

QRBand2: TQRBand;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRShape1: TQRShape;

QRLabel7: TQRLabel;

QRLabel8: TQRLabel;

QRLabel9: TQRLabel;

QRLabel10: TQRLabel;

QRLabel11: TQRLabel;

QRLabel12: TQRLabel;

QRLabel13: TQRLabel;

QRLabel14: TQRLabel;

QRLabel15: TQRLabel;

QRLabel16: TQRLabel;

QRLabel17: TQRLabel;

QRLabel18: TQRLabel;

QRLabel19: TQRLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

end.

Not: QRLabel7'den QRLabel15'e kadar olan bileşenler QRBand2 üzerinde.

QRBand2.BandType "rbSummary" olmalı.

QRBand1.BandType "rbTitle" olmalı.

Form2 üzerindeki QR -> QuickRep1 bileşeni

İşinizi görmesi dileğimle,

Çalışmalarınızda başarılar dilerim.

NeverFear - kaheri579@hotmail.com

Delphi - .....................................

Bileşen Hint'lerinin StatusBar'da gösterimi

NeverFear - kaheri579@hotmail.com

public

procedure DisplayHint(Sender: TObject);

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.DisplayHint(Sender: TObject);

begin

StatusBar1.Panels.Items[0].Text:= Application.Hint;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

StatusBar1.Panels.Items[1].Text:= TimeToStr(Time);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Application.ShowHint:= True;

Application.OnHint:= DisplayHint;

//Yukarıdaki iki satır kodlamadan sonra;

Form1.Hint:= 'İfade1| İfade2'; // " | " işareti klavyedeki Alt Gr + < (>) tuşu ile

//elde edilir (bilmeyenler için).

Form1.ShowHint:= True; // olursa (hazır değer False),

//StatusBar1.Panels.Items[0].Text'de İfade2, Form üzerinde İfade1 görülür.

//Bunu Object Inspector'de Formun Hint özelliğine de yazabilirsiniz.

//ShowHint True yaparsanız;

//Form1.Hint:= 'İfade1| İfade2';

//Form1.ShowHint:= True; kısmını kodlamanıza gerek kalmaz.

//Object Inspector'de StatusBar1'ın Panels özelliğini kullanarak

//StatusBar1.Panels.Items[0] için Width (formunuzun büyüklüğüne göre) 350 - 650 arası

//StatusBar1.Panels.Items[1] için Width 52 olabilir.

//Daha fazla Item varsa, ona göre ayarlama yapmalısınız.

end;

İşinizi görmesi dileğimle,

Çalışmalarınızda başarılar dilerim.

Delphi - .....................................