Exe İçine Dosya Gömme (ANLATIM)
Ben bunu ç ok arad ı m k ı sa bir zaman ö nce forumlarda felan iyi anlat ı lamam ış t ı.
İ n ş allah ben anlatt ı ktan sonra kapars ı n ı z .. Asl ı nda ingilizce anlatan bir site var
ama herkesin ingilizcesi iyi de ğ il .. Yani öğ renin ingilizce .. En acemi adam ı n bile
anlayaca ğı bi ç imde anlatt ı m . Bilenlere zaten laf ı m ı z yok . Yak ı nda manyak programlarla
giriyom ortama
Ba ş l ı yoruz ö ncelikle a çı klayacaklar ı m . wav , . avi ve . mp3 dosyalar ı nas ı l g ö m ü l ü r .
Wave (. wav ) Dosyas ı Nas ı l G ö m ü l ü r Ç al ış t ı r ı l ı r ...
Bir . wav dosyas ı alal ı m . Ad ı muslum . wav olsun (Ş uan M ü sl ü m babay ı dinliyom ). Bu dosyay ı
C : 'ye atalım.Gene C:' de bir text dosyas ı olu ş tural ı m . Ve i ç ine ş unlar ı girelim .
muslum WAVE " c : muslum . wav " Bunlar ı yazd ı ktan sonra dosyay ı muslum . rc
olarak kaydedelim .Ş imdi C : 'de muslum.wav(Müzik dosyamız) ve muslum.rc dosyamız var.
Sonra Ba ş lat - programlar - Donat ı lar - Ms - dos komut istemini a ç al ı m .
C :/ Windows yazacakt ı r orda . Onun yan ı na ( cd ..) parantez i ç indekini yaz ı n enter 'a basın
Yani şö le bi ş ey olcak c :/ windows > cd .. tamam .Ş imdi c : yazcak sadece .Ş imdi oraya
( brcc32 muslum . rc ) parantez i ç indekini yazcaz . Oda şö le bi ş ey olcak
c :/> brcc32 muslum . rc enter a bast ığı m ı z zaman c : 'de muslum.res dosyası oluşmuş olacak
Bu 3 dosyay ı al ı p ekleyece ğ imiz program ı n oldu ğ u klasore at ı n . Ve kodunuzda şö le biyer var
{$R *.DFM} Bunun yan ı na {$R muslum.RES} bunu ekleyin .. implemention un alt ı nda
Şö le olcak {$R *.DFM} {$R muslum.RES} oke mi ? Ş imdi gelelim nas ı l ç al ış t ı raca ğı m ı za
Formda bir button olsun buna bas ı nca ç als ı n ş ark ı m ı z ..
uses k ı sm ı na mmsystem eklemeyi unutmay ı n !!!!!!!!
procedure TForm1 . Button1Click ( Sender : TObject );
var
hFind , hRes : THandle ;
Song : PChar ;
begin
hFind := FindResource ( HInstance , 'msulum' , 'WAVE' );
if hFind <> 0 then begin
hRes := LoadResource ( HInstance , hFind );
if hRes <> 0 then begin
Song := LockResource ( hRes );
if Assigned ( Song ) then
SndPlaySound ( Song , snd_ASync or snd_Memory );
UnlockResource ( hRes );
end ;
FreeResource ( hFind );
end ;
end ;
hepsi bu kadar ......
Avi (. avi ) Nas ı l G ö m ü l ü r Ç al ış t ı r ı l ı r ....
Yukarda nas ı l . rc dosyas ı yarataca ğı n ı z ı anlatt ı m Bundada . rc dosyas ı n ı n i ç ine
F İ LM AVI film . avi yaz ı n ..( Benim avi 'min ismi film di siz değiştirebilirsiniz.)
Gene film . res dosyam ı z olu ş tuktan sonra program ı yapt ığı n ı z klasore at ı n .
a çı n delphiyle gene kodunuzu {$R film.RES} bunu eklemeyi unutmay ı n ..
nas ı l ç al ış t ı racan ı z
procedure TForm1 . FormCreate ( Sender : TObject );
begin
with Animate1 do begin
ResName := 'film' ;
ResHandle := hInstance ;
Active := TRUE ;
end ;
end ;
hepsi bu kadar .......
Mp3 (. mp3 ) Nas ı l G ö m ü l ü r Ç al ış t ı r ı l ı r .....
Gene . rc yi olu ş turun i ç ine ş unlar ı yaz ı n senbaskasin RCDATA senbaskasin . mp3
Ms - dosta yukardaki gibi senbaskasin . res dosyas ı n ı olu ş turun . klasore at ı n .
gene kodunuza {$R senbaskasin.RES} eklemeyi unnutmay ı n .
Nas ı l ç al ış t ı r ı r ı z ...
procedure TForm1 . Button1Click ( Sender : TObject );
var
rStream : TResourceStream ;
fStream : TFileStream ;
fname : string ;
begin
fname := ExtractFileDir ( Paramstr ( 0 ))+ 'senbaskasin.mp3' ;
rStream := TResourceStream . Create
( hInstance , 'senbaskasin' , RT_RCDATA );
try
fStream := TFileStream . Create ( fname , fmCreate );
try
fStream . CopyFrom ( rStream , 0 );
finally
fStream . Free ;
end ;
finally
rStream . Free ;
end ;
MediaPlayer1 . Close ;
MediaPlayer1 . FileName := fname ;
MediaPlayer1 . Open ;
end ;
--------------------------------------------------------------------------------
Delphi - .....................................
Exe İçine Dosya Gömme (ANLATIM)
VictiMHunteR.... victim_hunter @ yahoo . com
Ben bunu ç ok arad ı m k ı sa bir zaman ö nce forumlarda felan iyi anlat ı lamam ış t ı.
İ n ş allah ben anlatt ı ktan sonra kapars ı n ı z .. Asl ı nda ingilizce anlatan bir site var
ama herkesin ingilizcesi iyi de ğ il .. Yani öğ renin ingilizce .. En acemi adam ı n bile
anlayaca ğı bi ç imde anlatt ı m . Bilenlere zaten laf ı m ı z yok . Yak ı nda manyak programlarla
giriyom ortama
Ba ş l ı yoruz ö ncelikle a çı klayacaklar ı m . wav , . avi ve . mp3 dosyalar ı nas ı l g ö m ü l ü r .
Wave (. wav ) Dosyas ı Nas ı l G ö m ü l ü r Ç al ış t ı r ı l ı r ...
Bir . wav dosyas ı alal ı m . Ad ı muslum . wav olsun (Ş uan M ü sl ü m babay ı dinliyom ). Bu dosyay ı
C : 'ye atalım.Gene C:' de bir text dosyas ı olu ş tural ı m . Ve i ç ine ş unlar ı girelim .
muslum WAVE " c : muslum . wav " Bunlar ı yazd ı ktan sonra dosyay ı muslum . rc
olarak kaydedelim .Ş imdi C : 'de muslum.wav(Müzik dosyamız) ve muslum.rc dosyamız var.
Sonra Ba ş lat - programlar - Donat ı lar - Ms - dos komut istemini a ç al ı m .
C :/ Windows yazacakt ı r orda . Onun yan ı na ( cd ..) parantez i ç indekini yaz ı n enter 'a basın
Yani şö le bi ş ey olcak c :/ windows > cd .. tamam .Ş imdi c : yazcak sadece .Ş imdi oraya
( brcc32 muslum . rc ) parantez i ç indekini yazcaz . Oda şö le bi ş ey olcak
c :/> brcc32 muslum . rc enter a bast ığı m ı z zaman c : 'de muslum.res dosyası oluşmuş olacak
Bu 3 dosyay ı al ı p ekleyece ğ imiz program ı n oldu ğ u klasore at ı n . Ve kodunuzda şö le biyer var
{$R *.DFM} Bunun yan ı na {$R muslum.RES} bunu ekleyin .. implemention un alt ı nda
Şö le olcak {$R *.DFM} {$R muslum.RES} oke mi ? Ş imdi gelelim nas ı l ç al ış t ı raca ğı m ı za
Formda bir button olsun buna bas ı nca ç als ı n ş ark ı m ı z ..
uses k ı sm ı na mmsystem eklemeyi unutmay ı n !!!!!!!!
procedure TForm1 . Button1Click ( Sender : TObject );
var
hFind , hRes : THandle ;
Song : PChar ;
begin
hFind := FindResource ( HInstance , 'msulum' , 'WAVE' );
if hFind <> 0 then begin
hRes := LoadResource ( HInstance , hFind );
if hRes <> 0 then begin
Song := LockResource ( hRes );
if Assigned ( Song ) then
SndPlaySound ( Song , snd_ASync or snd_Memory );
UnlockResource ( hRes );
end ;
FreeResource ( hFind );
end ;
end ;
hepsi bu kadar ......
Avi (. avi ) Nas ı l G ö m ü l ü r Ç al ış t ı r ı l ı r ....
Yukarda nas ı l . rc dosyas ı yarataca ğı n ı z ı anlatt ı m Bundada . rc dosyas ı n ı n i ç ine
F İ LM AVI film . avi yaz ı n ..( Benim avi 'min ismi film di siz değiştirebilirsiniz.)
Gene film . res dosyam ı z olu ş tuktan sonra program ı yapt ığı n ı z klasore at ı n .
a çı n delphiyle gene kodunuzu {$R film.RES} bunu eklemeyi unutmay ı n ..
nas ı l ç al ış t ı racan ı z
procedure TForm1 . FormCreate ( Sender : TObject );
begin
with Animate1 do begin
ResName := 'film' ;
ResHandle := hInstance ;
Active := TRUE ;
end ;
end ;
hepsi bu kadar .......
Mp3 (. mp3 ) Nas ı l G ö m ü l ü r Ç al ış t ı r ı l ı r .....
Gene . rc yi olu ş turun i ç ine ş unlar ı yaz ı n senbaskasin RCDATA senbaskasin . mp3
Ms - dosta yukardaki gibi senbaskasin . res dosyas ı n ı olu ş turun . klasore at ı n .
gene kodunuza {$R senbaskasin.RES} eklemeyi unnutmay ı n .
Nas ı l ç al ış t ı r ı r ı z ...
procedure TForm1 . Button1Click ( Sender : TObject );
var
rStream : TResourceStream ;
fStream : TFileStream ;
fname : string ;
begin
fname := ExtractFileDir ( Paramstr ( 0 ))+ 'senbaskasin.mp3' ;
rStream := TResourceStream . Create
( hInstance , 'senbaskasin' , RT_RCDATA );
try
fStream := TFileStream . Create ( fname , fmCreate );
try
fStream . CopyFrom ( rStream , 0 );
finally
fStream . Free ;
end ;
finally
rStream . Free ;
end ;
MediaPlayer1 . Close ;
MediaPlayer1 . FileName := fname ;
MediaPlayer1 . Open ;
end ;
--------------------------------------------------------------------------------
Delphi - .....................................
Exe İçine Dosya Gömme (ANLATIM)
VictiMHunteR.... victim_hunter @ yahoo . com
Ben bunu ç ok arad ı m k ı sa bir zaman ö nce forumlarda felan iyi anlat ı lamam ış t ı.
İ n ş allah ben anlatt ı ktan sonra kapars ı n ı z .. Asl ı nda ingilizce anlatan bir site var
ama herkesin ingilizcesi iyi de ğ il .. Yani öğ renin ingilizce .. En acemi adam ı n bile
anlayaca ğı bi ç imde anlatt ı m . Bilenlere zaten laf ı m ı z yok . Yak ı nda manyak programlarla
giriyom ortama
Ba ş l ı yoruz ö ncelikle a çı klayacaklar ı m . wav , . avi ve . mp3 dosyalar ı nas ı l g ö m ü l ü r .
Wave (. wav ) Dosyas ı Nas ı l G ö m ü l ü r Ç al ış t ı r ı l ı r ...
Bir . wav dosyas ı alal ı m . Ad ı muslum . wav olsun (Ş uan M ü sl ü m babay ı dinliyom ). Bu dosyay ı
C : 'ye atalım.Gene C:' de bir text dosyas ı olu ş tural ı m . Ve i ç ine ş unlar ı girelim .
muslum WAVE " c : muslum . wav " Bunlar ı yazd ı ktan sonra dosyay ı muslum . rc
olarak kaydedelim .Ş imdi C : 'de muslum.wav(Müzik dosyamız) ve muslum.rc dosyamız var.
Sonra Ba ş lat - programlar - Donat ı lar - Ms - dos komut istemini a ç al ı m .
C :/ Windows yazacakt ı r orda . Onun yan ı na ( cd ..) parantez i ç indekini yaz ı n enter 'a basın
Yani şö le bi ş ey olcak c :/ windows > cd .. tamam .Ş imdi c : yazcak sadece .Ş imdi oraya
( brcc32 muslum . rc ) parantez i ç indekini yazcaz . Oda şö le bi ş ey olcak
c :/> brcc32 muslum . rc enter a bast ığı m ı z zaman c : 'de muslum.res dosyası oluşmuş olacak
Bu 3 dosyay ı al ı p ekleyece ğ imiz program ı n oldu ğ u klasore at ı n . Ve kodunuzda şö le biyer var
{$R *.DFM} Bunun yan ı na {$R muslum.RES} bunu ekleyin .. implemention un alt ı nda
Şö le olcak {$R *.DFM} {$R muslum.RES} oke mi ? Ş imdi gelelim nas ı l ç al ış t ı raca ğı m ı za
Formda bir button olsun buna bas ı nca ç als ı n ş ark ı m ı z ..
uses k ı sm ı na mmsystem eklemeyi unutmay ı n !!!!!!!!
procedure TForm1 . Button1Click ( Sender : TObject );
var
hFind , hRes : THandle ;
Song : PChar ;
begin
hFind := FindResource ( HInstance , 'msulum' , 'WAVE' );
if hFind <> 0 then begin
hRes := LoadResource ( HInstance , hFind );
if hRes <> 0 then begin
Song := LockResource ( hRes );
if Assigned ( Song ) then
SndPlaySound ( Song , snd_ASync or snd_Memory );
UnlockResource ( hRes );
end ;
FreeResource ( hFind );
end ;
end ;
hepsi bu kadar ......
Avi (. avi ) Nas ı l G ö m ü l ü r Ç al ış t ı r ı l ı r ....
Yukarda nas ı l . rc dosyas ı yarataca ğı n ı z ı anlatt ı m Bundada . rc dosyas ı n ı n i ç ine
F İ LM AVI film . avi yaz ı n ..( Benim avi 'min ismi film di siz değiştirebilirsiniz.)
Gene film . res dosyam ı z olu ş tuktan sonra program ı yapt ığı n ı z klasore at ı n .
a çı n delphiyle gene kodunuzu {$R film.RES} bunu eklemeyi unutmay ı n ..
nas ı l ç al ış t ı racan ı z
procedure TForm1 . FormCreate ( Sender : TObject );
begin
with Animate1 do begin
ResName := 'film' ;
ResHandle := hInstance ;
Active := TRUE ;
end ;
end ;
hepsi bu kadar .......
Mp3 (. mp3 ) Nas ı l G ö m ü l ü r Ç al ış t ı r ı l ı r .....
Gene . rc yi olu ş turun i ç ine ş unlar ı yaz ı n senbaskasin RCDATA senbaskasin . mp3
Ms - dosta yukardaki gibi senbaskasin . res dosyas ı n ı olu ş turun . klasore at ı n .
gene kodunuza {$R senbaskasin.RES} eklemeyi unnutmay ı n .
Nas ı l ç al ış t ı r ı r ı z ...
procedure TForm1 . Button1Click ( Sender : TObject );
var
rStream : TResourceStream ;
fStream : TFileStream ;
fname : string ;
begin
fname := ExtractFileDir ( Paramstr ( 0 ))+ 'senbaskasin.mp3' ;
rStream := TResourceStream . Create
( hInstance , 'senbaskasin' , RT_RCDATA );
try
fStream := TFileStream . Create ( fname , fmCreate );
try
fStream . CopyFrom ( rStream , 0 );
finally
fStream . Free ;
end ;
finally
rStream . Free ;
end ;
MediaPlayer1 . Close ;
MediaPlayer1 . FileName := fname ;
MediaPlayer1 . Open ;
end ;
neoturk: "bulmaca puzzle çözümü"
program ı n ana VAR blo ğ unu a ş a ğı daki ş ekilde uyarlay ı n ı z
...
const
numbers = '123456789' ; //kullanılacağımız ve yerleştireceğimiz rakamlar
spacenul = '.' ; //boş hücreleri nokta ile göstereceğiz
var
Form1 : TForm1 ;
s : array [ 1 .. 9 , 1 .. 3 , 1 .. 3 ] of string ; //3x3 lük 9 tane ufak matris
mm : array [ 1 .. 9 ] of string ; //9x9 luk matrisin tek boyutta gösterimi şeklinde
tempx : Tstringlist ; //bunu boşuna tanıttım, kullanmaya ihtiyacım olmadı...
xexit : boolean ; //recursive fonksiyondan çıkış için. çözüm bulunduğunda.
implementation
{$R *.dfm}
//******** ana matrisin dikey satırını verir ****************
function getdownline ( sut : byte ): string ;
var x , x2 : string ; m : integer ;
begin
x := '' ;
for m := 1 to 9 do
begin
x2 := mm [ m ];
x := x + x2 [ sut ];
end ;
result := x ;
//final
end ;
//******** kume matrisin tüm stringini verir ****************
function getkumestring ( kumeno : byte ): string ;
var x : string ; m , n : integer ;
begin
x := '' ;
for m := 1 to 3 do
for n := 1 to 3 do
begin
x := x + s [ kumeno , m , n ];
end ;
result := x ;
//final
end ;
//********** ana matristeki sat,sut değerinin hangi alt kümede olduğunu söyler ****************
function getkume ( sat , sut : byte ): byte ;
var xresult : byte ;
begin
xresult := 0 ;
case sat of
1 .. 3 :
begin
case sut of
1 .. 3 : xresult := 1 ;
4 .. 6 : xresult := 2 ;
7 .. 9 : xresult := 3 ;
end ; //case
end ;
4 .. 6 :
begin
case sut of
1 .. 3 : xresult := 4 ;
4 .. 6 : xresult := 5 ;
7 .. 9 : xresult := 6 ;
end ; //case
end ;
7 .. 9 :
begin
case sut of
1 .. 3 : xresult := 7 ;
4 .. 6 : xresult := 8 ;
7 .. 9 : xresult := 9 ;
end ; //case
end ;
end ; //case
result := xresult ;
//final
end ;
//********* ana matrisi ekranda gösterir ****************
procedure showmainmatris ;
var m , n : integer ; x : string ;
begin
for m := 1 to 9 do
for n := 1 to 9 do
begin
x := mm [ m ];
form1 . StringGrid1 . Cells [ n - 1 , m - 1 ]:= x [ n ];
//application.ProcessMessages;
end ;
form1 . StringGrid1 . Refresh ;
//final
end ;
//*********** ana matrisi alt kümelerden üretir ********************
procedure createmainmatris ;
begin
mm [ 1 ]:= s [ 1 , 1 , 1 ]+ s [ 1 , 1 , 2 ]+ s [ 1 , 1 , 3 ]+ s [ 2 , 1 , 1 ]+ s [ 2 , 1 , 2 ]+ s [ 2 , 1 , 3 ]+ s [ 3 , 1 , 1 ]+ s [ 3 , 1 , 2 ]+ s [ 3 , 1 , 3 ];
mm [ 2 ]:= s [ 1 , 2 , 1 ]+ s [ 1 , 2 , 2 ]+ s [ 1 , 2 , 3 ]+ s [ 2 , 2 , 1 ]+ s [ 2 , 2 , 2 ]+ s [ 2 , 2 , 3 ]+ s [ 3 , 2 , 1 ]+ s [ 3 , 2 , 2 ]+ s [ 3 , 2 , 3 ];
mm [ 3 ]:= s [ 1 , 3 , 1 ]+ s [ 1 , 3 , 2 ]+ s [ 1 , 3 , 3 ]+ s [ 2 , 3 , 1 ]+ s [ 2 , 3 , 2 ]+ s [ 2 , 3 , 3 ]+ s [ 3 , 3 , 1 ]+ s [ 3 , 3 , 2 ]+ s [ 3 , 3 , 3 ];
mm [ 4 ]:= s [ 4 , 1 , 1 ]+ s [ 4 , 1 , 2 ]+ s [ 4 , 1 , 3 ]+ s [ 5 , 1 , 1 ]+ s [ 5 , 1 , 2 ]+ s [ 5 , 1 , 3 ]+ s [ 6 , 1 , 1 ]+ s [ 6 , 1 , 2 ]+ s [ 6 , 1 , 3 ];
mm [ 5 ]:= s [ 4 , 2 , 1 ]+ s [ 4 , 2 , 2 ]+ s [ 4 , 2 , 3 ]+ s [ 5 , 2 , 1 ]+ s [ 5 , 2 , 2 ]+ s [ 5 , 2 , 3 ]+ s [ 6 , 2 , 1 ]+ s [ 6 , 2 , 2 ]+ s [ 6 , 2 , 3 ];
mm [ 6 ]:= s [ 4 , 3 , 1 ]+ s [ 4 , 3 , 2 ]+ s [ 4 , 3 , 3 ]+ s [ 5 , 3 , 1 ]+ s [ 5 , 3 , 2 ]+ s [ 5 , 3 , 3 ]+ s [ 6 , 3 , 1 ]+ s [ 6 , 3 , 2 ]+ s [ 6 , 3 , 3 ];
mm [ 7 ]:= s [ 7 , 1 , 1 ]+ s [ 7 , 1 , 2 ]+ s [ 7 , 1 , 3 ]+ s [ 8 , 1 , 1 ]+ s [ 8 , 1 , 2 ]+ s [ 8 , 1 , 3 ]+ s [ 9 , 1 , 1 ]+ s [ 9 , 1 , 2 ]+ s [ 9 , 1 , 3 ];
mm [ 8 ]:= s [ 7 , 2 , 1 ]+ s [ 7 , 2 , 2 ]+ s [ 7 , 2 , 3 ]+ s [ 8 , 2 , 1 ]+ s [ 8 , 2 , 2 ]+ s [ 8 , 2 , 3 ]+ s [ 9 , 2 , 1 ]+ s [ 9 , 2 , 2 ]+ s [ 9 , 2 , 3 ];
mm [ 9 ]:= s [ 7 , 3 , 1 ]+ s [ 7 , 3 , 2 ]+ s [ 7 , 3 , 3 ]+ s [ 8 , 3 , 1 ]+ s [ 8 , 3 , 2 ]+ s [ 8 , 3 , 3 ]+ s [ 9 , 3 , 1 ]+ s [ 9 , 3 , 2 ]+ s [ 9 , 3 , 3 ];
//final
end ;
//*********** çözümün tamamlanıp tamamlanmadığını bul **********
function ifresolvedok : boolean ;
var isok : boolean ; x : string ; m : integer ;
begin
isok := true ;
x := '' ;
for m := 1 to 9 do x := x + mm [ m ];
if pos ( spacenul , x )> 0 then isok := false ;
result := isok ;
//final
end ;
//*********** satır,sutun yerine olası rakamları bul ****************
procedure olasirakamlar ;
var
tx : tstringlist ;
m , n : integer ;
xsat , xsut : byte ;
kumeno : byte ;
x , xyatay , xdikey , xkume : string ;
kural1 , kural2 , kural3 : boolean ;
procedure bossatirsutunubul ;
label bcik ;
var bm , bn : integer ; bx : string ;
begin
for bm := 1 to 9 do
for bn := 1 to 9 do
begin
bx := mm [ bm ];
if bx [ bn ]= spacenul then
begin
xsat := bm ; xsut := bn ;
goto bcik ;
end ;
end ;
bcik :
//final
end ;
begin
if xexit then exit ;
tx := tstringlist . Create ;
if ifresolvedok = false then
begin
xexit := false ;
bossatirsutunubul ; //boş satir sutunu bul
kumeno := getkume ( xsat , xsut );
xkume := getkumestring ( kumeno );
xyatay := mm [ xsat ];
xdikey := getdownline ( xsut );
for m := 1 to 9 do
begin
//kural-1
//yerleştireceğin sayı kume içersinde bulunamaz
if pos ( numbers [ m ], xkume )> 0 then kural1 := false else kural1 := true ;
//kural-2
//yerleştireceğin sayı yatay sırada olamaz
if pos ( numbers [ m ], xyatay )> 0 then kural2 := false else kural2 := true ;
//kural-3
//yerleştireceğin sayı dikey içersinde bulunamaz
if pos ( numbers [ m ], xdikey )> 0 then kural3 := false else kural3 := true ;
if (( kural1 ) and ( kural2 ) and ( kural3 )) then
begin
tx . Add ( numbers [ m ]); //ilgili numarayı ekle
end ;
end ;
for m := 0 to tx . Count - 1 do
begin
case xsat of
1 , 4 , 7 : xsat := 1 ;
2 , 5 , 8 : xsat := 2 ;
3 , 6 , 9 : xsat := 3 ;
end ;
case xsut of
1 , 4 , 7 : xsut := 1 ;
2 , 5 , 8 : xsut := 2 ;
3 , 6 , 9 : xsut := 3 ;
end ;
s [ kumeno , xsat , xsut ]:= tx . Strings [ m ];
createmainmatris ; showmainmatris ;
olasirakamlar ; //recursive
if ifresolvedok then exit ;
s [ kumeno , xsat , xsut ]:= spacenul ;
end ;
end
else
begin
showmessage ( 'çözüm bulunmuştur !' );
xexit := true ;
end ;
tx . Free ;
//final
end ;
formun on create olay ı na a ş a ğı daki kodu yaz ı n ı z :
//form on create
procedure TForm1 . FormCreate ( Sender : TObject );
var m , k , n : integer ;
begin
xexit := false ;
tempx := tstringlist . Create ;
for m := 1 to 9 do
for n := 1 to 3 do
for k := 1 to 3 do s [ m , n , k ]:= spacenul ;
//soruda verilmiş olan rakamları burada tanımladım
//olayı güzelleştirmek isteseydim stringgrid üzerinde click yordamına
//atanmak istenilen sayıyı inputquery ile yapardım.
//direkt çözüme gidiyorum.....
//küme 1
s [ 1 , 1 , 2 ]:= '6' ;
s [ 1 , 2 , 3 ]:= '8' ;
s [ 1 , 3 , 1 ]:= '2' ;
//küme 2
s [ 2 , 1 , 1 ]:= '1' ;
s [ 2 , 1 , 3 ]:= '4' ;
s [ 2 , 2 , 1 ]:= '3' ;
s [ 2 , 2 , 3 ]:= '5' ;
//küme 3
s [ 3 , 1 , 2 ]:= '5' ;
s [ 3 , 2 , 1 ]:= '6' ;
s [ 3 , 3 , 3 ]:= '1' ;
//küme 4
s [ 4 , 1 , 1 ]:= '8' ;
s [ 4 , 2 , 3 ]:= '6' ;
s [ 4 , 3 , 1 ]:= '7' ;
//küme 5
s [ 5 , 1 , 1 ]:= '4' ;
s [ 5 , 1 , 3 ]:= '7' ;
s [ 5 , 3 , 1 ]:= '9' ;
s [ 5 , 3 , 3 ]:= '1' ;
//küme 6
s [ 6 , 1 , 3 ]:= '6' ;
s [ 6 , 2 , 1 ]:= '3' ;
s [ 6 , 3 , 3 ]:= '4' ;
//küme 7
s [ 7 , 1 , 1 ]:= '5' ;
s [ 7 , 2 , 3 ]:= '7' ;
s [ 7 , 3 , 2 ]:= '4' ;
//level 8
s [ 8 , 2 , 1 ]:= '2' ;
s [ 8 , 2 , 3 ]:= '6' ;
s [ 8 , 3 , 1 ]:= '5' ;
s [ 8 , 3 , 3 ]:= '8' ;
//küme 9
s [ 9 , 1 , 3 ]:= '2' ;
s [ 9 , 2 , 1 ]:= '9' ;
s [ 9 , 3 , 2 ]:= '7' ;
createmainmatris ; showmainmatris ;
//final
end ;
buttonun click olay ı na a ş a ğı daki kodu yaz ı n ı z :
procedure TForm1 . Button1Click ( Sender : TObject );
begin
//ara testler
//showmessage(inttostr(getkume(9,4))); //test - 9.satır 4.sutun hangi kümeye denk gelir?
//showmessage(getdownline(6)); //test - 6. sütunun dikey değerini göster
//if ifresolvedok then showmessage('tamam') else showmessage('hayır');//test-çözüm tamam mı değil mi ?
//showmessage(getkumestring(6));//test- 6 nolu kümenin sayılarını göster
createmainmatris ; showmainmatris ;
xexit := false ;
Memo1 . clear ;
Memo1 . lines . add ( 'Analiz başlatıldı...' );
olasirakamlar ;
Memo1 . lines . add ( 'Ok_' );
end ;
bitti .....
kodlama bu kadar .
neoturk: Forum - "sqlde iki tabloyu karşılaştırıp rapor üretmek"
"
SQL 'de iki tabloyu karşılaştırıp rapor üretmek Bugün 14:10
Herkeze merhabalar !
1. Tablo Siparis . db
Field1 FirmaKod String
Field2 Sip_Tar Date
Field3 Miktar Numeric
2. Tablo Firma . db
Field1 FirmaKod String
Field2 Uyar Lojik
Field3 Gun Integer
Bu İ ki Tabloyu ve Date () fonksiyonunu kullanarak , tablo2 de
Uyar Field 'i true olan ve kaç gün önceden uyarılacağı belirtilen
Field3 'ü (Gun) üde değerlendirerek Günü Gelmiş Siparişleri
Raporlayacak bir SQL ifadesini nas ı l yazabiliriz .
Çı kt ı Ş u ş ekilde olacak .
Firma Kodu Sipari ş Tar .
---------- ------------
00001 24.11.2005
00001 25.11.2005
00002 24.11.2005
aruz65
"
cevap :
ö ncelikle , bu g ü zel sorunuz i ç in ,
sizi tebrik ediyorum ....
kendimce 2 farkl ı y ö ntemi teorik olarak a çı klamaya ç al ış aca ğı m ,
deneme ve testlerinizi kendinizce yap ı p çö z ü me ula ş man ı z ı umuyorum ...
( yaz ı m hatalar ı m olabilir , gereken d ü zeltmeleri kendiniz yapabilirsiniz )
*************
Y ö ntem - 1
*************
sql de iki tarih aras ı sorgulamay ı şö yle yazabiliriz :
kabaca :
...
adoquery1 . SQL . Clear ;
adoquery1 . active := false ;
ADOQuery1 . SQL . Add ( 'SELECT * FROM FIRMA' );
ADOQuery1 . SQL . Add ( 'WHERE TARIH BETWEEN "01.01.2005" AND "10.10.2005"' );
ADOQuery1 . SQL . Add ( 'AND LOJIK=TRUE' );
ADOQuery1 . SQL . Add ( 'ORDER BY TARIH' );
ADOQuery1 . Active := True ;
...
yukar ı daki kod ,
FIRMA tablosundaki TARIH kolonuna g ö re sorgulama yapar , ve ,
ö rnek olsun diye LOJIK de ğ eri i ş aretlenmi ş olanlar ı da kapsar .
yukar ı daki kod sizin sorunuzu tam olarak çö zmez ...
çü nk ü, field3 sahas ı ndaki " GUN "ü de tarih aral ığı na otomatik eklettiremiyoruz .
ve , tarih adl ı bir field alan ı n ı z da yok .
veri taban ı kolon yap ı s ı olarak ş unu tavsiye ediyorum ,
2. Tablo Firma . db
Field1 FirmaKod String
Field2 Uyar Lojik
Field3 Gun Integer
ş eklindeki orjinal dosyan ı z ı a ş a ğı daki ş ekilde d ü zeltiniz ,
2. Tablo Firma . db
Field1 FirmaKod String
Field2 Uyar Lojik
Field3 Gun Integer
Field4 UyariTarihi String
( DATE de ğ il . STRING . DATE olunca sql yemiyor ne ü z ü c ü d ü r ki ! )
( access i ç in konu ş uyorum )
ş eklinde 1 adet kolon daha ekleyiniz .
Kullan ı c ı " GUN " de ğ erini de girdikten sonra , otomatik olarak program ı n ı z ,
baslamatarihine + gun de ğ erini eklesin ve uyar ı tarihini de yazs ı n DB ye .
( bunu bir ş ekilde kodlama ile yapabilirsiniz )
( veya " gun " adl ı fieldi kald ı r ı p , direkt uyar ı tarihini de elle girdirebilirsiniz )
yukar ı daki ş ekilde kolon yap ı lar ı n ı z olur ise ,
...
adoquery1 . SQL . Clear ;
adoquery1 . active := false ;
ADOQuery1 . SQL . Add ( 'SELECT * FROM FIRMA' ); // db tablonuz
ADOQuery1 . SQL . Add ( 'WHERE UYARITARIHI BETWEEN "01.01.2005" AND "10.10.2005"' );
ADOQuery1 . SQL . Add ( 'AND LOJIK=TRUE' );
ADOQuery1 . SQL . Add ( 'ORDER BY UYARITARIHI' );
ADOQuery1 . Active := True ;
...
ş eklinde bir d ü zenleme ile istedi ğ inizi tam olarak alabilirsiniz .
" 01.01.2005 " ve " 10.10.2005 " olan tarih aral ı klar ı n ı,
edit nesneleri ile esnek hale getirebilirsiniz .
bunu kullan ı rken de ş u ş ekilde d ü zeltiniz ,
'WHERE UYARITARIHI BETWEEN "+datetostr(strtodate(edit1.text))+' " AND " '+datetostr(strtodate(edit2.text))+' " '
ş eklinde kodlama yap ı n ı z ...
lojik de ğ ere ba ğ l ı olarak ve tarih aral ığı na g ö re
istedi ğ iniz listeyi elde edebileceksiniz .
Firma Kodu Sipari ş Tar .
---------- ------------
00001 24.11.2005
00001 25.11.2005
00002 24.11.2005
ş eklinde çı kt ı istemi ş siniz ,
san ı yorum ki yukar ı daki kodlama ve kolon yap ı s ı n ı d ü zenledi ğ inizde
yukar ı daki çı kt ı y ı elde edebilirsiniz .
( gereken dbgrid ü zerindeki g ö sterilecek olan h ü creleri de belirttirebilirsiniz )
buradan ş u tecr ü beyi edinebiliriz ,
kolon yap ı s ı n ı haz ı rlad ığı n ı zda ,
" GUN " adl ı field sahas ı, uyar ı verdirtmek i ç in sql c ü mleci ğ ine yetersiz kal ı yor .
Biz , bu " GUN " adl ı sahay ı, " UYARITARIHI " kolonuna otomatik olarak hesaplatt ı rabilir ,
db ye yazd ı rabilir , ve bu " UYARITARIHI " kolonuna g ö re hem tarih aral ığı n ı,
hem de lojik de ğ erine g ö re sorgu yapt ı rabiliriz .
dedi ğ im gibi isterseniz " GUN " adl ı kolonu komple de silebilir , sadece yerine
" UYARITARIHI " kolonunu ekleyerek sql ile entegre sa ğ layabilirsiniz .
**************
Y Ö NTEM - 2
**************
diyorsan ı z ki ,
her ş ey yerli yerinde kals ı n , ben bu kolon yap ı s ı yla yine de ,
istedi ğ im i ş lemi yapt ı rmak istiyorum ,
bunu yine çö zebiliriz , ama sql yard ı m ı olmadan olur bu sefer ...
biraz uzunca ve h ı zl ı ca anlataca ğı m , ( pek vaktim kalmad ığı i ç in )
//teorik yazıyorum, açıklayacağım.
function gunekle ( tarih : string ; eklenengun : byte ): string ;
var gun , ay , yil : string ; xgun , xay , xyil : longint ; x : string ;
begin
x := tarih ;
gun := copy ( x , 1 , 2 );
ay := copy ( x , 4 , 2 );
yil := copy ( x , 7 , 4 );
xgun := strtointdef ( gun , 0 )+ eklenengun ;
xay := strtointdef ( ay , 0 );
xyil := strtointdef ( yil , 0 );
if xgun > 31 then
begin
xgun :=( xgun mod 31 )+ 1 ;
inc ( xay );
if xay > 12 then
begin
xay :=( xay mod 12 )+ 1 ;
inc ( xyil );
end ;
end ;
result := formatfloat ( '00' , xgun )+ '.' + formatfloat ( '00' , xay )+ '.' + formatfloat ( '0000' , xyil );
end ;
kullan ı m ö rne ğ i :
showmessage ( gunekle ( '11.01.2005' , 10 ));
21.01.2005 olarak g ö sterir .
yukar ı daki fonksiyon mant ı ksal olarak hatalar i ç ermektedir .
çü nk ü date fonksiyonlar ı n ı kullanmadan basit bir form ü l yap ı s ı ile çö zmeye ç al ış t ı m .
(ş ubat ay ı n ı n 28 g ü n ç ekti ğ i , veya baz ı aylar ı n 30 ç ekti ğ ini filan hesaplatmad ı m )
( gere ğ i de yok , çü nk ü,
sonu ç ta hepsi ayn ı s ü zge ç ten ge ç ece ğ i i ç in ilgili g ü n ö ncesinden
haber verme i ş ine yarayacakt ı r .....
)
function tarihcrc ( x : string ): longint ;
var gun , ay , yil : string ; xgun , xay , xyil : longint ;
begin
gun := copy ( x , 1 , 2 );
ay := copy ( x , 4 , 2 );
yil := copy ( x , 7 , 4 );
xgun := strtointdef ( gun , 0 );
xay := strtointdef ( ay , 0 )* 120 ;
xyil := strtointdef ( yil , 0 )* 3650 ;
result := xyil + xay + xgun ;
end ;
yukar ı daki kod da iki tarih aras ı n ı sorgulatmak i ç in kullanaca ğı z .
( yukar ı daki kodu ç ok eski bir tarihte kodbanka g ö ndermi ş tim , direkt copy / paste yapt ı m )
evet ş imdi lojik de ğ ere g ö re ve ilgili g ü n ö ncesinden uyar ı verilecek olan
kay ı tlar ı n listesini nas ı l ü retece ğ imize gelelim ,
iskelet mant ı k olarak şö yle yap ı yorum ,
amac ı m , belirtti ğ iniz orjinal tablo yap ı s ı nda , lojik de ğ erleri de g ö z ö n ü nde
bulundurarak belirtilen g ü n ö ncesindeki kay ı tlar ı n listesini
listbox1 i ç erisinde g ö stermek
( buradan s ıç ratarak neyi istiyorsan ı z yapt ı rabilirsiniz )
access format ı na adapte edildi ğ ini varsay ı yorum :
....
var
firmakod : string , uyar : boolean ; gun : integer ;
hedeftarih , buguntarih , kontroltarih : string ;
hedef , kontroltarih : longint ;
begin
listbox1 . clear ; //listbox1i temizle
adotable1 . firt ; //ilk kayda git
hedeftarih := '30.10.2005' ; //bunu edit1 e bağlayabilirsin.
//bu tarihe göre bugünün tarihini
//gün fieldine göre bakıp uyaracak
hedef := tarihcrc ( hedeftarih ); //hedef tarihin crc si
buguntarih := datetostr ( now ); //bugünün tarihinden itibaren baz alınacak
//bunu da edit2 ye bağlayabilirsin.
do while not ( eof ( adotable1 )) do
begin
lojik := adotable1 . fields . fieldbyname ( 'UYAR' ). asboolean ;
if lojik then // bu kayıtta uyarı yapılacak ise
begin
firmakod := adotable1 . fields . fieldbyname ( 'FIRMAKOD' ). asstring ;
gun := adotable1 . fields . fieldbyname ( 'GUN' ). asinteger ;
kontroltarih := gunekle ( buguntarih , gun ); //bugunkü tarihe GUN adet günü ekle
kontroltarih := tarihcrc ( kontroltarih ); //kontroltarih crc si
if kontroltarih = hedef then //ilgili GUN öncesi uyarısı tutuyor ise
begin
listbox1 . items . add ( firmakod + ' / ' + buguntarih + ' / ' + hedeftarih );
end ;
end ; //lojik
adotable1 . next ; //sonraki kayda git
end ; //while
//final
end ;
...
yukar ı daki iskelet kod yap ı s ı ve mant ığı ile ,
istedi ğ iniz çö z ü m ü elde edebilirsiniz .
ş u ş ekilde ç al ışı yor mant ı k olarak :
hedeftarih = 30.10.2005 olsun .
bugun = 25.10.2005 olsun .
t ü m kay ı tlara tek tek bak ı yor ....
lojik de ğ eri atanm ış olan bir kayda rastlad ığı nda ,
bugun tarihine ilgili gun de ğ erini ekliyor
ö rne ğ in o kayd ı n gun de ğ eri 4 olsun
kontroltarih = 29.10.2005 olur .
kontroltarih <> hedeftarih oldu ğ u i ç in
o kayd ı size uyarmaz .
ö rne ğ in o kayd ı n gun de ğ eri 1 olsun
kontroltarih = 26.10.2005 olur .
kontroltarih <> hedeftarih oldu ğ u i ç in
o kayd ı size uyarmaz .
ö rne ğ in o kayd ı n gun de ğ eri 5 olsun
kontroltarih = 30.10.2005 olur .
kontroltarih = hedeftarih oldu ğ u i ç in
o kayd ı size uyar ı r .
B ö ylece hedeftarihe g ö re ilgili bir tarihi baz alarak , her kayd ı n
g ü n ö ncesini al ı p bire - bir e ş le ş iyor mu diye kontrol eder
ve t ü m kay ı tlar filtrelenmi ş olur ........
probleminizi çö zerseniz beni bilgilendirirseniz sevinirim ,
ç al ış malar ı n ı zda ba ş ar ı lar diliyorum ,
kolay gelsin .....
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Forum - "sqlde iki tabloyu karşılaştırıp rapor üretmek"
"
SQL 'de iki tabloyu karşılaştırıp rapor üretmek Bugün 14:10
Herkeze merhabalar !
1. Tablo Siparis . db
Field1 FirmaKod String
Field2 Sip_Tar Date
Field3 Miktar Numeric
2. Tablo Firma . db
Field1 FirmaKod String
Field2 Uyar Lojik
Field3 Gun Integer
Bu İ ki Tabloyu ve Date () fonksiyonunu kullanarak , tablo2 de
Uyar Field 'i true olan ve kaç gün önceden uyarılacağı belirtilen
Field3 'ü (Gun) üde değerlendirerek Günü Gelmiş Siparişleri
Raporlayacak bir SQL ifadesini nas ı l yazabiliriz .
Çı kt ı Ş u ş ekilde olacak .
Firma Kodu Sipari ş Tar .
---------- ------------
00001 24.11.2005
00001 25.11.2005
00002 24.11.2005
aruz65
"
cevap :
ö ncelikle , bu g ü zel sorunuz i ç in ,
sizi tebrik ediyorum ....
kendimce 2 farkl ı y ö ntemi teorik olarak a çı klamaya ç al ış aca ğı m ,
deneme ve testlerinizi kendinizce yap ı p çö z ü me ula ş man ı z ı umuyorum ...
( yaz ı m hatalar ı m olabilir , gereken d ü zeltmeleri kendiniz yapabilirsiniz )
*************
Y ö ntem - 1
*************
sql de iki tarih aras ı sorgulamay ı şö yle yazabiliriz :
kabaca :
...
adoquery1 . SQL . Clear ;
adoquery1 . active := false ;
ADOQuery1 . SQL . Add ( 'SELECT * FROM FIRMA' );
ADOQuery1 . SQL . Add ( 'WHERE TARIH BETWEEN "01.01.2005" AND "10.10.2005"' );
ADOQuery1 . SQL . Add ( 'AND LOJIK=TRUE' );
ADOQuery1 . SQL . Add ( 'ORDER BY TARIH' );
ADOQuery1 . Active := True ;
...
yukar ı daki kod ,
FIRMA tablosundaki TARIH kolonuna g ö re sorgulama yapar , ve ,
ö rnek olsun diye LOJIK de ğ eri i ş aretlenmi ş olanlar ı da kapsar .
yukar ı daki kod sizin sorunuzu tam olarak çö zmez ...
çü nk ü, field3 sahas ı ndaki " GUN "ü de tarih aral ığı na otomatik eklettiremiyoruz .
ve , tarih adl ı bir field alan ı n ı z da yok .
veri taban ı kolon yap ı s ı olarak ş unu tavsiye ediyorum ,
2. Tablo Firma . db
Field1 FirmaKod String
Field2 Uyar Lojik
Field3 Gun Integer
ş eklindeki orjinal dosyan ı z ı a ş a ğı daki ş ekilde d ü zeltiniz ,
2. Tablo Firma . db
Field1 FirmaKod String
Field2 Uyar Lojik
Field3 Gun Integer
Field4 UyariTarihi String
( DATE de ğ il . STRING . DATE olunca sql yemiyor ne ü z ü c ü d ü r ki ! )
( access i ç in konu ş uyorum )
ş eklinde 1 adet kolon daha ekleyiniz .
Kullan ı c ı " GUN " de ğ erini de girdikten sonra , otomatik olarak program ı n ı z ,
baslamatarihine + gun de ğ erini eklesin ve uyar ı tarihini de yazs ı n DB ye .
( bunu bir ş ekilde kodlama ile yapabilirsiniz )
( veya " gun " adl ı fieldi kald ı r ı p , direkt uyar ı tarihini de elle girdirebilirsiniz )
yukar ı daki ş ekilde kolon yap ı lar ı n ı z olur ise ,
...
adoquery1 . SQL . Clear ;
adoquery1 . active := false ;
ADOQuery1 . SQL . Add ( 'SELECT * FROM FIRMA' ); // db tablonuz
ADOQuery1 . SQL . Add ( 'WHERE UYARITARIHI BETWEEN "01.01.2005" AND "10.10.2005"' );
ADOQuery1 . SQL . Add ( 'AND LOJIK=TRUE' );
ADOQuery1 . SQL . Add ( 'ORDER BY UYARITARIHI' );
ADOQuery1 . Active := True ;
...
ş eklinde bir d ü zenleme ile istedi ğ inizi tam olarak alabilirsiniz .
" 01.01.2005 " ve " 10.10.2005 " olan tarih aral ı klar ı n ı,
edit nesneleri ile esnek hale getirebilirsiniz .
bunu kullan ı rken de ş u ş ekilde d ü zeltiniz ,
'WHERE UYARITARIHI BETWEEN "+datetostr(strtodate(edit1.text))+' " AND " '+datetostr(strtodate(edit2.text))+' " '
ş eklinde kodlama yap ı n ı z ...
lojik de ğ ere ba ğ l ı olarak ve tarih aral ığı na g ö re
istedi ğ iniz listeyi elde edebileceksiniz .
Firma Kodu Sipari ş Tar .
---------- ------------
00001 24.11.2005
00001 25.11.2005
00002 24.11.2005
ş eklinde çı kt ı istemi ş siniz ,
san ı yorum ki yukar ı daki kodlama ve kolon yap ı s ı n ı d ü zenledi ğ inizde
yukar ı daki çı kt ı y ı elde edebilirsiniz .
( gereken dbgrid ü zerindeki g ö sterilecek olan h ü creleri de belirttirebilirsiniz )
buradan ş u tecr ü beyi edinebiliriz ,
kolon yap ı s ı n ı haz ı rlad ığı n ı zda ,
" GUN " adl ı field sahas ı, uyar ı verdirtmek i ç in sql c ü mleci ğ ine yetersiz kal ı yor .
Biz , bu " GUN " adl ı sahay ı, " UYARITARIHI " kolonuna otomatik olarak hesaplatt ı rabilir ,
db ye yazd ı rabilir , ve bu " UYARITARIHI " kolonuna g ö re hem tarih aral ığı n ı,
hem de lojik de ğ erine g ö re sorgu yapt ı rabiliriz .
dedi ğ im gibi isterseniz " GUN " adl ı kolonu komple de silebilir , sadece yerine
" UYARITARIHI " kolonunu ekleyerek sql ile entegre sa ğ layabilirsiniz .
**************
Y Ö NTEM - 2
**************
diyorsan ı z ki ,
her ş ey yerli yerinde kals ı n , ben bu kolon yap ı s ı yla yine de ,
istedi ğ im i ş lemi yapt ı rmak istiyorum ,
bunu yine çö zebiliriz , ama sql yard ı m ı olmadan olur bu sefer ...
biraz uzunca ve h ı zl ı ca anlataca ğı m , ( pek vaktim kalmad ığı i ç in )
//teorik yazıyorum, açıklayacağım.
function gunekle ( tarih : string ; eklenengun : byte ): string ;
var gun , ay , yil : string ; xgun , xay , xyil : longint ; x : string ;
begin
x := tarih ;
gun := copy ( x , 1 , 2 );
ay := copy ( x , 4 , 2 );
yil := copy ( x , 7 , 4 );
xgun := strtointdef ( gun , 0 )+ eklenengun ;
xay := strtointdef ( ay , 0 );
xyil := strtointdef ( yil , 0 );
if xgun > 31 then
begin
xgun :=( xgun mod 31 )+ 1 ;
inc ( xay );
if xay > 12 then
begin
xay :=( xay mod 12 )+ 1 ;
inc ( xyil );
end ;
end ;
result := formatfloat ( '00' , xgun )+ '.' + formatfloat ( '00' , xay )+ '.' + formatfloat ( '0000' , xyil );
end ;
kullan ı m ö rne ğ i :
showmessage ( gunekle ( '11.01.2005' , 10 ));
21.01.2005 olarak g ö sterir .
yukar ı daki fonksiyon mant ı ksal olarak hatalar i ç ermektedir .
çü nk ü date fonksiyonlar ı n ı kullanmadan basit bir form ü l yap ı s ı ile çö zmeye ç al ış t ı m .
(ş ubat ay ı n ı n 28 g ü n ç ekti ğ i , veya baz ı aylar ı n 30 ç ekti ğ ini filan hesaplatmad ı m )
( gere ğ i de yok , çü nk ü,
sonu ç ta hepsi ayn ı s ü zge ç ten ge ç ece ğ i i ç in ilgili g ü n ö ncesinden
haber verme i ş ine yarayacakt ı r .....
)
function tarihcrc ( x : string ): longint ;
var gun , ay , yil : string ; xgun , xay , xyil : longint ;
begin
gun := copy ( x , 1 , 2 );
ay := copy ( x , 4 , 2 );
yil := copy ( x , 7 , 4 );
xgun := strtointdef ( gun , 0 );
xay := strtointdef ( ay , 0 )* 120 ;
xyil := strtointdef ( yil , 0 )* 3650 ;
result := xyil + xay + xgun ;
end ;
yukar ı daki kod da iki tarih aras ı n ı sorgulatmak i ç in kullanaca ğı z .
( yukar ı daki kodu ç ok eski bir tarihte kodbanka g ö ndermi ş tim , direkt copy / paste yapt ı m )
evet ş imdi lojik de ğ ere g ö re ve ilgili g ü n ö ncesinden uyar ı verilecek olan
kay ı tlar ı n listesini nas ı l ü retece ğ imize gelelim ,
iskelet mant ı k olarak şö yle yap ı yorum ,
amac ı m , belirtti ğ iniz orjinal tablo yap ı s ı nda , lojik de ğ erleri de g ö z ö n ü nde
bulundurarak belirtilen g ü n ö ncesindeki kay ı tlar ı n listesini
listbox1 i ç erisinde g ö stermek
( buradan s ıç ratarak neyi istiyorsan ı z yapt ı rabilirsiniz )
access format ı na adapte edildi ğ ini varsay ı yorum :
....
var
firmakod : string , uyar : boolean ; gun : integer ;
hedeftarih , buguntarih , kontroltarih : string ;
hedef , kontroltarih : longint ;
begin
listbox1 . clear ; //listbox1i temizle
adotable1 . firt ; //ilk kayda git
hedeftarih := '30.10.2005' ; //bunu edit1 e bağlayabilirsin.
//bu tarihe göre bugünün tarihini
//gün fieldine göre bakıp uyaracak
hedef := tarihcrc ( hedeftarih ); //hedef tarihin crc si
buguntarih := datetostr ( now ); //bugünün tarihinden itibaren baz alınacak
//bunu da edit2 ye bağlayabilirsin.
do while not ( eof ( adotable1 )) do
begin
lojik := adotable1 . fields . fieldbyname ( 'UYAR' ). asboolean ;
if lojik then // bu kayıtta uyarı yapılacak ise
begin
firmakod := adotable1 . fields . fieldbyname ( 'FIRMAKOD' ). asstring ;
gun := adotable1 . fields . fieldbyname ( 'GUN' ). asinteger ;
kontroltarih := gunekle ( buguntarih , gun ); //bugunkü tarihe GUN adet günü ekle
kontroltarih := tarihcrc ( kontroltarih ); //kontroltarih crc si
if kontroltarih = hedef then //ilgili GUN öncesi uyarısı tutuyor ise
begin
listbox1 . items . add ( firmakod + ' / ' + buguntarih + ' / ' + hedeftarih );
end ;
end ; //lojik
adotable1 . next ; //sonraki kayda git
end ; //while
//final
end ;
...
yukar ı daki iskelet kod yap ı s ı ve mant ığı ile ,
istedi ğ iniz çö z ü m ü elde edebilirsiniz .
ş u ş ekilde ç al ışı yor mant ı k olarak :
hedeftarih = 30.10.2005 olsun .
bugun = 25.10.2005 olsun .
t ü m kay ı tlara tek tek bak ı yor ....
lojik de ğ eri atanm ış olan bir kayda rastlad ığı nda ,
bugun tarihine ilgili gun de ğ erini ekliyor
ö rne ğ in o kayd ı n gun de ğ eri 4 olsun
kontroltarih = 29.10.2005 olur .
kontroltarih <> hedeftarih oldu ğ u i ç in
o kayd ı size uyarmaz .
ö rne ğ in o kayd ı n gun de ğ eri 1 olsun
kontroltarih = 26.10.2005 olur .
kontroltarih <> hedeftarih oldu ğ u i ç in
o kayd ı size uyarmaz .
ö rne ğ in o kayd ı n gun de ğ eri 5 olsun
kontroltarih = 30.10.2005 olur .
kontroltarih = hedeftarih oldu ğ u i ç in
o kayd ı size uyar ı r .
B ö ylece hedeftarihe g ö re ilgili bir tarihi baz alarak , her kayd ı n
g ü n ö ncesini al ı p bire - bir e ş le ş iyor mu diye kontrol eder
ve t ü m kay ı tlar filtrelenmi ş olur ........
probleminizi çö zerseniz beni bilgilendirirseniz sevinirim ,
ç al ış malar ı n ı zda ba ş ar ı lar diliyorum ,
kolay gelsin .....
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk:Forum - Düzeltme - "merhaba arkadaşlar yardıma ihtiyacım var"
****
d ü zeltilen yer :
sql c ü mleciklerinde " like " ekini yazmay ı unuttum .
bu yaz ı da ilave ettim .
****
"
MERHABA ARKADA Ş LAR YARDIMA İ HT İ YACIM VAR ... Bug ü n 13 : 44
Arkada ş lar Form Ü zerinde Bir Adet Edit
ve Vir Adet de DBGrid Var ben
Form A çı ld ığı nda DBGrid i ç inde Hi ç Kay ı t Olmayacak ...
BEn Edit1 İç ine Ö rnek % ( Y ü zde ) İş areti Yaz ı p Entere BAsarsam
CARI Tablosundaki Kay ı tlar ı DBGrid i ç ine L İ steleyecek ...
VEya Edit1 İç ine Ahmet Tin Ahm % Yazd ığ umda AHm İ le Ba ş layan Kay ı tlar ı
Listelemesini İ stiyorum ...
DAtabas Paradox Kullan ı yorum ..
Tablo Ad ı m ' CARI '
Kolun Ad ı m ' C_ADI'
Bana YArd ı mc ı Olabilirseniz Sevinirim ....
Ö nemli Arkada ş lar ...
sahinmaster
"
cevap :
sorunuzdan anlad ığı m kadar ı yla konu olarak " sql " e giriyor .
Bu konuda fazlaca d ö k ü man ve kod ö rne ğ i g ö rebilirsiniz kodbank i ç erisinde .
Kulland ığı n ı z veritaban ı Paradox olsun Access olsun farketmez ,
sql c ü mlecikleri hepsinde ge ç erlidir .
dbgrid , table ve datasource ayarlar ı n ı z ı yapt ığı n ı z ı varsay ı yorum .
( dbgridin datasource = datasource1 olarak yapt ı n ı z vs vs ... )
verdi ğ iniz tablo ad ı ve kolonunuza g ö re sql c ü mlecikleri ş unlar olabilir :
1 ) SELECT * FROM CARI WHERE C_ADI =" neoturk "
> c_ad ı neoturk olanlar ı listeler .
2 ) SELECT * FROM CARI WHERE C_ADI =" neoturk " ORDER BY C_ADI ASC
> c_ad ı neoturk olanlar ı listeler ve c_adi kolonuna g ö re s ı ralar .
ASC - Adan Zye do ğ ru s ı ralar
DESC - Zden Aya do ğ ru s ı ralar
3 ) SELECT * FROM CARI WHERE C_ADI like " neoturk *"
> c_ad ı neoturk ile ba ş layanlar ı listeler . ( * kulland ı m dikkat )
ORDEY BY ... kullanabilirsiniz , s ü sleyebilirsiniz .
4 ) SELECT * FROM CARI WHERE C_ADI like "% neoturk %"
> c_ad ı i ç erisinde neoturk ge ç enleri listeler ( % kulland ı m dikkat )
ORDEY BY ... kullanabilirsiniz , s ü sleyebilirsiniz .
5 ) 'SELECT * FROM CARI WHERE C_ADI like "' + edit1 . text + '*"'
> c_ad ı edit1 h ü cresindeki hece ile ba ş layanlar ı listeler .
...
sql c ü mlelerinde kar şı la şı lan tek t ı rnak ( ' ) problemi vardır,
bunu 2 ş ekilde ö nleyebilirsiniz ,
#39 kullanarak ( 39 nolu ascii karakterin kar şı l ığı tirnaktir )
" ( tab tu ş unun ü zerindeki tu ş da bulunan ç iftt ı rnak kullanarak )
ö rnekler :
sqlcumle := 'SELECT * FROM CARI WHERE C_ADI like "' + edit1 . text + '*"' ( do ğ rudur )
sqlcumle := 'SELECT * FROM CARI WHERE C_ADI like ' + #39 + edit1 . text + '*' + #39 ( do ğ rudur )
sqlcumle := 'SELECT * FROM CARI WHERE C_ADI like ''+edit1.text+' * '' ( yanl ış t ı r )
sqlcumle := 'SELECT * FROM CARI WHERE C_ADI like ''' + edit1 . text + '*''' ( do ğ rudur )
hangi y ö ntem size kolay geliyor ise onu kullan ı n ı z .
ben ş ahsen ç iftt ı rnak ( " ) olan ı tercih ediyorum , kodlama kar ış m ı yor o zaman ...
access de sql c ü mleciklerini şö yle kullanabilirsin :
...
adoquery1 . sql . text := sqlcumle ; //cümleyi ata
adoquery1 . sql . open ; //çalıştır, göster
( ilgili dbgrid ü zerinde g ö sterecektir )
...
ana iskelet yap ı s ı yla anlatmaya ç al ış t ı m ,
umar ı m yard ı m ı m olmu ş tur ...
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk:Forum - Düzeltme - "merhaba arkadaşlar yardıma ihtiyacım var"
****
d ü zeltilen yer :
sql c ü mleciklerinde " like " ekini yazmay ı unuttum .
bu yaz ı da ilave ettim .
****
"
MERHABA ARKADA Ş LAR YARDIMA İ HT İ YACIM VAR ... Bug ü n 13 : 44
Arkada ş lar Form Ü zerinde Bir Adet Edit
ve Vir Adet de DBGrid Var ben
Form A çı ld ığı nda DBGrid i ç inde Hi ç Kay ı t Olmayacak ...
BEn Edit1 İç ine Ö rnek % ( Y ü zde ) İş areti Yaz ı p Entere BAsarsam
CARI Tablosundaki Kay ı tlar ı DBGrid i ç ine L İ steleyecek ...
VEya Edit1 İç ine Ahmet Tin Ahm % Yazd ığ umda AHm İ le Ba ş layan Kay ı tlar ı
Listelemesini İ stiyorum ...
DAtabas Paradox Kullan ı yorum ..
Tablo Ad ı m ' CARI '
Kolun Ad ı m ' C_ADI'
Bana YArd ı mc ı Olabilirseniz Sevinirim ....
Ö nemli Arkada ş lar ...
sahinmaster
"
cevap :
sorunuzdan anlad ığı m kadar ı yla konu olarak " sql " e giriyor .
Bu konuda fazlaca d ö k ü man ve kod ö rne ğ i g ö rebilirsiniz kodbank i ç erisinde .
Kulland ığı n ı z veritaban ı Paradox olsun Access olsun farketmez ,
sql c ü mlecikleri hepsinde ge ç erlidir .
dbgrid , table ve datasource ayarlar ı n ı z ı yapt ığı n ı z ı varsay ı yorum .
( dbgridin datasource = datasource1 olarak yapt ı n ı z vs vs ... )
verdi ğ iniz tablo ad ı ve kolonunuza g ö re sql c ü mlecikleri ş unlar olabilir :
1 ) SELECT * FROM CARI WHERE C_ADI =" neoturk "
> c_ad ı neoturk olanlar ı listeler .
2 ) SELECT * FROM CARI WHERE C_ADI =" neoturk " ORDER BY C_ADI ASC
> c_ad ı neoturk olanlar ı listeler ve c_adi kolonuna g ö re s ı ralar .
ASC - Adan Zye do ğ ru s ı ralar
DESC - Zden Aya do ğ ru s ı ralar
3 ) SELECT * FROM CARI WHERE C_ADI like " neoturk *"
> c_ad ı neoturk ile ba ş layanlar ı listeler . ( * kulland ı m dikkat )
ORDEY BY ... kullanabilirsiniz , s ü sleyebilirsiniz .
4 ) SELECT * FROM CARI WHERE C_ADI like "% neoturk %"
> c_ad ı i ç erisinde neoturk ge ç enleri listeler ( % kulland ı m dikkat )
ORDEY BY ... kullanabilirsiniz , s ü sleyebilirsiniz .
5 ) 'SELECT * FROM CARI WHERE C_ADI like "' + edit1 . text + '*"'
> c_ad ı edit1 h ü cresindeki hece ile ba ş layanlar ı listeler .
...
sql c ü mlelerinde kar şı la şı lan tek t ı rnak ( ' ) problemi vardır,
bunu 2 ş ekilde ö nleyebilirsiniz ,
#39 kullanarak ( 39 nolu ascii karakterin kar şı l ığı tirnaktir )
" ( tab tu ş unun ü zerindeki tu ş da bulunan ç iftt ı rnak kullanarak )
ö rnekler :
sqlcumle := 'SELECT * FROM CARI WHERE C_ADI like "' + edit1 . text + '*"' ( do ğ rudur )
sqlcumle := 'SELECT * FROM CARI WHERE C_ADI like ' + #39 + edit1 . text + '*' + #39 ( do ğ rudur )
sqlcumle := 'SELECT * FROM CARI WHERE C_ADI like ''+edit1.text+' * '' ( yanl ış t ı r )
sqlcumle := 'SELECT * FROM CARI WHERE C_ADI like ''' + edit1 . text + '*''' ( do ğ rudur )
hangi y ö ntem size kolay geliyor ise onu kullan ı n ı z .
ben ş ahsen ç iftt ı rnak ( " ) olan ı tercih ediyorum , kodlama kar ış m ı yor o zaman ...
access de sql c ü mleciklerini şö yle kullanabilirsin :
...
adoquery1 . sql . text := sqlcumle ; //cümleyi ata
adoquery1 . sql . open ; //çalıştır, göster
( ilgili dbgrid ü zerinde g ö sterecektir )
...
ana iskelet yap ı s ı yla anlatmaya ç al ış t ı m ,
umar ı m yard ı m ı m olmu ş tur ...
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Forum - "merhaba arkadaşlar yardıma ihtiyacım var"
"
MERHABA ARKADA Ş LAR YARDIMA İ HT İ YACIM VAR ... Bug ü n 13 : 44
Arkada ş lar Form Ü zerinde Bir Adet Edit
ve Vir Adet de DBGrid Var ben
Form A çı ld ığı nda DBGrid i ç inde Hi ç Kay ı t Olmayacak ...
BEn Edit1 İç ine Ö rnek % ( Y ü zde ) İş areti Yaz ı p Entere BAsarsam
CARI Tablosundaki Kay ı tlar ı DBGrid i ç ine L İ steleyecek ...
VEya Edit1 İç ine Ahmet Tin Ahm % Yazd ığ umda AHm İ le Ba ş layan Kay ı tlar ı
Listelemesini İ stiyorum ...
DAtabas Paradox Kullan ı yorum ..
Tablo Ad ı m ' CARI '
Kolun Ad ı m ' C_ADI'
Bana YArd ı mc ı Olabilirseniz Sevinirim ....
Ö nemli Arkada ş lar ...
sahinmaster
"
cevap :
sorunuzdan anlad ığı m kadar ı yla konu olarak " sql " e giriyor .
Bu konuda fazlaca d ö k ü man ve kod ö rne ğ i g ö rebilirsiniz kodbank i ç erisinde .
Kulland ığı n ı z veritaban ı Paradox olsun Access olsun farketmez ,
sql c ü mlecikleri hepsinde ge ç erlidir .
dbgrid , table ve datasource ayarlar ı n ı z ı yapt ığı n ı z ı varsay ı yorum .
( dbgridin datasource = datasource1 olarak yapt ı n ı z vs vs ... )
verdi ğ iniz tablo ad ı ve kolonunuza g ö re sql c ü mlecikleri ş unlar olabilir :
1 ) SELECT * FROM CARI WHERE C_ADI =" neoturk "
> c_ad ı neoturk olanlar ı listeler .
2 ) SELECT * FROM CARI WHERE C_ADI =" neoturk " ORDER BY C_ADI ASC
> c_ad ı neoturk olanlar ı listeler ve c_adi kolonuna g ö re s ı ralar .
ASC - Adan Zye do ğ ru s ı ralar
DESC - Zden Aya do ğ ru s ı ralar
3 ) SELECT * FROM CARI WHERE C_ADI =" neoturk *"
> c_ad ı neoturk ile ba ş layanlar ı listeler . ( * kulland ı m dikkat )
ORDEY BY ... kullanabilirsiniz , s ü sleyebilirsiniz .
4 ) SELECT * FROM CARI WHERE C_ADI ="% neoturk %"
> c_ad ı i ç erisinde neoturk ge ç enleri listeler ( % kulland ı m dikkat )
ORDEY BY ... kullanabilirsiniz , s ü sleyebilirsiniz .
5 ) 'SELECT * FROM CARI WHERE C_ADI="' + edit1 . text + '*"'
> c_ad ı edit1 h ü cresindeki hece ile ba ş layanlar ı listeler .
...
sql c ü mlelerinde kar şı la şı lan tek t ı rnak ( ' ) problemi vardır,
bunu 2 ş ekilde ö nleyebilirsiniz ,
#39 kullanarak ( 39 nolu ascii karakterin kar şı l ığı tirnaktir )
" ( tab tu ş unun ü zerindeki tu ş da bulunan ç iftt ı rnak kullanarak )
ö rnekler :
sqlcumle := 'SELECT * FROM CARI WHERE C_ADI="' + edit1 . text + '*"' ( do ğ rudur )
sqlcumle := 'SELECT * FROM CARI WHERE C_ADI=' + #39 + edit1 . text + '*' + #39 ( do ğ rudur )
sqlcumle := 'SELECT * FROM CARI WHERE C_ADI=''+edit1.text+' * '' ( yanl ış t ı r )
sqlcumle := 'SELECT * FROM CARI WHERE C_ADI=''' + edit1 . text + '*''' ( do ğ rudur )
hangi y ö ntem size kolay geliyor ise onu kullan ı n ı z .
ben ş ahsen ç iftt ı rnak ( " ) olan ı tercih ediyorum , kodlama kar ış m ı yor o zaman ...
access de sql c ü mleciklerini şö yle kullanabilirsin :
...
adoquery1 . sql . text := sqlcumle ; //cümleyi ata
adoquery1 . sql . open ; //çalıştır, göster
( ilgili dbgrid ü zerinde g ö sterecektir )
...
ana iskelet yap ı s ı yla anlatmaya ç al ış t ı m ,
umar ı m yard ı m ı m olmu ş tur ...
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Forum - "merhaba arkadaşlar yardıma ihtiyacım var"
"
MERHABA ARKADA Ş LAR YARDIMA İ HT İ YACIM VAR ... Bug ü n 13 : 44
Arkada ş lar Form Ü zerinde Bir Adet Edit
ve Vir Adet de DBGrid Var ben
Form A çı ld ığı nda DBGrid i ç inde Hi ç Kay ı t Olmayacak ...
BEn Edit1 İç ine Ö rnek % ( Y ü zde ) İş areti Yaz ı p Entere BAsarsam
CARI Tablosundaki Kay ı tlar ı DBGrid i ç ine L İ steleyecek ...
VEya Edit1 İç ine Ahmet Tin Ahm % Yazd ığ umda AHm İ le Ba ş layan Kay ı tlar ı
Listelemesini İ stiyorum ...
DAtabas Paradox Kullan ı yorum ..
Tablo Ad ı m ' CARI '
Kolun Ad ı m ' C_ADI'
Bana YArd ı mc ı Olabilirseniz Sevinirim ....
Ö nemli Arkada ş lar ...
sahinmaster
"
cevap :
sorunuzdan anlad ığı m kadar ı yla konu olarak " sql " e giriyor .
Bu konuda fazlaca d ö k ü man ve kod ö rne ğ i g ö rebilirsiniz kodbank i ç erisinde .
Kulland ığı n ı z veritaban ı Paradox olsun Access olsun farketmez ,
sql c ü mlecikleri hepsinde ge ç erlidir .
dbgrid , table ve datasource ayarlar ı n ı z ı yapt ığı n ı z ı varsay ı yorum .
( dbgridin datasource = datasource1 olarak yapt ı n ı z vs vs ... )
verdi ğ iniz tablo ad ı ve kolonunuza g ö re sql c ü mlecikleri ş unlar olabilir :
1 ) SELECT * FROM CARI WHERE C_ADI =" neoturk "
> c_ad ı neoturk olanlar ı listeler .
2 ) SELECT * FROM CARI WHERE C_ADI =" neoturk " ORDER BY C_ADI ASC
> c_ad ı neoturk olanlar ı listeler ve c_adi kolonuna g ö re s ı ralar .
ASC - Adan Zye do ğ ru s ı ralar
DESC - Zden Aya do ğ ru s ı ralar
3 ) SELECT * FROM CARI WHERE C_ADI =" neoturk *"
> c_ad ı neoturk ile ba ş layanlar ı listeler . ( * kulland ı m dikkat )
ORDEY BY ... kullanabilirsiniz , s ü sleyebilirsiniz .
4 ) SELECT * FROM CARI WHERE C_ADI ="% neoturk %"
> c_ad ı i ç erisinde neoturk ge ç enleri listeler ( % kulland ı m dikkat )
ORDEY BY ... kullanabilirsiniz , s ü sleyebilirsiniz .
5 ) 'SELECT * FROM CARI WHERE C_ADI="' + edit1 . text + '*"'
> c_ad ı edit1 h ü cresindeki hece ile ba ş layanlar ı listeler .
...
sql c ü mlelerinde kar şı la şı lan tek t ı rnak ( ' ) problemi vardır,
bunu 2 ş ekilde ö nleyebilirsiniz ,
#39 kullanarak ( 39 nolu ascii karakterin kar şı l ığı tirnaktir )
" ( tab tu ş unun ü zerindeki tu ş da bulunan ç iftt ı rnak kullanarak )
ö rnekler :
sqlcumle := 'SELECT * FROM CARI WHERE C_ADI="' + edit1 . text + '*"' ( do ğ rudur )
sqlcumle := 'SELECT * FROM CARI WHERE C_ADI=' + #39 + edit1 . text + '*' + #39 ( do ğ rudur )
sqlcumle := 'SELECT * FROM CARI WHERE C_ADI=''+edit1.text+' * '' ( yanl ış t ı r )
sqlcumle := 'SELECT * FROM CARI WHERE C_ADI=''' + edit1 . text + '*''' ( do ğ rudur )
hangi y ö ntem size kolay geliyor ise onu kullan ı n ı z .
ben ş ahsen ç iftt ı rnak ( " ) olan ı tercih ediyorum , kodlama kar ış m ı yor o zaman ...
access de sql c ü mleciklerini şö yle kullanabilirsin :
...
adoquery1 . sql . text := sqlcumle ; //cümleyi ata
adoquery1 . sql . open ; //çalıştır, göster
( ilgili dbgrid ü zerinde g ö sterecektir )
...
ana iskelet yap ı s ı yla anlatmaya ç al ış t ı m ,
umar ı m yard ı m ı m olmu ş tur ...
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Burada Soru Sorulması Yasaklanmıştır, Buradaki Sorular Cevapsız bırakılacaktır
Konuyu daha fazla uzatmayacağı m !
Buraya sorulmu ş olan sorular ı,
her kim burada cevaplarsa ,
onu k ı namak zorunda kalaca ğı m , fena halde kalp k ı rar ı m .
Burada sorulmu ş sorular ı hi ç i ç eri ğ ine bile bakmadan S İ L İ N İ Z ...
Kimse cevap da vermesin , olaya da kar ış mas ı n .
Sorular ı n ı z ı foruma sorunuz , cevaplar ı n ı z ı burada bulacaks ı n ı z .
forum linki :
http : //...................................../Forums.aspx?Forums=1
K İ MSE BURADA SORULAN SORULARA CEVAP VERMES İ N
( BU B İ R EM İ RD İ R )
SORULAN SORULARI D İ REKT S İ L İ N İ Z
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Burada Soru Sorulması Yasaklanmıştır, Buradaki Sorular Cevapsız bırakılacaktır
Konuyu daha fazla uzatmayacağı m !
Buraya sorulmu ş olan sorular ı,
her kim burada cevaplarsa ,
onu k ı namak zorunda kalaca ğı m , fena halde kalp k ı rar ı m .
Burada sorulmu ş sorular ı hi ç i ç eri ğ ine bile bakmadan S İ L İ N İ Z ...
Kimse cevap da vermesin , olaya da kar ış mas ı n .
Sorular ı n ı z ı foruma sorunuz , cevaplar ı n ı z ı burada bulacaks ı n ı z .
forum linki :
http : //...................................../Forums.aspx?Forums=1
K İ MSE BURADA SORULAN SORULARA CEVAP VERMES İ N
( BU B İ R EM İ RD İ R )
SORULAN SORULARI D İ REKT S İ L İ N İ Z
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
Yardım Edebilen Yok mu?
Sorum ş u :
CD 'lerin seri numarası nasıl alınır.
l ü tfen yard ı m edin .
Delphi - .....................................
Yardım Edebilen Yok mu?
Sorum ş u :
CD 'lerin seri numarası nasıl alınır.
l ü tfen yard ı m edin .
Delphi - .....................................
neoturk: Forum - "microfon kaydı yapmak"
"
ses okuma Bug ü n 12 : 32
selam arkada ş lar bir proje i ç in ses kart ı ndan ses giri ş i yapmam gerek bunun
i ç in yol g ö sterirseniz sevinirim .
mikrofondan sesi okuyup bir dosya olarak kaydedecek .
ş imdiden te ş ekk ü rler ...
ofludursun
"
cevap :
//archived by neoturk - 2003
{************* record wav ****************}
//uses mmsystem
procedure recordwav ( sender : Tobject );
begin
mciSendString ( 'OPEN NEW TYPE WAVEAUDIO ALIAS mysound' , nil , 0 , form1 . Handle );
mciSendString ( 'SET mysound TIME FORMAT MS ' + // set time
'BITSPERSAMPLE 8 ' + // 8 Bit
'CHANNELS 1 ' + // MONO
'SAMPLESPERSEC 8000 ' + // 8 KHz
'BYTESPERSEC 8000' , // 8000 Bytes/s
nil , 0 , form1 . Handle );
mciSendString ( 'RECORD mysound' , nil , 0 , form1 . Handle )
end ;
{********* stop record wav **************}
procedure stoprecordwav ( sender : Tobject );
begin
mciSendString ( 'STOP mysound' , nil , 0 , form1 . Handle )
end ;
{********* save record wav **************}
procedure saverecordwav ( sender : Tobject ; xrecordfile : string );
begin
mciSendString ( PChar ( 'SAVE mysound ' + xrecordfile ), nil , 0 , form1 . Handle );
mciSendString ( 'CLOSE mysound' , nil , 0 , form1 . Handle )
end ;
kullan ı m ı:
kodda da belirttim uses b ö l ü m ü ne " mmsystem " eklemeyi unutmay ı n ı z ,
kayda - ba ş la click :
begin
recordwav ( sender );
end ;
kaydi - durdur click :
begin
stoprecordwav ( sender );
end ;
kayd ı- dosyaya - yaz click :
begin
saverecordwav ( sender , 'c:neo_deneme_wav_kayit.wav' );
end ;
B İ LG İ NOTU :
*******************
microfon ve ses ayarlar ı sa ğ l ı kl ı durumda olmal ı d ı r ,
yani bazen microfon sessizde kalabilir ,
bazen de aux - misc giri ş leri veya ,
ilgili ayarlar ı ( xp de ) farkl ı yap ı land ı r ı lm ış olabilir ..
microfon sesini " test " ettirdi ğ iniz anda ve ileti ş im sa ğ l ı kl ı kuruldu ğ u anda ,
verdi ğ im kodlar sorunsuz ç al ış acakt ı r ...
umar ı m yard ı mc ı olmu ş umdur .........
kolay gelsin ......
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Forum - "microfon kaydı yapmak"
"
ses okuma Bug ü n 12 : 32
selam arkada ş lar bir proje i ç in ses kart ı ndan ses giri ş i yapmam gerek bunun
i ç in yol g ö sterirseniz sevinirim .
mikrofondan sesi okuyup bir dosya olarak kaydedecek .
ş imdiden te ş ekk ü rler ...
ofludursun
"
cevap :
//archived by neoturk - 2003
{************* record wav ****************}
//uses mmsystem
procedure recordwav ( sender : Tobject );
begin
mciSendString ( 'OPEN NEW TYPE WAVEAUDIO ALIAS mysound' , nil , 0 , form1 . Handle );
mciSendString ( 'SET mysound TIME FORMAT MS ' + // set time
'BITSPERSAMPLE 8 ' + // 8 Bit
'CHANNELS 1 ' + // MONO
'SAMPLESPERSEC 8000 ' + // 8 KHz
'BYTESPERSEC 8000' , // 8000 Bytes/s
nil , 0 , form1 . Handle );
mciSendString ( 'RECORD mysound' , nil , 0 , form1 . Handle )
end ;
{********* stop record wav **************}
procedure stoprecordwav ( sender : Tobject );
begin
mciSendString ( 'STOP mysound' , nil , 0 , form1 . Handle )
end ;
{********* save record wav **************}
procedure saverecordwav ( sender : Tobject ; xrecordfile : string );
begin
mciSendString ( PChar ( 'SAVE mysound ' + xrecordfile ), nil , 0 , form1 . Handle );
mciSendString ( 'CLOSE mysound' , nil , 0 , form1 . Handle )
end ;
kullan ı m ı:
kodda da belirttim uses b ö l ü m ü ne " mmsystem " eklemeyi unutmay ı n ı z ,
kayda - ba ş la click :
begin
recordwav ( sender );
end ;
kaydi - durdur click :
begin
stoprecordwav ( sender );
end ;
kayd ı- dosyaya - yaz click :
begin
saverecordwav ( sender , 'c:neo_deneme_wav_kayit.wav' );
end ;
B İ LG İ NOTU :
*******************
microfon ve ses ayarlar ı sa ğ l ı kl ı durumda olmal ı d ı r ,
yani bazen microfon sessizde kalabilir ,
bazen de aux - misc giri ş leri veya ,
ilgili ayarlar ı ( xp de ) farkl ı yap ı land ı r ı lm ış olabilir ..
microfon sesini " test " ettirdi ğ iniz anda ve ileti ş im sa ğ l ı kl ı kuruldu ğ u anda ,
verdi ğ im kodlar sorunsuz ç al ış acakt ı r ...
umar ı m yard ı mc ı olmu ş umdur .........
kolay gelsin ......
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Forum - "aynı anda birden fazla kod satırını çalıştırmak"
"
E ş ZAmanl ı komut sat ı r ı... Bug ü n 11 : 42
Arkada ş lar benim sorum biraz kar şı k gibi geliyor muhakkak kolayd ı r ama
ben yakalayamad ı m bir t ü rl ü sorum ş u :
ayn ı anda ( e ş zamanl ı) birden fazla komut sat ı r ı n ı nas ı l ç al ış t ı ra bilirim
ü st sat ı r ı n g ö revi bitmeden alttaki sat ı r ve daha ba ş ka sat ı r ayn ı formda
ayn ı unit te ayn ı butonda ( ayn ı procedure de ) bi el at ı p
yard ı mc ı olursan ı z sevinirim
Ç ok te ş ekk ü rler herkeze
youutek
"
cevap :
Ayn ı anda birden fazla komut sat ı r ı n ı ç al ış t ı rmak ,
yani ayn ı anda birden fazla " i ş lem " yapt ı rmak ,
" thread "( i ş par ç ac ığı) konusuna girer .
Thread programlama ileri bir programlamad ı r .
Dezavantaj olarak performans kayb ı na yol a ç ar .
Avantaj olarak birden fazla i ş i ayn ı anda yapt ı rabilirsiniz .
" TProgressThread " s ı n ı f ı ndan t ü retilen thread i ş par ç ac ığı kodlamas ı
i ç in a ş a ğı daki ö rnek kodu inceleyiniz ve deneyiniz .
iskelet yap ı s ı olarak bu kodu veriyorum , mant ığı n ı kavray ı p ö nce ufak denemelerle ,
ard ı ndan yapt ı rmak istedi ğ iniz i ş- par ç ac ı klar ı ile yo ğ unla ş t ı r ı n ı z .
//archived by neoturk - 2004 ( Thread Programming )
unit Unit1 ;
interface
uses
Windows , Messages , SysUtils , Classes , Graphics , Controls , Forms , Dialogs ,
StdCtrls , ComCtrls ;
type
TProgressThread = class ( TThread )
private
fRandomNo : Integer ;
fThreadNo : Integer ;
fProgress : Integer ;
fDone : Boolean ;
protected
procedure Execute ; override ;
procedure ShowProgress ;
end ;
TForm1 = class ( TForm )
Button1 : TButton ;
ProgressBar1 : TProgressBar ;
ProgressBar2 : TProgressBar ;
ProgressBar3 : TProgressBar ;
ProgressBar4 : TProgressBar ;
ProgressBar5 : TProgressBar ;
ProgressBar6 : TProgressBar ;
ProgressBar7 : TProgressBar ;
ProgressBar8 : TProgressBar ;
ProgressBar9 : TProgressBar ;
ProgressBar10 : TProgressBar ;
Memo1 : TMemo ;
procedure Button1Click ( Sender : TObject );
private
ProgressThread : TProgressThread ;
{ Private declarations }
public
{ Public declarations }
end ;
var
Form1 : TForm1 ;
implementation
{$R *.DFM}
procedure TForm1 . Button1Click ( Sender : TObject );
var n : Integer ;
begin
Randomize ;
Memo1 . Clear ;
// 10 tane iş parçacığı üret ve başlat
for n := 1 to 10 do
begin
ProgressThread := TProgressThread . Create ( true );
ProgressThread . FreeOnTerminate := true ;
ProgressThread . fThreadNo := n ;
ProgressThread . fRandomNo := Random ( 100 );
ProgressThread . FProgress := 0 ;
ProgressThread . fDone := false ;
// işi başlat
ProgressThread . Resume ;
end ;
end ;
{ TProgressThread }
procedure TProgressThread . Execute ;
begin
repeat
if fRandomNo = Random ( 100000 ) then
begin
if fProgress < 100 then
begin
Inc ( fProgress );
if fProgress = 100 then fDone := true ;
Synchronize ( ShowProgress );
end ;
end ;
until fDone ;
end ;
procedure TProgressThread . ShowProgress ;
begin
// progress barları iş parçacığına göre güncelle
case fThreadNo of
1 : Form1 . ProgressBar1 . Position := fProgress ;
2 : Form1 . ProgressBar2 . Position := fProgress ;
3 : Form1 . ProgressBar3 . Position := fProgress ;
4 : Form1 . ProgressBar4 . Position := fProgress ;
5 : Form1 . ProgressBar5 . Position := fProgress ;
6 : Form1 . ProgressBar6 . Position := fProgress ;
7 : Form1 . ProgressBar7 . Position := fProgress ;
8 : Form1 . ProgressBar8 . Position := fProgress ;
9 : Form1 . ProgressBar9 . Position := fProgress ;
10 : Form1 . ProgressBar10 . Position := fProgress ;
end ;
// işlemler tamamlandığında
if fDone then
Form1 . Memo1 . Lines . Add ( 'İş parçacığı no: ' + IntToStr ( fThreadNo ) +
' tamamlandı.' );
end ;
end .
ileri kodlama yap ı s ı na girse de iyi bir ö rnek oldu ğ unu d üşü n ü yorum ...
" application . ProcessMessages " komutu sordu ğ unuz sorunun cevab ı de ğ ildir ...
bu komut sadece di ğ er " event " lara ara sekmelerle kontrol imkan ı sunar ...
( daha ö nceden de sizin sorunuza benzer bir soru soruldu ğ unda , c ü mle alem ,
" application . processmessages kullan tamamd ı r " ş eklinde a çı klama yapm ış lard ı,
ç ok biliyolard ı san ı yorum , çü nk ü yazm ış lar okumu ş lar ........... )
umar ı m yard ı mc ı olabilmi ş imdir ..
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Forum - "aynı anda birden fazla kod satırını çalıştırmak"
"
E ş ZAmanl ı komut sat ı r ı... Bug ü n 11 : 42
Arkada ş lar benim sorum biraz kar şı k gibi geliyor muhakkak kolayd ı r ama
ben yakalayamad ı m bir t ü rl ü sorum ş u :
ayn ı anda ( e ş zamanl ı) birden fazla komut sat ı r ı n ı nas ı l ç al ış t ı ra bilirim
ü st sat ı r ı n g ö revi bitmeden alttaki sat ı r ve daha ba ş ka sat ı r ayn ı formda
ayn ı unit te ayn ı butonda ( ayn ı procedure de ) bi el at ı p
yard ı mc ı olursan ı z sevinirim
Ç ok te ş ekk ü rler herkeze
youutek
"
cevap :
Ayn ı anda birden fazla komut sat ı r ı n ı ç al ış t ı rmak ,
yani ayn ı anda birden fazla " i ş lem " yapt ı rmak ,
" thread "( i ş par ç ac ığı) konusuna girer .
Thread programlama ileri bir programlamad ı r .
Dezavantaj olarak performans kayb ı na yol a ç ar .
Avantaj olarak birden fazla i ş i ayn ı anda yapt ı rabilirsiniz .
" TProgressThread " s ı n ı f ı ndan t ü retilen thread i ş par ç ac ığı kodlamas ı
i ç in a ş a ğı daki ö rnek kodu inceleyiniz ve deneyiniz .
iskelet yap ı s ı olarak bu kodu veriyorum , mant ığı n ı kavray ı p ö nce ufak denemelerle ,
ard ı ndan yapt ı rmak istedi ğ iniz i ş- par ç ac ı klar ı ile yo ğ unla ş t ı r ı n ı z .
//archived by neoturk - 2004 ( Thread Programming )
unit Unit1 ;
interface
uses
Windows , Messages , SysUtils , Classes , Graphics , Controls , Forms , Dialogs ,
StdCtrls , ComCtrls ;
type
TProgressThread = class ( TThread )
private
fRandomNo : Integer ;
fThreadNo : Integer ;
fProgress : Integer ;
fDone : Boolean ;
protected
procedure Execute ; override ;
procedure ShowProgress ;
end ;
TForm1 = class ( TForm )
Button1 : TButton ;
ProgressBar1 : TProgressBar ;
ProgressBar2 : TProgressBar ;
ProgressBar3 : TProgressBar ;
ProgressBar4 : TProgressBar ;
ProgressBar5 : TProgressBar ;
ProgressBar6 : TProgressBar ;
ProgressBar7 : TProgressBar ;
ProgressBar8 : TProgressBar ;
ProgressBar9 : TProgressBar ;
ProgressBar10 : TProgressBar ;
Memo1 : TMemo ;
procedure Button1Click ( Sender : TObject );
private
ProgressThread : TProgressThread ;
{ Private declarations }
public
{ Public declarations }
end ;
var
Form1 : TForm1 ;
implementation
{$R *.DFM}
procedure TForm1 . Button1Click ( Sender : TObject );
var n : Integer ;
begin
Randomize ;
Memo1 . Clear ;
// 10 tane iş parçacığı üret ve başlat
for n := 1 to 10 do
begin
ProgressThread := TProgressThread . Create ( true );
ProgressThread . FreeOnTerminate := true ;
ProgressThread . fThreadNo := n ;
ProgressThread . fRandomNo := Random ( 100 );
ProgressThread . FProgress := 0 ;
ProgressThread . fDone := false ;
// işi başlat
ProgressThread . Resume ;
end ;
end ;
{ TProgressThread }
procedure TProgressThread . Execute ;
begin
repeat
if fRandomNo = Random ( 100000 ) then
begin
if fProgress < 100 then
begin
Inc ( fProgress );
if fProgress = 100 then fDone := true ;
Synchronize ( ShowProgress );
end ;
end ;
until fDone ;
end ;
procedure TProgressThread . ShowProgress ;
begin
// progress barları iş parçacığına göre güncelle
case fThreadNo of
1 : Form1 . ProgressBar1 . Position := fProgress ;
2 : Form1 . ProgressBar2 . Position := fProgress ;
3 : Form1 . ProgressBar3 . Position := fProgress ;
4 : Form1 . ProgressBar4 . Position := fProgress ;
5 : Form1 . ProgressBar5 . Position := fProgress ;
6 : Form1 . ProgressBar6 . Position := fProgress ;
7 : Form1 . ProgressBar7 . Position := fProgress ;
8 : Form1 . ProgressBar8 . Position := fProgress ;
9 : Form1 . ProgressBar9 . Position := fProgress ;
10 : Form1 . ProgressBar10 . Position := fProgress ;
end ;
// işlemler tamamlandığında
if fDone then
Form1 . Memo1 . Lines . Add ( 'İş parçacığı no: ' + IntToStr ( fThreadNo ) +
' tamamlandı.' );
end ;
end .
ileri kodlama yap ı s ı na girse de iyi bir ö rnek oldu ğ unu d üşü n ü yorum ...
" application . ProcessMessages " komutu sordu ğ unuz sorunun cevab ı de ğ ildir ...
bu komut sadece di ğ er " event " lara ara sekmelerle kontrol imkan ı sunar ...
( daha ö nceden de sizin sorunuza benzer bir soru soruldu ğ unda , c ü mle alem ,
" application . processmessages kullan tamamd ı r " ş eklinde a çı klama yapm ış lard ı,
ç ok biliyolard ı san ı yorum , çü nk ü yazm ış lar okumu ş lar ........... )
umar ı m yard ı mc ı olabilmi ş imdir ..
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Forum - "Kronometre"
"
Daha detayl ı bilgi l ü tfen Bug ü n 01 : 28
1 ----- Rastgele 10 say ı ü retip ü retilen say ı lar ı memo i ç erisine yazan program
Bu soruyu verdi ğ iniz kodlarla yapamad ı m daha detayl ı bilgi verebilirmisiniz
ve geriye do ğ ru de ğ ilde ileri do ğ ru ç al ış an kronometreye ihtiyac ı m var bu
konudada yard ı mc ı olabilirmisin acaba Ba ş la dur reset butonlar ı olmal ı..
te ş ekk ü rler
hasg üç
"
cevap :
yeni bir uygulama projesi ü retelim , teorik olarak yaz ı yorum ,
forma 1 adet timer
forma 3 adet button ( reset - ba ş la - dur )
forma 1 adet label
yerle ş tiriniz .
timer nesnesinin enabled de ğ erini false atay ı n ı z .
timer nesnesinin interval de ğ erini 10 atay ı n ı z ( de ğ i ş tirebilirsiniz h ı za ba ğ l ı olarak )
Ana VAR blo ğ una ş u tan ı m ı yap ı n ı z ,
var
Form1 : TForm1 ;
salise , saniye , dakika , saat : byte ; //kronometre değişkenleri
timer nesnesinin ontimer olay ı na ş u kodu yaz ı n ı z ;
procedure TForm1 . Timer1Timer ( Sender : TObject );
begin
inc ( salise );
if salise > 100 then //intervale bağlı olarak değişir bu satır
begin
salise := 0 ;
inc ( saniye );
if saniye >= 60 then
begin
saniye := 0 ;
inc ( dakika );
if dakika >= 60 then inc ( saat );
end ;
end ;
label1 . Caption := formatfloat ( '00' , saat )+ ' : ' + formatfloat ( '00' , dakika )+ ' : ' + formatfloat ( '00' , saniye )+ ' : ' + formatfloat ( '00' , salise );
end ;
reset butonuna ş u kodu yaz ı n ı z :
begin
salise := 0 ;
saniye := 0 ;
dakika := 0 ;
saat := 0 ;
end ;
ba ş la botununa ş u kodu yaz ı n ı z :
timer1 . enabled := true ;
dur botununa ş u kodu yaz ı n ı z :
timer1 . enabled := false ;
F9 ile program ı ç al ış t ı r ı p test ediniz .
istedi ğ iniz kronometre kar şı n ı zda ç al ışı yor durumda olmal ı.........
CEVAP 2 :
say ı ü retip bunlar ı memo i ç ine aktaran kod ö rne ğ ini tekrardan yazmayaca ğı m .
gereken kodu yazm ış t ı m ,
bak ı n ı z :" edit ü zerinde rastgele say ı ü reten function "
bu koda bak ı p da ,
memo i ç ine aktar ı m yapam ı yor iseniz diyecek bir s ö z ü m yok .......
memo1 . lines . add ( '...ne.eklemek.istiyosan.buraya.yaz....' );
bu kadar da vurdum duymazl ı k yapmay ı n ya .....
her yazd ığı m kod i ç in pi ş manl ı k ettirmeyin ..
biraz yarat ı c ı olun art ı k !........
neredeyse kahvenizin ş ekerini de nas ı l kar ış t ı r ı laca ğı n ı anlataca ğı m art ı k .....
kolay gelsin ....
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Forum - "Kronometre"
"
Daha detayl ı bilgi l ü tfen Bug ü n 01 : 28
1 ----- Rastgele 10 say ı ü retip ü retilen say ı lar ı memo i ç erisine yazan program
Bu soruyu verdi ğ iniz kodlarla yapamad ı m daha detayl ı bilgi verebilirmisiniz
ve geriye do ğ ru de ğ ilde ileri do ğ ru ç al ış an kronometreye ihtiyac ı m var bu
konudada yard ı mc ı olabilirmisin acaba Ba ş la dur reset butonlar ı olmal ı..
te ş ekk ü rler
hasg üç
"
cevap :
yeni bir uygulama projesi ü retelim , teorik olarak yaz ı yorum ,
forma 1 adet timer
forma 3 adet button ( reset - ba ş la - dur )
forma 1 adet label
yerle ş tiriniz .
timer nesnesinin enabled de ğ erini false atay ı n ı z .
timer nesnesinin interval de ğ erini 10 atay ı n ı z ( de ğ i ş tirebilirsiniz h ı za ba ğ l ı olarak )
Ana VAR blo ğ una ş u tan ı m ı yap ı n ı z ,
var
Form1 : TForm1 ;
salise , saniye , dakika , saat : byte ; //kronometre değişkenleri
timer nesnesinin ontimer olay ı na ş u kodu yaz ı n ı z ;
procedure TForm1 . Timer1Timer ( Sender : TObject );
begin
inc ( salise );
if salise > 100 then //intervale bağlı olarak değişir bu satır
begin
salise := 0 ;
inc ( saniye );
if saniye >= 60 then
begin
saniye := 0 ;
inc ( dakika );
if dakika >= 60 then inc ( saat );
end ;
end ;
label1 . Caption := formatfloat ( '00' , saat )+ ' : ' + formatfloat ( '00' , dakika )+ ' : ' + formatfloat ( '00' , saniye )+ ' : ' + formatfloat ( '00' , salise );
end ;
reset butonuna ş u kodu yaz ı n ı z :
begin
salise := 0 ;
saniye := 0 ;
dakika := 0 ;
saat := 0 ;
end ;
ba ş la botununa ş u kodu yaz ı n ı z :
timer1 . enabled := true ;
dur botununa ş u kodu yaz ı n ı z :
timer1 . enabled := false ;
F9 ile program ı ç al ış t ı r ı p test ediniz .
istedi ğ iniz kronometre kar şı n ı zda ç al ışı yor durumda olmal ı.........
CEVAP 2 :
say ı ü retip bunlar ı memo i ç ine aktaran kod ö rne ğ ini tekrardan yazmayaca ğı m .
gereken kodu yazm ış t ı m ,
bak ı n ı z :" edit ü zerinde rastgele say ı ü reten function "
bu koda bak ı p da ,
memo i ç ine aktar ı m yapam ı yor iseniz diyecek bir s ö z ü m yok .......
memo1 . lines . add ( '...ne.eklemek.istiyosan.buraya.yaz....' );
bu kadar da vurdum duymazl ı k yapmay ı n ya .....
her yazd ığı m kod i ç in pi ş manl ı k ettirmeyin ..
biraz yarat ı c ı olun art ı k !........
neredeyse kahvenizin ş ekerini de nas ı l kar ış t ı r ı laca ğı n ı anlataca ğı m art ı k .....
kolay gelsin ....
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Forum - "yardıma ihtiyacım var arkadaşlar"
"
YARDIMA İ HT İ YACIM VAR ARKADA Ş LAR .... 24 Kas ı m 2005 09 : 53
Merhaba Arkada ş lar ....
dbcomboBox1 İç indeki Bir Say ı y ı Table1 İç indeki Say ı Kolonunda Olup
olmad ığı n ı Kontrol Edecek .. Var İ se Hi ç Bir Ş ey Yapmayacak Yok ise Uyar ı
Mesaj ı Verecek ....
Bu Konuda Yard ı mc ı Olabilirseniz Sevinirim ....
Kolay Gelsin ...
sahinmaster
"
cevap :
ö ncelikle ,
dbcombobox kullan ı yor iseniz ,
bu zaten table i ç indeki bir field sahas ı n ı n i ç eri ğ ini g ö steriyor demektir .
dolay ı s ı yla , " table i ç indeki say ı kolonunda olup olmad ığı n ı kontrol etmek "
iste ğ i mant ı ks ı z bir ç ak ış maya sebep oluyor ...
dbcombobox nesnenizin tutulan field sahas ı " renkler " olsun diyelim ,
ve access kulland ığı n ı z ı varsay ı yorum ,
i ç inin bo ş olup olmad ığı n ı şö yle diyebiliriz ,
if adotable1 . fields . fieldbyname ( 'RENKLER' ). asstring = '' then showmessage ( 'kayıt boştur' );
dbcombobox nesnesinin " items " ö zelli ğ ine varsay ı lan de ğ erler atayabilirsiniz .
kullan ı c ı buradan se ç ti ğ i itemi otomatik olarak veri taban ı nda de ğ i ş tirebilir .
dbcombobox ile normal combobox farkl ı nesnelerdir .
dbcombobox 'ın anlamı zaten üzerindedir, ilgili field sahasını burada göster anlamındadır.
sordu ğ unuz sorunuzu şö yle de ğ i ş tirirsek ,
" benim bir combobox 'ım var, içinde liste halinde item değerlerim var.
veri taban ı ndaki ilgili kolonda bu listedeki de ğ erlerden herhangi birisi var sa
şö yle olsun , yoksa b ö yle olsun ..."
bunu da şö yle d ü zeltebiliriz :
combobox1 nesnesi yerle ş tiriniz uygulaman ı za ,
ve i ç erisine kontrol ettirece ğ iniz items de ğ erlerini atay ı n ı z ,
daha sonra kontrol ama ç l ı a ş a ğı daki kod yap ı s ı n ı kendinize g ö re kurgulay ı n ı z .
var x : string ; m : integer ;
begin
x := adotable1 . fields . fieldbyname ( 'RENKLER' ). asstring ;
m := combobox1 . items . indexof ( x );
if m <>- 1 then
begin
showmessage ( 'veri tabanındaki renkler kolonundaki veri, combobox içerisinde mevcuttur' );
....
end
else
begin
showmessage ( 'veri tabanındaki renkler kolonundaki veri, combobox içerisinde YOKTUR' );
....
end ;
//final
end ;
EK OLARAK : ( size kalm ış )
ayr ı ca veri taban ı nda kullan ı lan bir ba ş ka y ö ntem de " picklist " ler olu ş turmakt ı r .
dbgrid nesnesinin colums ö zelli ğ ine girin .
yeni eklemek istedi ğ iniz field alanlar ı n ı ekleyin . ( sar ı ikonlu d üğ me - add new )
ekledi ğ iniz fieldin properties penceresinde " picklist " ö zelli ğ i g ö receksiniz ,
buraya ç ift t ı klay ı n ( üç nokta olan yere "..." ) gereken items sat ı rlar ı n ı ekleyin .
otomatik ç oktan se ç im ö zelli ğ i de ekleyebilirsiniz .
sorunuzu bu ş ekilde anlad ı m ...
umar ı m yard ı mc ı olmu ş umdur ...
kolay gelsin ....
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Forum - "yardıma ihtiyacım var arkadaşlar"
"
YARDIMA İ HT İ YACIM VAR ARKADA Ş LAR .... 24 Kas ı m 2005 09 : 53
Merhaba Arkada ş lar ....
dbcomboBox1 İç indeki Bir Say ı y ı Table1 İç indeki Say ı Kolonunda Olup
olmad ığı n ı Kontrol Edecek .. Var İ se Hi ç Bir Ş ey Yapmayacak Yok ise Uyar ı
Mesaj ı Verecek ....
Bu Konuda Yard ı mc ı Olabilirseniz Sevinirim ....
Kolay Gelsin ...
sahinmaster
"
cevap :
ö ncelikle ,
dbcombobox kullan ı yor iseniz ,
bu zaten table i ç indeki bir field sahas ı n ı n i ç eri ğ ini g ö steriyor demektir .
dolay ı s ı yla , " table i ç indeki say ı kolonunda olup olmad ığı n ı kontrol etmek "
iste ğ i mant ı ks ı z bir ç ak ış maya sebep oluyor ...
dbcombobox nesnenizin tutulan field sahas ı " renkler " olsun diyelim ,
ve access kulland ığı n ı z ı varsay ı yorum ,
i ç inin bo ş olup olmad ığı n ı şö yle diyebiliriz ,
if adotable1 . fields . fieldbyname ( 'RENKLER' ). asstring = '' then showmessage ( 'kayıt boştur' );
dbcombobox nesnesinin " items " ö zelli ğ ine varsay ı lan de ğ erler atayabilirsiniz .
kullan ı c ı buradan se ç ti ğ i itemi otomatik olarak veri taban ı nda de ğ i ş tirebilir .
dbcombobox ile normal combobox farkl ı nesnelerdir .
dbcombobox 'ın anlamı zaten üzerindedir, ilgili field sahasını burada göster anlamındadır.
sordu ğ unuz sorunuzu şö yle de ğ i ş tirirsek ,
" benim bir combobox 'ım var, içinde liste halinde item değerlerim var.
veri taban ı ndaki ilgili kolonda bu listedeki de ğ erlerden herhangi birisi var sa
şö yle olsun , yoksa b ö yle olsun ..."
bunu da şö yle d ü zeltebiliriz :
combobox1 nesnesi yerle ş tiriniz uygulaman ı za ,
ve i ç erisine kontrol ettirece ğ iniz items de ğ erlerini atay ı n ı z ,
daha sonra kontrol ama ç l ı a ş a ğı daki kod yap ı s ı n ı kendinize g ö re kurgulay ı n ı z .
var x : string ; m : integer ;
begin
x := adotable1 . fields . fieldbyname ( 'RENKLER' ). asstring ;
m := combobox1 . items . indexof ( x );
if m <>- 1 then
begin
showmessage ( 'veri tabanındaki renkler kolonundaki veri, combobox içerisinde mevcuttur' );
....
end
else
begin
showmessage ( 'veri tabanındaki renkler kolonundaki veri, combobox içerisinde YOKTUR' );
....
end ;
//final
end ;
EK OLARAK : ( size kalm ış )
ayr ı ca veri taban ı nda kullan ı lan bir ba ş ka y ö ntem de " picklist " ler olu ş turmakt ı r .
dbgrid nesnesinin colums ö zelli ğ ine girin .
yeni eklemek istedi ğ iniz field alanlar ı n ı ekleyin . ( sar ı ikonlu d üğ me - add new )
ekledi ğ iniz fieldin properties penceresinde " picklist " ö zelli ğ i g ö receksiniz ,
buraya ç ift t ı klay ı n ( üç nokta olan yere "..." ) gereken items sat ı rlar ı n ı ekleyin .
otomatik ç oktan se ç im ö zelli ğ i de ekleyebilirsiniz .
sorunuzu bu ş ekilde anlad ı m ...
umar ı m yard ı mc ı olmu ş umdur ...
kolay gelsin ....
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Forum - "text dosyada arama ve listbox hakkında"
text dosyada arama ve listbox hakkı nda Bug ü n 00 : 11
selam arkada ş lar . ö necelikle yard ı mlar ı n ı zdan dolay ı ger ç ekten herkese
ç ok te ş ekk ü r ederim bu sitede ç ok kaliteli insanlar var .
benim sorunum .:
ben text dosyaya kay ı t kaydedip sonrada bu kay ı tlar ı listboxta listeletiyorum .
ben sadece ü r ü n ad ı kay ı tlar ı n ı listeletip kullan ı c ı listboxtaki bir ü r ü n
ad ı na t ı klay ı nca o ü r ü n ad ı nla ilgili bilgiler yan taraftaki edit lerde
g ö r ü nmesini istiyorum .
benim yapamad ığı m yer listbox taki ü r ü n ad ı kayd ı na t ı kland ığı nda
dosyada t ı klanan ü r ü n ad ı n ı arat ı p o ad ile ilgili bilgileri
edit . text lere yerle ş tirmek ve b ö ylece kullan ı c ı ya bu kay ı t ile
ilgili d ü zenleme imkan ı vermek .
ç ok acil yard ı mlar ı n ı z ı bekliyorum ..
sayg ı lar ı mla ...
benim listelemede kulland ığı m kodlar a ş a ğı dad ı r .
procedure Tanaform . BitBtn4Click ( Sender : TObject );
var
i : integer ;
begin
listbox1 . clear ;
assignfile ( stokdosya , 'c:stoksatısdata.sys' );
{$i-} reset ( stokdosya ); {$i+}
for i := 0 to filesize ( stokdosya )- 1 do
begin
seek ( stokdosya , i ); read ( stokdosya , skay );
if skay . f = '*' then
begin
listbox1 . items . add ( stokkay . uad );
end ;
end ;
end ;
memolipascal
"
cevap :
de ğ erli memolipascal arkada şı m ,
bir ö nceki sorunuza ba ğ lant ı l ı olarak ,
kodlama yap ı s ı ndaki u ğ ra şı n ı z ı takdirle kar şı l ı yorum ...
sorunuz g ü zel , ancak , uzunca anlatmak istedi ğ im unsurlar var .
pascal tabanl ı veri saklamak - okutmak ( k ü t ü k yap ı s ı )
fikrinden yava ş yava ş vazge ç melisiniz . Bunu daha uygun
y ö ntemlerle nas ı l yapabilece ğ inizi birazdan anlataca ğı m .
"
if skay . f = '*' then
begin
listbox1 . items . add ( stokkay . uad );
end ;
"
ş eklindeki bir kodlama mant ığı n ı n anlam ı ş u olabilir ,
( yan ı l ı yor olabilirim , veya siz ba ş ka bir ama ç i ç in kullanm ış olabilirsiniz )
" ilgili kay ı t silinmemi ş ise " mant ığı olabilir ..
ki , bu da 10 sene ö nceki ü niversitede bizlere g ö sterilen ,
silinen kay ı tlar ı n ba şı na "*" simgesi koymak veya koymamak ,
ile k ü t ü k yap ı lar ı idi ...
dedi ğ im gibi " k ü t ü k yap ı lar ı" mant ığı delphide kullanman ı za gerek kalmayacak .
k ü t ü k yap ı lar ı n kay ı t arama i ş lemini " lineer "( s ı radan ) yap ı yor iseniz ,
ç ok kayd ı n ı z oldu ğ unda zaman kayb ı ve i ş lem kalabal ığı yapacakt ı r .
eskimi ş bir y ö ntemdir . ( index yap ı s ı n ı da kullanabilirsiniz ama dedi ğ im gibi
eskimi ş ve epeyce geride kalm ış bir uygulama ö rne ğ idir )
veri taban ı na neden ge ç i ş yapmad ığı n ı z ı bilmiyorum .
belki de hen ü z ı s ı namam ış olabilirsiniz DB olaylar ı na ..
çü nk ü dedi ğ im gibi , pascal tabanl ı k ü t ü k yap ı s ı kodlara al ış k ı n birisi i ç in ,
veri taban ı na ge ç i ş yapmak , sudan çı km ış bal ığ a benzer bir " korku " i ç erir ..
bu her zaman olmu ş tur ... Ben de ayn ı ş a ş k ı nl ığı ve korkuyu zaman ı nda ya ş ad ı m .
veri taban ı kullanmak istemiyorsan ı z , ve k ü t ü k yap ı s ı ş eklinde bir program
geli ş tirmek istiyor iseniz , size ö nerece ğ im a ş a ğı daki mant ığı kullan ı n ı z
ve kendinizi bu kodlar ü zerinde geli ş tiriniz .
s ı f ı rdan bir proje olu ş tural ı m .
amac ı m ı z ş u olsun :
veri taban ı kullanmadan " adsoyad - telefon - adres " bilgilerinin takibi yapan
bir program yazal ı m . ( k ü t ü k sistemi gibi .. ama yeni nesil kodlama ile )
Anlataca ğı m ö rnek , en temel ve iskelet yap ı olacakt ı r .
Geli ş tirilmesini siz yapabilirsiniz . teorik olarak yaz ı yorum ..
formun tasar ı m ı n ı şö yle yap ı n ı z :
( button - label - edit - listbox dizaynlar ı n ı size b ı rak ı yorum )
Ad ı soyad ı : Edit1
Telefonu : Edit2
Adresi : Edit3
Listbox1 ( adsoyadlistesi ) Listbox2 ( telefonlistesi ) listbox3 ( adreslistesi )
bu dizayn ı yap ı n ı z . Listboxlar i ç erisinde ilgili girilmi ş olan kay ı tlar
otomatik olarak g ö sterilecektir .( b ö yle ayarlayaca ğı z kod ile birazdan )
listbox ü zerinde t ı klan ı lan sat ı ra ili ş kin bilgiler de edit kutular ı
ü zerine otomatik gelecektir . ( bunu da ayarlayaca ğı z )
projenin ana " VAR " blo ğ unda a ş a ğı daki yap ı y ı tan ı mlay ı n ı z
VAR
adsoyad , tel , adres : Tstringlist ;
apppath : string ;
Formun oncreate olay ı na a ş a ğı daki yap ı y ı kodlay ı n ı z :
var x : string ;
begin
apppath := extractfilepath ( application . exename )+ '' ;
adsoyad := tstringlist . create ;
tel := tstringlist . create ;
adres := tstringlist . create ;
x := apppath + 'adsoyad.txt' ; //sizin kütük dosyanız ( yeni nesil )
if fileexists ( x ) then
begin
adsoyad . loadfromfile ( x ); //hafızaya yükle
listbox1 . loadfromfile ( x ); //listboxa yükle
end ;
x := apppath + 'tel.txt' ; //sizin kütük dosyanız ( yeni nesil )
if fileexists ( x ) then
begin
tel . loadfromfile ( x ); //hafızaya yükle
listbox2 . loadfromfile ( x ); //listboxa yükle
end ;
x := apppath + 'adres.txt' ; //sizin kütük dosyanız ( yeni nesil )
if fileexists ( x ) then
begin
adres . loadfromfile ( x ); //hafızaya yükle
listbox3 . loadfromfile ( x ); //listboxa yükle
end ;
//final
end ;
" Ekle " isminde bir button yerle ş tiriniz . ( kaydet butonu olacak )
butonun click olay ı na a ş a ğı daki kodu yaz ı n ı z :
begin
adsoyad . add ( edit1 . text ); listbox1 . items . assign ( adsoyad );
tel . add ( edit2 . text ); listbox2 . items . assign ( tel );
adress . add ( edit3 . text ); listbox3 . items . assign ( adress );
showmessage ( 'kaydınız yapılmıştır' );
//final
end ;
" Sil " isminde bir button yerle ş tiriniz ( silme butonu olacak )
butonun click olay ı na a ş a ğı daki kodu yaz ı n ı z :
var m : integer ;
begin
m := listbox1 . itemindex ; //listboxdaki seçili olan satır numarası
if m <>- 1 then
begin
adsoyad . delete ( m ); listbox1 . items . assign ( adsoyad );
tel . delete ( m ); listbox2 . items . assign ( tel );
adress . delete ( m ); listbox3 . items . assign ( adress );
showmessage ( 'kayıt silinmiştir' );
end ;
//final
end ;
" arama " isminde bir button yerle ş tiriniz ( arama butonu olacak )
butonun click olay ı na a ş a ğı daki kodu yaz ı n ı z :
var aranan : string ; sonuc : integer ;
begin
aranan := edit4 . text ; //arama yapılacak isim edit4 text içinde yazan olsun
//edit4 nesnesi de ekleyiniz formunuza
//isim kolonunda arama yapılacak ise
sonuc := adsoyad . indexof ( aranan ); //hangi kolonda arama yapacak iseniz onu kodlayınız
if sonuc <>- 1 then //aranan kayıt var ise ( kendisi çok hızlı arar burada )
//büyük küçük harfe duyarlıdır. extra olarak kodu süslemeniz gerekmektedir.
begin
showmessage ( 'aradığınız kayıt bulunmuştur' );
showmessage ( inttostr ( sonuc + 1 )+ '.sirada bulunmaktadir' );
listbox1 . itemindex := sonuc ; //listboxları hizala
listbox2 . itemindex := sonuc ;
listbox3 . itemindex := sonuc ;
edit1 . text := adsoyad . strings [ sonuc ]; //ilgili satırdaki elemanı al
edit2 . text := tel . strings [ sonuc ]; //ilgili satırdaki elemanı al
edit3 . text := adres . strings [ sonuc ]; //ilgili satırdaki elemanı al
end ;
//final
end ;
listbox1 onclik olay ı na ş unu yaz ı n ı z , ve di ğ er listboxlar ı da d ü zenleyiniz .
begin
listbox2 . itemindex := listbox1 . itemindex ;
listbox3 . itemindex := listbox1 . itemindex ;
listbox2 . topindex := listbox1 . topindex ;
listbox3 . topindex := listbox1 . topindex ;
edit1 . text := adsoyad . strings [ listbox1 . itemindex ];
edit2 . text := tel . strings [ listbox1 . itemindex ];
edit3 . text := adres . strings [ listbox1 . itemindex ];
end ;
listbox2 onclick olay ı na ş unu yaz ı n ı z :
begin
listbox1 . itemindex := listbox2 . itemindex ;
listbox3 . itemindex := listbox2 . itemindex ;
listbox1 . topindex := listbox2 . topindex ;
listbox3 . topindex := listbox2 . topindex ;
edit1 . text := adsoyad . strings [ listbox2 . itemindex ];
edit2 . text := tel . strings [ listbox2 . itemindex ];
edit3 . text := adres . strings [ listbox2 . itemindex ];
end ;
di ğ er listboxlar ı da ç apraz olarak itemindex ve topindex hizalamalar ı n ı ayarlar ı n ı z .
formun onclose olay ı na a ş a ğı daki kodu yaz ı n ı z :
var x : string ;
begin
//bilgileri kütüğe yaz
x := apppath + 'adsoyad.txt' ; adsoyad . savetofile ( x );
x := apppath + 'tel.txt' ; tel . savetofile ( x );
x := apppath + 'adres.txt' ; adres . savetofile ( x );
end ;
************
SONU Ç:
************
en temel ve iskelet yap ı s ı ile veri taban ı kullanmaks ı z ı n ,
- kay ı t ekleme
- kay ı t silme
- kay ı t arama
- kay ı tlar ı n listboxlarda listelenmesi
- listboxlara t ı klan ı ld ığı nda ayn ı hizlara getirilmesini
- listboxlara t ı klan ı ld ığı nda edit i ç eriklerinde bilgilerin g ö r ü nt ü lenmesini
öğ renmi ş olduk ...
umar ı m faydam olmu ş tur ,
yukar ı da yazd ığı m ş ablon kodu geli ş tirebilirsiniz , bu size kalm ış......
ç al ış malar ı n ı zda ba ş ar ı lar diliyorum ,
kodlama unsurlar ı nda di ğ er
olas ı sorular ı n ı z ı da cevaplamak isterim ...
son tavsiyem ,
bir an ö nce veritaban ı programc ı l ığı na giri ş yapman ı zda fayda vard ı r ..
kolay gelsin ...
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Forum - "text dosyada arama ve listbox hakkında"
text dosyada arama ve listbox hakkı nda Bug ü n 00 : 11
selam arkada ş lar . ö necelikle yard ı mlar ı n ı zdan dolay ı ger ç ekten herkese
ç ok te ş ekk ü r ederim bu sitede ç ok kaliteli insanlar var .
benim sorunum .:
ben text dosyaya kay ı t kaydedip sonrada bu kay ı tlar ı listboxta listeletiyorum .
ben sadece ü r ü n ad ı kay ı tlar ı n ı listeletip kullan ı c ı listboxtaki bir ü r ü n
ad ı na t ı klay ı nca o ü r ü n ad ı nla ilgili bilgiler yan taraftaki edit lerde
g ö r ü nmesini istiyorum .
benim yapamad ığı m yer listbox taki ü r ü n ad ı kayd ı na t ı kland ığı nda
dosyada t ı klanan ü r ü n ad ı n ı arat ı p o ad ile ilgili bilgileri
edit . text lere yerle ş tirmek ve b ö ylece kullan ı c ı ya bu kay ı t ile
ilgili d ü zenleme imkan ı vermek .
ç ok acil yard ı mlar ı n ı z ı bekliyorum ..
sayg ı lar ı mla ...
benim listelemede kulland ığı m kodlar a ş a ğı dad ı r .
procedure Tanaform . BitBtn4Click ( Sender : TObject );
var
i : integer ;
begin
listbox1 . clear ;
assignfile ( stokdosya , 'c:stoksatısdata.sys' );
{$i-} reset ( stokdosya ); {$i+}
for i := 0 to filesize ( stokdosya )- 1 do
begin
seek ( stokdosya , i ); read ( stokdosya , skay );
if skay . f = '*' then
begin
listbox1 . items . add ( stokkay . uad );
end ;
end ;
end ;
memolipascal
"
cevap :
de ğ erli memolipascal arkada şı m ,
bir ö nceki sorunuza ba ğ lant ı l ı olarak ,
kodlama yap ı s ı ndaki u ğ ra şı n ı z ı takdirle kar şı l ı yorum ...
sorunuz g ü zel , ancak , uzunca anlatmak istedi ğ im unsurlar var .
pascal tabanl ı veri saklamak - okutmak ( k ü t ü k yap ı s ı )
fikrinden yava ş yava ş vazge ç melisiniz . Bunu daha uygun
y ö ntemlerle nas ı l yapabilece ğ inizi birazdan anlataca ğı m .
"
if skay . f = '*' then
begin
listbox1 . items . add ( stokkay . uad );
end ;
"
ş eklindeki bir kodlama mant ığı n ı n anlam ı ş u olabilir ,
( yan ı l ı yor olabilirim , veya siz ba ş ka bir ama ç i ç in kullanm ış olabilirsiniz )
" ilgili kay ı t silinmemi ş ise " mant ığı olabilir ..
ki , bu da 10 sene ö nceki ü niversitede bizlere g ö sterilen ,
silinen kay ı tlar ı n ba şı na "*" simgesi koymak veya koymamak ,
ile k ü t ü k yap ı lar ı idi ...
dedi ğ im gibi " k ü t ü k yap ı lar ı" mant ığı delphide kullanman ı za gerek kalmayacak .
k ü t ü k yap ı lar ı n kay ı t arama i ş lemini " lineer "( s ı radan ) yap ı yor iseniz ,
ç ok kayd ı n ı z oldu ğ unda zaman kayb ı ve i ş lem kalabal ığı yapacakt ı r .
eskimi ş bir y ö ntemdir . ( index yap ı s ı n ı da kullanabilirsiniz ama dedi ğ im gibi
eskimi ş ve epeyce geride kalm ış bir uygulama ö rne ğ idir )
veri taban ı na neden ge ç i ş yapmad ığı n ı z ı bilmiyorum .
belki de hen ü z ı s ı namam ış olabilirsiniz DB olaylar ı na ..
çü nk ü dedi ğ im gibi , pascal tabanl ı k ü t ü k yap ı s ı kodlara al ış k ı n birisi i ç in ,
veri taban ı na ge ç i ş yapmak , sudan çı km ış bal ığ a benzer bir " korku " i ç erir ..
bu her zaman olmu ş tur ... Ben de ayn ı ş a ş k ı nl ığı ve korkuyu zaman ı nda ya ş ad ı m .
veri taban ı kullanmak istemiyorsan ı z , ve k ü t ü k yap ı s ı ş eklinde bir program
geli ş tirmek istiyor iseniz , size ö nerece ğ im a ş a ğı daki mant ığı kullan ı n ı z
ve kendinizi bu kodlar ü zerinde geli ş tiriniz .
s ı f ı rdan bir proje olu ş tural ı m .
amac ı m ı z ş u olsun :
veri taban ı kullanmadan " adsoyad - telefon - adres " bilgilerinin takibi yapan
bir program yazal ı m . ( k ü t ü k sistemi gibi .. ama yeni nesil kodlama ile )
Anlataca ğı m ö rnek , en temel ve iskelet yap ı olacakt ı r .
Geli ş tirilmesini siz yapabilirsiniz . teorik olarak yaz ı yorum ..
formun tasar ı m ı n ı şö yle yap ı n ı z :
( button - label - edit - listbox dizaynlar ı n ı size b ı rak ı yorum )
Ad ı soyad ı : Edit1
Telefonu : Edit2
Adresi : Edit3
Listbox1 ( adsoyadlistesi ) Listbox2 ( telefonlistesi ) listbox3 ( adreslistesi )
bu dizayn ı yap ı n ı z . Listboxlar i ç erisinde ilgili girilmi ş olan kay ı tlar
otomatik olarak g ö sterilecektir .( b ö yle ayarlayaca ğı z kod ile birazdan )
listbox ü zerinde t ı klan ı lan sat ı ra ili ş kin bilgiler de edit kutular ı
ü zerine otomatik gelecektir . ( bunu da ayarlayaca ğı z )
projenin ana " VAR " blo ğ unda a ş a ğı daki yap ı y ı tan ı mlay ı n ı z
VAR
adsoyad , tel , adres : Tstringlist ;
apppath : string ;
Formun oncreate olay ı na a ş a ğı daki yap ı y ı kodlay ı n ı z :
var x : string ;
begin
apppath := extractfilepath ( application . exename )+ '' ;
adsoyad := tstringlist . create ;
tel := tstringlist . create ;
adres := tstringlist . create ;
x := apppath + 'adsoyad.txt' ; //sizin kütük dosyanız ( yeni nesil )
if fileexists ( x ) then
begin
adsoyad . loadfromfile ( x ); //hafızaya yükle
listbox1 . loadfromfile ( x ); //listboxa yükle
end ;
x := apppath + 'tel.txt' ; //sizin kütük dosyanız ( yeni nesil )
if fileexists ( x ) then
begin
tel . loadfromfile ( x ); //hafızaya yükle
listbox2 . loadfromfile ( x ); //listboxa yükle
end ;
x := apppath + 'adres.txt' ; //sizin kütük dosyanız ( yeni nesil )
if fileexists ( x ) then
begin
adres . loadfromfile ( x ); //hafızaya yükle
listbox3 . loadfromfile ( x ); //listboxa yükle
end ;
//final
end ;
" Ekle " isminde bir button yerle ş tiriniz . ( kaydet butonu olacak )
butonun click olay ı na a ş a ğı daki kodu yaz ı n ı z :
begin
adsoyad . add ( edit1 . text ); listbox1 . items . assign ( adsoyad );
tel . add ( edit2 . text ); listbox2 . items . assign ( tel );
adress . add ( edit3 . text ); listbox3 . items . assign ( adress );
showmessage ( 'kaydınız yapılmıştır' );
//final
end ;
" Sil " isminde bir button yerle ş tiriniz ( silme butonu olacak )
butonun click olay ı na a ş a ğı daki kodu yaz ı n ı z :
var m : integer ;
begin
m := listbox1 . itemindex ; //listboxdaki seçili olan satır numarası
if m <>- 1 then
begin
adsoyad . delete ( m ); listbox1 . items . assign ( adsoyad );
tel . delete ( m ); listbox2 . items . assign ( tel );
adress . delete ( m ); listbox3 . items . assign ( adress );
showmessage ( 'kayıt silinmiştir' );
end ;
//final
end ;
" arama " isminde bir button yerle ş tiriniz ( arama butonu olacak )
butonun click olay ı na a ş a ğı daki kodu yaz ı n ı z :
var aranan : string ; sonuc : integer ;
begin
aranan := edit4 . text ; //arama yapılacak isim edit4 text içinde yazan olsun
//edit4 nesnesi de ekleyiniz formunuza
//isim kolonunda arama yapılacak ise
sonuc := adsoyad . indexof ( aranan ); //hangi kolonda arama yapacak iseniz onu kodlayınız
if sonuc <>- 1 then //aranan kayıt var ise ( kendisi çok hızlı arar burada )
//büyük küçük harfe duyarlıdır. extra olarak kodu süslemeniz gerekmektedir.
begin
showmessage ( 'aradığınız kayıt bulunmuştur' );
showmessage ( inttostr ( sonuc + 1 )+ '.sirada bulunmaktadir' );
listbox1 . itemindex := sonuc ; //listboxları hizala
listbox2 . itemindex := sonuc ;
listbox3 . itemindex := sonuc ;
edit1 . text := adsoyad . strings [ sonuc ]; //ilgili satırdaki elemanı al
edit2 . text := tel . strings [ sonuc ]; //ilgili satırdaki elemanı al
edit3 . text := adres . strings [ sonuc ]; //ilgili satırdaki elemanı al
end ;
//final
end ;
listbox1 onclik olay ı na ş unu yaz ı n ı z , ve di ğ er listboxlar ı da d ü zenleyiniz .
begin
listbox2 . itemindex := listbox1 . itemindex ;
listbox3 . itemindex := listbox1 . itemindex ;
listbox2 . topindex := listbox1 . topindex ;
listbox3 . topindex := listbox1 . topindex ;
edit1 . text := adsoyad . strings [ listbox1 . itemindex ];
edit2 . text := tel . strings [ listbox1 . itemindex ];
edit3 . text := adres . strings [ listbox1 . itemindex ];
end ;
listbox2 onclick olay ı na ş unu yaz ı n ı z :
begin
listbox1 . itemindex := listbox2 . itemindex ;
listbox3 . itemindex := listbox2 . itemindex ;
listbox1 . topindex := listbox2 . topindex ;
listbox3 . topindex := listbox2 . topindex ;
edit1 . text := adsoyad . strings [ listbox2 . itemindex ];
edit2 . text := tel . strings [ listbox2 . itemindex ];
edit3 . text := adres . strings [ listbox2 . itemindex ];
end ;
di ğ er listboxlar ı da ç apraz olarak itemindex ve topindex hizalamalar ı n ı ayarlar ı n ı z .
formun onclose olay ı na a ş a ğı daki kodu yaz ı n ı z :
var x : string ;
begin
//bilgileri kütüğe yaz
x := apppath + 'adsoyad.txt' ; adsoyad . savetofile ( x );
x := apppath + 'tel.txt' ; tel . savetofile ( x );
x := apppath + 'adres.txt' ; adres . savetofile ( x );
end ;
************
SONU Ç:
************
en temel ve iskelet yap ı s ı ile veri taban ı kullanmaks ı z ı n ,
- kay ı t ekleme
- kay ı t silme
- kay ı t arama
- kay ı tlar ı n listboxlarda listelenmesi
- listboxlara t ı klan ı ld ığı nda ayn ı hizlara getirilmesini
- listboxlara t ı klan ı ld ığı nda edit i ç eriklerinde bilgilerin g ö r ü nt ü lenmesini
öğ renmi ş olduk ...
umar ı m faydam olmu ş tur ,
yukar ı da yazd ığı m ş ablon kodu geli ş tirebilirsiniz , bu size kalm ış......
ç al ış malar ı n ı zda ba ş ar ı lar diliyorum ,
kodlama unsurlar ı nda di ğ er
olas ı sorular ı n ı z ı da cevaplamak isterim ...
son tavsiyem ,
bir an ö nce veritaban ı programc ı l ığı na giri ş yapman ı zda fayda vard ı r ..
kolay gelsin ...
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Forum - "acil destek pls"
"
Acil destek pls .......... 24 Kas ı m 2005 13 : 05
forma 5 adet imege yerle ş tirilecek , elimiizde bulunan 10 resimden rast gele
5 tenesini image bile ş enlerine yerle ş tirecek program ı nas ı l
yapacag ı m kou ş unda bana detayl ı bilgi verirmisiniz kodlar ı
nas ı l yazmam gerekir
greenplover
"
"
24 Kas ı m 2005 22 : 19
merhaba ,
anlad ığı m kadar ı ile ;
kendinize random bir say ı ü rettirin .
bu i ş lemi 5 defa yapt ı r ı n .
çı kan rakamlara g ö re
image1 . loadfromfile ( '1.bmp' );
image2 . loadfromfile ( '3.bmp' );
image3 . loadfromfile ( '7.bmp' );
image4 . loadfromfile ( '10.bmp' );
image5 . loadfromfile ( '5.bmp' );
umar ı m anlad ığı m do ğ rudur .
kolay gelsin .
hasg üç
"
"
24 Kas ı m 2005 15 : 47
merak ettim peki nas ı l olacak ..
Yani randomla ü retilen say ı lar nas ı l her seferde
tekrar ü retilip resimlere aktar ı lacak .. Kodlar ı n ı tamamen nas ı l acaba
bydomur
"
cevap :
bydomur arkada şı m ,
merak etmi ş siniz nas ı l olacak diye ,
" hasguc " arkada şı m ı z gereken mant ığı size a çı klam ış gayet g ü zel bir bi ç imde .
kodlar ı tamamen nas ı l yazabilece ğ inizi bilemiyorsan ı z ,
size kod anlatmam ı n gereksiz olaca ğı n ı d üşü n ü yorum ...
bal ı k tutmay ı öğ renmeniz , daha yarar ı n ı za olacakt ı r ......
merak ı n ı z ı n kar şı l ığı " acizlik " olmas ı n ...
kodlama ve mant ı k yetene ğ inizi geli ş tiriniz ...
sana ( istemeyerek ) kendimce hayali program ı anlatmaya ç al ış aca ğı m :
ama ç: " 10 tane resim i ç ersinden 5 tanesini rastgele se ç ip , bu 5 tane
se ç ilen resmi 5 tane image nesnesine y ü klemek "
( bu ş ekilde anlad ı m .... )
forma 1 adet button , 5 adet image yerle ş tir .
projeni ilgili bir klas ö re kaydet .
kaydetti ğ in klas ö re de 10 adet jpeg resim koy . ( hangi resimler ise art ı k )
jpeg resimlerin ad ı n ı da kolayl ı k olsun diye 1.jpg , 2.jpg , 3.jpg .. olarak
de ğ i ş tir .
button1 onclick olay ı na a ş a ğı daki kodu yaz :
( teorik olarak yaz ı yorum , ç al ış mas ı gerek . yaz ı m hatalar ı m olabilir , d ü zeltin )
var apppath , x : string ; m , r : integer ;
begin
apppath := extractfilepath ( application . exename );
randomize ;
for m := 1 to 5 do
begin
r := trunc ( random ( 10 )+ 1 ); //sağlam olsun diye bu şekilde yazdım
x := apppath + '' + inttostr ( r )+ '.jpg' ;
if fileexists ( x ) then
begin
case m of
1 : image1 . picture . loadfromfile ( x );
2 : image2 . picture . loadfromfile ( x );
3 : image3 . picture . loadfromfile ( x );
4 : image4 . picture . loadfromfile ( x );
5 : image5 . picture . loadfromfile ( x );
end ; //case
end ; //if
end ; //for
//final
end ;
butona her t ı klad ığı nda 10 adet resim i ç ersinden ( klas ö rdeki )
5 tanesini image nesnelerine yerle ş tirecektir ....
kolay gelsin ................
( kodlama ve kurgu yap ı n ı biraz daha geli ş tirmelisin greenplover )
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Forum - "acil destek pls"
"
Acil destek pls .......... 24 Kas ı m 2005 13 : 05
forma 5 adet imege yerle ş tirilecek , elimiizde bulunan 10 resimden rast gele
5 tenesini image bile ş enlerine yerle ş tirecek program ı nas ı l
yapacag ı m kou ş unda bana detayl ı bilgi verirmisiniz kodlar ı
nas ı l yazmam gerekir
greenplover
"
"
24 Kas ı m 2005 22 : 19
merhaba ,
anlad ığı m kadar ı ile ;
kendinize random bir say ı ü rettirin .
bu i ş lemi 5 defa yapt ı r ı n .
çı kan rakamlara g ö re
image1 . loadfromfile ( '1.bmp' );
image2 . loadfromfile ( '3.bmp' );
image3 . loadfromfile ( '7.bmp' );
image4 . loadfromfile ( '10.bmp' );
image5 . loadfromfile ( '5.bmp' );
umar ı m anlad ığı m do ğ rudur .
kolay gelsin .
hasg üç
"
"
24 Kas ı m 2005 15 : 47
merak ettim peki nas ı l olacak ..
Yani randomla ü retilen say ı lar nas ı l her seferde
tekrar ü retilip resimlere aktar ı lacak .. Kodlar ı n ı tamamen nas ı l acaba
bydomur
"
cevap :
bydomur arkada şı m ,
merak etmi ş siniz nas ı l olacak diye ,
" hasguc " arkada şı m ı z gereken mant ığı size a çı klam ış gayet g ü zel bir bi ç imde .
kodlar ı tamamen nas ı l yazabilece ğ inizi bilemiyorsan ı z ,
size kod anlatmam ı n gereksiz olaca ğı n ı d üşü n ü yorum ...
bal ı k tutmay ı öğ renmeniz , daha yarar ı n ı za olacakt ı r ......
merak ı n ı z ı n kar şı l ığı " acizlik " olmas ı n ...
kodlama ve mant ı k yetene ğ inizi geli ş tiriniz ...
sana ( istemeyerek ) kendimce hayali program ı anlatmaya ç al ış aca ğı m :
ama ç: " 10 tane resim i ç ersinden 5 tanesini rastgele se ç ip , bu 5 tane
se ç ilen resmi 5 tane image nesnesine y ü klemek "
( bu ş ekilde anlad ı m .... )
forma 1 adet button , 5 adet image yerle ş tir .
projeni ilgili bir klas ö re kaydet .
kaydetti ğ in klas ö re de 10 adet jpeg resim koy . ( hangi resimler ise art ı k )
jpeg resimlerin ad ı n ı da kolayl ı k olsun diye 1.jpg , 2.jpg , 3.jpg .. olarak
de ğ i ş tir .
button1 onclick olay ı na a ş a ğı daki kodu yaz :
( teorik olarak yaz ı yorum , ç al ış mas ı gerek . yaz ı m hatalar ı m olabilir , d ü zeltin )
var apppath , x : string ; m , r : integer ;
begin
apppath := extractfilepath ( application . exename );
randomize ;
for m := 1 to 5 do
begin
r := trunc ( random ( 10 )+ 1 ); //sağlam olsun diye bu şekilde yazdım
x := apppath + '' + inttostr ( r )+ '.jpg' ;
if fileexists ( x ) then
begin
case m of
1 : image1 . picture . loadfromfile ( x );
2 : image2 . picture . loadfromfile ( x );
3 : image3 . picture . loadfromfile ( x );
4 : image4 . picture . loadfromfile ( x );
5 : image5 . picture . loadfromfile ( x );
end ; //case
end ; //if
end ; //for
//final
end ;
butona her t ı klad ığı nda 10 adet resim i ç ersinden ( klas ö rdeki )
5 tanesini image nesnelerine yerle ş tirecektir ....
kolay gelsin ................
( kodlama ve kurgu yap ı n ı biraz daha geli ş tirmelisin greenplover )
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Forum - "master-detail mantığı"
"
delphi ö grenmek istiyorum ama ..... 24 Kas ı m 2005 12 : 56
master - detail uygulamas ı n ı n ad ı mlar ı n ı anlat ı rm ı s ı n ı z
bu ö grenmek istedigim ö nemli bir b ö l ü m
greenplover
"
cevap :
master - detail uygulamas ı n ı, jpeglerle anlatmam icab ediyor ..
bunu ş u anda yerine getiremeyece ğ im , kabaca s ö zel olarak bahsedece ğ im .
soru : Master yap ı ne demektir ?
cevap :
Tek ba şı na verileri i ç inde bar ı nd ı ran , ve
bu kay ı tlara ili ş kin ba ş ka detay bilgilerin saklanaca ğı
yap ı ya " master yap ı" denir .
soru : Detail yap ı ne demektir ?
cevap :
master bir yap ı ya ili ş kin kay ı tlar ı n ,
alt bilgilerini tutan yap ı ya " detail yap ı" denir .
soru : master - detail kabaca ne anlama gelir ?
cevap :
" ana - ayr ı nt ı" anlam ı na gelir ,
ana kay ı t k ü mesi i ç erisinde , her kayd ı n kendisine g ö re ba ş ka
ayr ı nt ı kay ı tlar ı tutuluyor demektir .
soru : master - detail yap ı s ı na uygulama basit ç e ö rne ğ i verir misiniz ?
cevap :
master yap ı s ı na ö rnek :
- SIRANO
- ADISOYADI
- ADRESI
detail yap ı s ı na ö rnek :
- SIRANO
- ALDIGIURUN
- URUNFIYATI
- TAKSITSAYISI
-...
anlam ı ş udur ,
master yap ı s ı nda bulunan veri taban ı na m üş teriler 1 defaya mahsus girilir .
detail yap ı da da hangi m üş teri hangi ü r ü nleri alm ış verisi girilir .
dolay ı s ı yla , kabaca " stok - takip - hareket " ticari program ş ablonu gibi geli ş tirilebilir .
burada dikkat edilecek husus ş udur ,
master ve detail yap ı da " ortak bir field " alan ı olmas ı gerekmektedir .
bu iki saha birbiri ile ili ş kilendirilir , ve master - detail uygulamas ı tasarlan ı r .
veriler ş u ş ekilde girilmi ş olsun ,
*** MASTER YAPI ***
s ı rano : 1
ad ı soyad ı: emin y ı lmaz
adresi : istanbul
s ı rano : 2
ad ı soyad ı: arzu y ı lmaz
adresi : istanbul
*** DETAIL YAPI ***
s ı rano : 1
ald ı g ı urun : buzdolab ı
urunfiyat ı: 100000
taksitsayisi : 5
s ı rano : 1
ald ı g ı urun : ç ama şı r makinas ı
urunfiyat ı: 200000
taksitsayisi : 5
s ı rano : 1
ald ı g ı urun : tost makinas ı
urunfiyat ı: 500000
taksitsayisi : 5
s ı rano : 2
ald ı g ı urun : robot
urunfiyat ı: 100000
taksitsayisi : 5
s ı rano : 2
ald ı g ı urun : le ğ en ( ba ş ka alacak bi ş ey bulamam ış akl ı ma bi ş ey gelmedi )
urunfiyat ı: 200000
taksitsayisi : 5
yukar ı daki ş ekilde kay ı tlar girildi ğ inde ş u sonu ç lar ı elde edersin ,
" 1 numaral ı m üş teri ( eminy ı lmaz ) hangi e ş yalar ı sat ı n alm ış ?" diye sordu ğ unda ,
sana a ş a ğı daki listeyi verir ,
s ı rano : 1
ald ı g ı urun : buzdolab ı
urunfiyat ı: 100000
taksitsayisi : 5
s ı rano : 1
ald ı g ı urun : ç ama şı r makinas ı
urunfiyat ı: 200000
taksitsayisi : 5
s ı rano : 1
ald ı g ı urun : tost makinas ı
urunfiyat ı: 500000
taksitsayisi : 5
" 1 numaral ı m üş terinin kayd ı n ı master k ü t ü kten sil " dedi ğ inde ,
1 numaral ı ( eminy ı lmaz ) adl ı m üş terinin t ü m detaildeki s ı rano = 1 olan
kay ı tlar ı da beraberinde silinir .
bu yap ı y ı ka ğı t ü zerine gerekirse yaz ı p ç izin ve ortak field yap ı s ı n ı
neden kulland ığı m ı z ı ( sirano ) iyice anlay ı n ....
soru : paradox ve access de bu master - detail yap ı y ı kullanabilir miyim ?
cevap :
paradox yap ı s ı nda master - detail yap ı s ı n ı otomatik olarak kullanabilirsin .
ilk kullan ış ta biraz karma şı k gelebilir , mant ığı n ı z tam olarak oturdu ğ unda ,
h ı zl ı ca ba ğ lant ı lar kurabilirsiniz . ilk tecr ü beniz biraz zahmetli olabilir ...
access yap ı s ı nda master - detail yap ı s ı n ı otomatik olarak program i ç erisinden
kullanamazs ı n ı z . access kendi yap ı s ı i ç erisinde ili ş kilendirmeye dayal ı
kay ı tlar ı silebilmektedir , ancak kodlama ile buna m ü sade etmemektedir .
access deki bu yap ı y ı kendiniz kodlama yard ı m ı ile çö z ü mleyebilirsiniz .
not : access veri taban ı nda master - detail uygulamalar ı nda , ben kodlama ile ,
ili ş kilendirilmi ş kay ı tlar ı siliyorum vs vs .. i ş imi g ö r ü yor ..
kabaca genel hatlar ı ile mant ı k budur .
di ğ er veri tabanlar ı nda da " ili ş kilendirme " uygulamalar ı yap ı labilir ...
bu anlatt ığı m , belki ş u anda bir kula ğı n ı zdan girip di ğ er kula ğı n ı zdan
çı k ı yor olabilir , veya hi ç bir ş ey anlamam ış olabilir iseniz ,
tavsiyem size , bir delphi kitab ı al ı p bire - bir uygulamal ı olarak " master - detail "
uygulamalar ı denemesi yapman ı z olacakt ı r .
aksi halde ç ok k ı zar ı m ...
gerek ç e : " matematik temeli olmadan , bana integral - t ü rev anlat hadi " misali ....
ç al ış malar ı n ı zda ba ş ar ı lar diliyorum ...
faydam ı z olmu ş ise ne mutlu bize ...
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
neoturk: Forum - "master-detail mantığı"
"
delphi ö grenmek istiyorum ama ..... 24 Kas ı m 2005 12 : 56
master - detail uygulamas ı n ı n ad ı mlar ı n ı anlat ı rm ı s ı n ı z
bu ö grenmek istedigim ö nemli bir b ö l ü m
greenplover
"
cevap :
master - detail uygulamas ı n ı, jpeglerle anlatmam icab ediyor ..
bunu ş u anda yerine getiremeyece ğ im , kabaca s ö zel olarak bahsedece ğ im .
soru : Master yap ı ne demektir ?
cevap :
Tek ba şı na verileri i ç inde bar ı nd ı ran , ve
bu kay ı tlara ili ş kin ba ş ka detay bilgilerin saklanaca ğı
yap ı ya " master yap ı" denir .
soru : Detail yap ı ne demektir ?
cevap :
master bir yap ı ya ili ş kin kay ı tlar ı n ,
alt bilgilerini tutan yap ı ya " detail yap ı" denir .
soru : master - detail kabaca ne anlama gelir ?
cevap :
" ana - ayr ı nt ı" anlam ı na gelir ,
ana kay ı t k ü mesi i ç erisinde , her kayd ı n kendisine g ö re ba ş ka
ayr ı nt ı kay ı tlar ı tutuluyor demektir .
soru : master - detail yap ı s ı na uygulama basit ç e ö rne ğ i verir misiniz ?
cevap :
master yap ı s ı na ö rnek :
- SIRANO
- ADISOYADI
- ADRESI
detail yap ı s ı na ö rnek :
- SIRANO
- ALDIGIURUN
- URUNFIYATI
- TAKSITSAYISI
-...
anlam ı ş udur ,
master yap ı s ı nda bulunan veri taban ı na m üş teriler 1 defaya mahsus girilir .
detail yap ı da da hangi m üş teri hangi ü r ü nleri alm ış verisi girilir .
dolay ı s ı yla , kabaca " stok - takip - hareket " ticari program ş ablonu gibi geli ş tirilebilir .
burada dikkat edilecek husus ş udur ,
master ve detail yap ı da " ortak bir field " alan ı olmas ı gerekmektedir .
bu iki saha birbiri ile ili ş kilendirilir , ve master - detail uygulamas ı tasarlan ı r .
veriler ş u ş ekilde girilmi ş olsun ,
*** MASTER YAPI ***
s ı rano : 1
ad ı soyad ı: emin y ı lmaz
adresi : istanbul
s ı rano : 2
ad ı soyad ı: arzu y ı lmaz
adresi : istanbul
*** DETAIL YAPI ***
s ı rano : 1
ald ı g ı urun : buzdolab ı
urunfiyat ı: 100000
taksitsayisi : 5
s ı rano : 1
ald ı g ı urun : ç ama şı r makinas ı
urunfiyat ı: 200000
taksitsayisi : 5
s ı rano : 1
ald ı g ı urun : tost makinas ı
urunfiyat ı: 500000
taksitsayisi : 5
s ı rano : 2
ald ı g ı urun : robot
urunfiyat ı: 100000
taksitsayisi : 5
s ı rano : 2
ald ı g ı urun : le ğ en ( ba ş ka alacak bi ş ey bulamam ış akl ı ma bi ş ey gelmedi )
urunfiyat ı: 200000
taksitsayisi : 5
yukar ı daki ş ekilde kay ı tlar girildi ğ inde ş u sonu ç lar ı elde edersin ,
" 1 numaral ı m üş teri ( eminy ı lmaz ) hangi e ş yalar ı sat ı n alm ış ?" diye sordu ğ unda ,
sana a ş a ğı daki listeyi verir ,
s ı rano : 1
ald ı g ı urun : buzdolab ı
urunfiyat ı: 100000
taksitsayisi : 5
s ı rano : 1
ald ı g ı urun : ç ama şı r makinas ı
urunfiyat ı: 200000
taksitsayisi : 5
s ı rano : 1
ald ı g ı urun : tost makinas ı
urunfiyat ı: 500000
taksitsayisi : 5
" 1 numaral ı m üş terinin kayd ı n ı master k ü t ü kten sil " dedi ğ inde ,
1 numaral ı ( eminy ı lmaz ) adl ı m üş terinin t ü m detaildeki s ı rano = 1 olan
kay ı tlar ı da beraberinde silinir .
bu yap ı y ı ka ğı t ü zerine gerekirse yaz ı p ç izin ve ortak field yap ı s ı n ı
neden kulland ığı m ı z ı ( sirano ) iyice anlay ı n ....
soru : paradox ve access de bu master - detail yap ı y ı kullanabilir miyim ?
cevap :
paradox yap ı s ı nda master - detail yap ı s ı n ı otomatik olarak kullanabilirsin .
ilk kullan ış ta biraz karma şı k gelebilir , mant ığı n ı z tam olarak oturdu ğ unda ,
h ı zl ı ca ba ğ lant ı lar kurabilirsiniz . ilk tecr ü beniz biraz zahmetli olabilir ...
access yap ı s ı nda master - detail yap ı s ı n ı otomatik olarak program i ç erisinden
kullanamazs ı n ı z . access kendi yap ı s ı i ç erisinde ili ş kilendirmeye dayal ı
kay ı tlar ı silebilmektedir , ancak kodlama ile buna m ü sade etmemektedir .
access deki bu yap ı y ı kendiniz kodlama yard ı m ı ile çö z ü mleyebilirsiniz .
not : access veri taban ı nda master - detail uygulamalar ı nda , ben kodlama ile ,
ili ş kilendirilmi ş kay ı tlar ı siliyorum vs vs .. i ş imi g ö r ü yor ..
kabaca genel hatlar ı ile mant ı k budur .
di ğ er veri tabanlar ı nda da " ili ş kilendirme " uygulamalar ı yap ı labilir ...
bu anlatt ığı m , belki ş u anda bir kula ğı n ı zdan girip di ğ er kula ğı n ı zdan
çı k ı yor olabilir , veya hi ç bir ş ey anlamam ış olabilir iseniz ,
tavsiyem size , bir delphi kitab ı al ı p bire - bir uygulamal ı olarak " master - detail "
uygulamalar ı denemesi yapman ı z olacakt ı r .
aksi halde ç ok k ı zar ı m ...
gerek ç e : " matematik temeli olmadan , bana integral - t ü rev anlat hadi " misali ....
ç al ış malar ı n ı zda ba ş ar ı lar diliyorum ...
faydam ı z olmu ş ise ne mutlu bize ...
sayg ı lar ı mla_
neoturk [ xxnt03 @ lycos . co . uk ]
Delphi - .....................................
Cevap-bi delphi projesi veya araştırma konusu arıyorum..
selam.
buraya kod ekleyen herkes senin , benim ve di ğ er kodbank ü yelerinin
gerekti ğ inde yard ı m alabilmeleri i ç in ç al ışı yor ama kimse senin yerine d üşü nemez !
kodbankta listeyi a ş a ğı ya do ğ ru ç ek t ü m kodlar ı incele A 'dan Z' ye ..
kimse burada i ş e yaramayan bir ş eyleri gelip yazmaz ..
senin i ş ine yarayacak en iyi ş ey senin ihtiyac ı n ı gideren ş eydir ?
nas ı l bir programa ihtiyac ı n var ya da sence insanlar ı nas ı l bir programa
ihtiya ç lar ı var .. bunu d üşü n ve karar verdi ğ inde bize " nas ı l yapaca ğı m " diye sor
ozaman ş imdi oldu ğ undan daha fazla yard ı mc ı olabiliriz .
Ç al ış malar ı nda ba ş ar ı lar dilerim .
Sayg ı lar ı mla
Delphi - .....................................
Cevap-bi delphi projesi veya araştırma konusu arıyorum..
selam.
buraya kod ekleyen herkes senin , benim ve di ğ er kodbank ü yelerinin
gerekti ğ inde yard ı m alabilmeleri i ç in ç al ışı yor ama kimse senin yerine d üşü nemez !
kodbankta listeyi a ş a ğı ya do ğ ru ç ek t ü m kodlar ı incele A 'dan Z' ye ..
kimse burada i ş e yaramayan bir ş eyleri gelip yazmaz ..
senin i ş ine yarayacak en iyi ş ey senin ihtiyac ı n ı gideren ş eydir ?
nas ı l bir programa ihtiyac ı n var ya da sence insanlar ı nas ı l bir programa
ihtiya ç lar ı var .. bunu d üşü n ve karar verdi ğ inde bize " nas ı l yapaca ğı m " diye sor
ozaman ş imdi oldu ğ undan daha fazla yard ı mc ı olabiliriz .
Ç al ış malar ı nda ba ş ar ı lar dilerim .
Sayg ı lar ı mla
Delphi - .....................................
bi delphi projesi veya araştırma konusu arıyorum..
merhabalar,
delphi dersim i ç in bi k üçü k bi proje veya ara ş t ı rma konusuna ihtiyac ı m var ve fazla s ü rem yok . yard ı mc ı olabilecek var m ı?
bu arada ben yeni delphi öğ reniyorum ,ç ok fazla bilgim yok . uzun uzun ara ş t ı rmaya da vaktim yok .
i ş ime yarayabilecek bi ş eyler ar ı yorum .
umar ı m birileri yard ı mc ı olabilir .
iyi g ü nler .
Delphi - .....................................
bi delphi projesi veya araştırma konusu arıyorum..
merhabalar,
delphi dersim i ç in bi k üçü k bi proje veya ara ş t ı rma konusuna ihtiyac ı m var ve fazla s ü rem yok . yard ı mc ı olabilecek var m ı?
bu arada ben yeni delphi öğ reniyorum ,ç ok fazla bilgim yok . uzun uzun ara ş t ı rmaya da vaktim yok .
i ş ime yarayabilecek bi ş eyler ar ı yorum .
umar ı m birileri yard ı mc ı olabilir .
iyi g ü nler .
Delphi - .....................................
IP HAKKINDA(Tüm bilgisayarlara aynı anda mesaj yollamak)
Internet Adresleri
Internet adresleri 32 - bitlik say ı lard ı r ve noktalarla ayr ı lm ış 4 octet ( ondal ı k say ı olarak ) olarak g ö sterilirler . Ö rnek vermek gerekirse , 128.10.2.30 internet adresi 10000000 00001010 00000010 00011110 ş eklinde 32 - bit olarak g ö sterilir . Temel problem bu bilgisayar a ğı adresinin hem bilgisayar a ğı n ı ve hem de belli bir bilgisayar ı tek ba şı na g ö sterebilmesidir .
A S ı n ı f ı adresler : İ lk byte 0 'la 126 arasında değişir. İlk byte ağ numarasıdır. Gerisi bilgisayarların adresini belirler. Bu tip adresleme, herbiri 16,777,216 bilgisayardan oluşan 126 ağın adreslenmesine izin verir.
B S ı n ı f ı adresler : İ lk byte 128 'le 191 arasında değişir. İlk iki byte ağ numarasıdır. Gerisi bilgisayar adresini belirler. Bu tip adresleme, herbiri 65,536 bilgisayardan oluşan 16,384 ağın adreslenmesine izin verir.
C S ı n ı f ı adresler : İ lk byte 192 ile 223 aras ı nda de ğ i ş ir . İ lk üç byte a ğ numaras ı d ı r . Gerisi bilgisayarlar ı n adresini belirler . Bu tip adresleme , herbiri 254 bilgisayardan olu ş an 2 , 000 , 000 a ğı n adreslenmesine izin verir .
127 ile ba ş layan adresler Internet taraf ı ndan ö zel ama ç larla ( localhost tan ı m ı i ç in ) kullan ı lmaktad ı r .
223 'ün üzerindeki adresler gelecekte kullanılmak üzere D-sınıfı ve E-sınıfı adresler olarak reserve edilmiş olarak tutulmaktadır.
********************************************************************
Ö zel Adresler
Internet adreslemesinde 0 ve 255 'in özel bir kullanımı vardır.
255 adresi genel duyuru " broadcast " amac ı ile kullan ı lmaktad ı r . Bir a ğ ü zerindeki t ü m istasyonlar ı n duymas ı n ı istediginiz bir mesaj genel duyuru " broadcast " mesaj ı dir .
Duyuru mesaj ı genelde bir istasyon hangi istasyon ile konu ş aca ğı n ı bilemedi ğ i bir durumda kullan ı lan bir mesajla ş ma y ö ntemidir .
Örne ğ in 192.168.1.5 bilgisayar ı ndan UDP protokol ü n ü kullanarak
192.168.1.255 'e gönderirseniz IP adresi 192.168.1.0 dan 192.168.1.255 e kadar olan bütün bilgisayarlar
g ö nderdi ğ iniz mesaj ı alacaklard ı r . Bunu basit bir UPD protokol ü n ü kullanan mesajla ş ma program ı ö rne ğ iyle bile
deniyebilirsiniz. BU Ç OK Ö NEML İ. B ö ylece bir a ğ y ö netim program ı yazabilirsiniz ( int cafe program ı gibi )
D ÜŞÜ N Ü N B İ: Bir mesaj g ö nderiyorsunuz ve a ğ a a ğ l ı t ü m bilgisayarlara ayn ı anda mesaj ı n ı z gidiyor .
Terminale ana makinaya ba ğ lan diyorsunuz ... terminal ana makinaya ba ğ lan ı yor . Bunu terminalin adresini
bilmeden yapı yorsunuz ... Bu ö zelli ğ i A s ı n ı f ı iplerde denedim ç al ışı yor .( Bu i ş lemi yerel bir a ğ ü zerinde denenmi ş tir .[ Ethernet ba ğ lant ı s ı])
S İ ZDE DENEY İ N ...
Delphi - .....................................
IP HAKKINDA(Tüm bilgisayarlara aynı anda mesaj yollamak)
Internet Adresleri
Internet adresleri 32 - bitlik say ı lard ı r ve noktalarla ayr ı lm ış 4 octet ( ondal ı k say ı olarak ) olarak g ö sterilirler . Ö rnek vermek gerekirse , 128.10.2.30 internet adresi 10000000 00001010 00000010 00011110 ş eklinde 32 - bit olarak g ö sterilir . Temel problem bu bilgisayar a ğı adresinin hem bilgisayar a ğı n ı ve hem de belli bir bilgisayar ı tek ba şı na g ö sterebilmesidir .
A S ı n ı f ı adresler : İ lk byte 0 'la 126 arasında değişir. İlk byte ağ numarasıdır. Gerisi bilgisayarların adresini belirler. Bu tip adresleme, herbiri 16,777,216 bilgisayardan oluşan 126 ağın adreslenmesine izin verir.
B S ı n ı f ı adresler : İ lk byte 128 'le 191 arasında değişir. İlk iki byte ağ numarasıdır. Gerisi bilgisayar adresini belirler. Bu tip adresleme, herbiri 65,536 bilgisayardan oluşan 16,384 ağın adreslenmesine izin verir.
C S ı n ı f ı adresler : İ lk byte 192 ile 223 aras ı nda de ğ i ş ir . İ lk üç byte a ğ numaras ı d ı r . Gerisi bilgisayarlar ı n adresini belirler . Bu tip adresleme , herbiri 254 bilgisayardan olu ş an 2 , 000 , 000 a ğı n adreslenmesine izin verir .
127 ile ba ş layan adresler Internet taraf ı ndan ö zel ama ç larla ( localhost tan ı m ı i ç in ) kullan ı lmaktad ı r .
223 'ün üzerindeki adresler gelecekte kullanılmak üzere D-sınıfı ve E-sınıfı adresler olarak reserve edilmiş olarak tutulmaktadır.
********************************************************************
Ö zel Adresler
Internet adreslemesinde 0 ve 255 'in özel bir kullanımı vardır.
255 adresi genel duyuru " broadcast " amac ı ile kullan ı lmaktad ı r . Bir a ğ ü zerindeki t ü m istasyonlar ı n duymas ı n ı istediginiz bir mesaj genel duyuru " broadcast " mesaj ı dir .
Duyuru mesaj ı genelde bir istasyon hangi istasyon ile konu ş aca ğı n ı bilemedi ğ i bir durumda kullan ı lan bir mesajla ş ma y ö ntemidir .
Örne ğ in 192.168.1.5 bilgisayar ı ndan UDP protokol ü n ü kullanarak
192.168.1.255 'e gönderirseniz IP adresi 192.168.1.0 dan 192.168.1.255 e kadar olan bütün bilgisayarlar
g ö nderdi ğ iniz mesaj ı alacaklard ı r . Bunu basit bir UPD protokol ü n ü kullanan mesajla ş ma program ı ö rne ğ iyle bile
deniyebilirsiniz. BU Ç OK Ö NEML İ. B ö ylece bir a ğ y ö netim program ı yazabilirsiniz ( int cafe program ı gibi )
D ÜŞÜ N Ü N B İ: Bir mesaj g ö nderiyorsunuz ve a ğ a a ğ l ı t ü m bilgisayarlara ayn ı anda mesaj ı n ı z gidiyor .
Terminale ana makinaya ba ğ lan diyorsunuz ... terminal ana makinaya ba ğ lan ı yor . Bunu terminalin adresini
bilmeden yapı yorsunuz ... Bu ö zelli ğ i A s ı n ı f ı iplerde denedim ç al ışı yor .( Bu i ş lemi yerel bir a ğ ü zerinde denenmi ş tir .[ Ethernet ba ğ lant ı s ı])
S İ ZDE DENEY İ N ...
Delphi - .....................................
Registry'den Okuma ve Binary Yazma
{Registry'e yazdırma ve okuma ile ilgili bir proje üzerinde çalışırken
Delphi 7.0 ile gelen Registry.pas Unit'inin yeterli olmadığını,bütün veri
türlerini desteklemediğini gördüm.(Desteklenenler REG_SZ (rdString),REG_EXPAND_SZ
(rdExpandString), REG_DWORD (rdInteger) ve kısmen REG_BINARY (rdBinary))
Maalesef Binary veri okutma üzerinde 2 gün uğraşmak zorunda kaldım.. Unit Registry
Nümerik kaydedilen değerleri okuyor, KodBank'taki diğer bütün örnekler ise tüm registry tiplerini okuyup yazdığını iddia edenler dahil, spesifik olarak ya Nümerik kaydedilen değerleri okuyor, ya String kaydedilen değerleri okuyor en akıllıca çözümleyenler ise Byte dizisi olarak okutuyor ama o verileri de işlemiyordu(İşlenemez değil tabii ki)...
Projeye devam edebilmek için mecburen aşağıdaki ---OkuReg--- fonksiyonunu ve ona bağlı olarak
---YazRegBinary--- fonksiyonunu yazdım, tam olarak yeterli olmadığının farkındayım, fonksiyon özellikle
REG_RESOURCE_LIST ve REG_FULL_RESOURCE_DESCRIPTOR türü verileri okumakta yetersiz ayrıca Byte
dizisi olarak kaydedilen Binary tip verileri okumak için de geliştirilmesi lazım (Çözüm belli ama yoruldum)...
Ancak yine de İhtiyacım olan Veri tipini tam olarak belirleme, veri uzunluğunu bulma
string ve Integer(REG_DWORD) kayıtları okuma, String ve nümerik kaydedilmiş Binary verileri
okuma işlemlerini tek bir fonksiyonda topladım...İlgilenenlere }
// Forma 2 Edit,1 Listbox,4 Button,2 stringgrid,1 checkbox koyun
//---Fonksiyonun kullanılışını göstermek için basit bir unit-------------------------------------
unit Unit1 ;
interface
uses
Windows , Messages , SysUtils , Variants , Classes , Graphics , Controls , Forms ,
Dialogs , StdCtrls , Grids , Registry ;
// Regdegerlerini tanıtmalıyız......
type
RegDegerleri = record
DataTip_Str : String ; //Verinin türünü String olarak verir Ör: 'REG_DWORD'
DataTip_Int : Integer ; //Verinin türünü Integer olarak verir 1:REG_SZ 2:REG_EXPAND_SZ vs. fonksiyondan anlaşılıyor
Veri_Int : Integer ; //Verinin integer olarak değerini verir, String olarak kaydedilen veriler için -1 olarak dönecektir.
Veri_Str : String ; //Verinin string olarak değerini verir, Nümerik kaydedilenler için IntToStr hali döner..
Uzunluk : Integer ; //Verinin Registry'deki uzunluğunun kaç byte olduğunu verir
end ;
type
TForm1 = class ( TForm )
Edit1 : TEdit ;
StringGrid1 : TStringGrid ;
Button1 : TButton ;
CheckBox1 : TCheckBox ;
Edit2 : TEdit ;
Button2 : TButton ;
Button3 : TButton ;
Button4 : TButton ;
ListBox1 : TListBox ;
procedure Button1Click ( Sender : TObject );
procedure FormCreate ( Sender : TObject );
procedure Button2Click ( Sender : TObject );
procedure Button3Click ( Sender : TObject );
procedure Button4Click ( Sender : TObject );
private
{ Private declarations }
public
{ Public declarations }
end ;
function OkuReg ( const xReg : TRegistry ; RegDegerAd : string ): RegDegerleri ;
function YazRegBinary ( const xReg : TRegistry ; RegDegerAd , Veri_Str : string ; StrVeyaInt : Byte ): Boolean ;
var
Form1 : TForm1 ;
Reg1 : TRegistry ;
implementation
{$R *.dfm}
procedure TForm1 . FormCreate ( Sender : TObject );
var i : byte ;
const
xstr : array [ 0 .. 5 ] of string =( 'Değer Ad' , 'Veri Türü' , 'Veri Str' , 'Veri Int' , 'Veri Türü Int' , 'Uzunluk' );
begin
Reg1 := TRegistry . Create ;
Reg1 . RootKey := HKEY_CURRENT_USER ;
Reg1 . OpenKey ( 'AnahtarDeneme' , True ); //İşiniz bittiğinde silerseniz iyi olur
for i := 0 to 5 do StringGrid1 . cells [ i + 1 , 0 ]:= xstr [ i ];
ListBox1 . Visible := False ;
Button4 . Caption := 'Reg Değerleri Goster' ;
end ;
//...........................................................................
procedure TForm1 . Button1Click ( Sender : TObject ); //Edit2'yi Binary yazdır
// Checkbox seçili ise nümerik değilse string olarak yazdır.....
begin
if CheckBox1 . Checked then
if not YazRegBinary ( reg1 , Edit1 . Text , edit2 . Text , 1 ) then ShowMessage ( 'Registere yazma işlemi başarısız...'
+ chr ( 10 )+ 'Girilen verininin nümerik bir değer olduğundan emin olun' )
else else if not YazRegBinary ( reg1 , Edit1 . Text , edit2 . Text , 0 ) then ShowMessage ( 'Registere yazma işlemi başarısız...' );
end ;
//...........................................................................
procedure TForm1 . Button2Click ( Sender : TObject ); //Edit2'yi REG_SZ olarak yazdır
begin
reg1 . WriteString ( edit1 . Text , Edit2 . Text );
end ;
//...........................................................................
procedure TForm1 . Button3Click ( Sender : TObject ); //Edit2'yi REG_DWORD (Dword yani 16'lık veya 10'luk yazdır)
begin
reg1 . WriteInteger ( edit1 . Text , strtoint ( Edit2 . Text ));
end ;
//...........................................................................
// DenemeAnahtari içindeki tüm verileri Stringgride atiyoruz;
procedure TForm1 . Button4Click ( Sender : TObject );
var i : Byte ;
RegDeg : RegDegerleri ;
begin
reg1 . GetValueNames ( ListBox1 . Items );
if listbox1 . Count > 0 then
for i := 0 to ListBox1 . Count - 1 do
begin
//Fonksiyonun kullanılışı
StringGrid1 . Cells [ 1 , i + 1 ]:= ListBox1 . Items [ i ];
StringGrid1 . Cells [ 2 , i + 1 ]:= OkuReg ( reg1 , ListBox1 . Items [ i ]). DataTip_Str ;
StringGrid1 . Cells [ 3 , i + 1 ]:= OkuReg ( reg1 , ListBox1 . Items [ i ]). Veri_Str ;
StringGrid1 . Cells [ 4 , i + 1 ]:= inttostr ( OkuReg ( reg1 , ListBox1 . Items [ i ]). Veri_Int );
StringGrid1 . Cells [ 5 , i + 1 ]:= inttostr ( OkuReg ( reg1 , ListBox1 . Items [ i ]). DataTip_Int );
StringGrid1 . Cells [ 6 , i + 1 ]:= inttostr ( OkuReg ( reg1 , ListBox1 . Items [ i ]). Uzunluk );
//veya
regdeg := OkuReg ( reg1 , ListBox1 . Items [ i ]);
StringGrid1 . Cells [ 2 , i + 1 ]:= regdeg . DataTip_Str ;
StringGrid1 . Cells [ 3 , i + 1 ]:= regdeg . Veri_Str ;
end ;
end ;
//--------------------------------------------------------------------
//--------------Veri Okuma Fonksiyonu---------------------------------
//--------------------------------------------------------------------
function OkuReg ( const xReg : TRegistry ; RegDegerAd : string ): RegDegerleri ;
//Code By S.KILIÇ
var
xRegDeger : RegDegerleri ;
TipI , Uz , VeriInt : Integer ;
xDword : Dword ;
TipS , Veri : String ;
xPoint : Pointer ;
begin
Veri := '' ;
if RegQueryValueEx ( xReg . CurrentKey , PChar ( RegDegerAd ), nil , @ TipI , nil ,@ Uz ) = ERROR_SUCCESS then
begin //if1
case TipI of //case 1
0 : TipS := 'REG_NONE' ;
1 : TipS := 'REG_SZ' ;
2 : TipS := 'REG_EXPAND_SZ' ;
3 : TipS := 'REG_BINARY' ;
4 : TipS := 'REG_DWORD' ;
5 : TipS := 'REG_DWORD_LITTLE_ENDIAN' ;
6 : TipS := 'REG_LINK' ;
7 : TipS := 'REG_MULTI_SZ' ;
8 : TipS := 'REG_RESOURCE_LIST' ;
9 : TipS := 'REG_FULL_RESOURCE_DESCRIPTOR' ;
10 : TipS := 'REG_RESOURCE_REQUIREMENTS_LIST' ;
end ; //case 1
case TipI of //case 2
1 , 2 , 7 : if Uz > 0 then
begin
VeriInt :=- 1 ;
SetString ( Veri , nil , Uz );
if RegQueryValueEx ( xReg . CurrentKey , PChar ( RegDegerAd ), nil , @ TipI , PByte ( Veri ),@ Uz )
= ERROR_SUCCESS then SetLength ( Veri , StrLen ( PChar ( Veri )));
end else Veri := '' ;
3 , 8 , 9 : Begin
//String Değerleri Okutma
GetMem ( xPoint , Uz );
if RegQueryValueEx ( reg1 . currentkey , pchar ( Regdegerad ), nil , @ TipI , xPoint ,@ Uz )
= ERROR_SUCCESS then
begin
SetLength ( Veri , Uz );
Move ( xPoint ^, Veri [ 1 ], Uz );
FreeMem ( xPoint );
end else FreeMem ( xPoint );
//Integer Değerleri Okutma
try
xDword := 0 ;
if RegQueryValueEx ( reg1 . CurrentKey , PChar ( Regdegerad ), nil , @ TipI , PByte (@ xDword ),@ uz )
= ERROR_SUCCESS then veriInt := xDword else veriInt :=- 1 ;
except
VeriInt :=- 1 ;
end ;
//Byte dizisini okutma, Geliştirilmeli
end ;
4 , 5 : Begin
VeriInt := xreg . ReadInteger ( RegDegerAd );
Veri := inttostr ( VeriInt );
end ;
end ; //case 2
end else //if1
begin
TipS := 'Bilinmeyen' ;
TipI :=- 1 ;
Uz :=- 1 ;
end ;
xRegDeger . Veri_Str := Veri ;
xRegDeger . Veri_Int := VeriInt ;
xRegDeger . DataTip_Str := TipS ;
xRegDeger . DataTip_Int := TipI ;
xRegDeger . Uzunluk := Uz ;
Result := xRegDeger ;
end ;
//-----------------------------------------------------------------------------------------------------
//---Binary Yazdırma fonksiyonu------ StrVeyaInt=0 ise String kaydet , StrVeyaInt=1 ise nümerik kaydet
//-----------------------------------------------------------------------------------------------------
function YazRegBinary ( const xReg : TRegistry ; RegDegerAd , Veri_Str : string ; StrVeyaInt : Byte ): Boolean ;
Var
xInt : Integer ;
Begin
Result := True ;
if StrVeyaInt = 1 then //Nümerik olarak kaydedilecekse
begin
try xInt := strtoint ( Veri_Str ); except Result := False ; Exit ; end ;
if RegSetValueEx ( xreg . CurrentKey , PChar ( RegDegerAd ), 0 , 3 , @ xInt , SizeOf ( xInt ))
<>ERROR_SUCCESS then Result := False ;
end else
if StrVeyaInt = 0 then //String olarak kaydedilecekse
if RegSetValueEx ( xReg . CurrentKey , PChar ( RegDegerAd ), 0 , 3 , PChar ( Veri_Str + #0 ), Length ( Veri_Str ))
<>ERROR_SUCCESS then Result := False else
else Result := False ;
End ;
end .
// Yorum ve soru için : swordtur@yahoo.com
// Unutmadan Derleyip exe halini çalıştırırsanız try except'lerden kurtulursunuz.....
