listbox ve text dosya hakkında"

"

Listbox ve text Dosya Hakkında Bugün 03:35

 

herkese selam benim bir sorunum var bana yardım edermisiniz.

belki çok basit ama yapamadım..!!!

 

ben text dosyaya kayıtları kaydediyorum.

listbox'a da kayıtları listeliyorum. fakat kayıtlar

alt alta ve aynı hizzada olmuyor. bunu nasıl yapabilirim.

 

yani listbox taki  kayıtlar hepsi aynı hizzada olacak.

 

yardımlarınızı bekliyorum. saygılarımla.

 

aşağıda kullandığım kodlarıda yazdım...

 

 

procedure Tsatlistgun.Button1Click(Sender: TObject);

var

i:integer;

begin

assignfile(satisdosya,'c:syssatıs.sys');

{$i-}reset(satisdosya);{$i+}

 

for i:=0 to filesize(satisdosya)-1 do

begin

seek(satisdosya,i);read(satisdosya,satkay);

 

 

if (gungir.text=satkay.tarih) and (satkay.r='*') then

begin

listbox1.Items.add(satkay.uad+'  '+inttostr(satkay.adet)+'  '+satkay.bfiyat+'  '+satkay.stoplam+' '+satkay.tarih);

end;

 

end;

 

if (gungir.text<>satkay.tarih) or (satkay.r<>'*') then

begin

showmessage('Kayıt Bulunamadı..!');

listbox1.clear;

gungir.text:='';end;

closefile(satisdosya);

 

end;

 

memolipascal

"

 

cevap:

 

genel olarak karşılaşılan bir problem, hizalama sorunları...

 

aşağıdaki kod yapısını kullanmışsınız:

 

listbox1.Items.add(satkay.uad+'  '+inttostr(satkay.adet)+'  '+satkay.bfiyat+'  '+satkay.stoplam+' '+satkay.tarih);

 

bu kod, sizin de belirttiğiniz gibi, hizalamayacaktır ve zigzaglı olarak

alt alta ekleyecektir...

 

Bunu şu şekilde çözebilirsiniz:

 

//written by neoturk, 2003 archive

const

   //- işareti sola veya sağa olarak değişir.

   //25,20,vs.. boşluk miktarı - marj ayarı

   format1='%-25s %20s %20s %20s %20s'; // 5 adet bilgi yazdırılacak, formatlı

var

   ff:string;

begin

  ff:=Format(format1,

  [satkay.uad,inttostr(satkay.adet),satkay.bfiyat,satkay.stoplam,satkay.tarih]);

  listbox1.items.add(ff);

end;

 

yukarıdaki şablon kodlamayı iyi inceleyin, sorununuzu çözecektir...

( kendi programınıza uygun bir şekilde uyarlayın )

 

( tüm verileri ben string olarak seçtim, (inttostr destekli olarak)

sayısal bilgi yazdıracak iseniz %d veya %n parametrelerini inceleyiniz..

 

ayrıca listbox1'in font ayarını "courier new" olarak değiştirin.

( bu font hizalama olarak en uygunudur )

 

yöntem 2:

birden fazla veriyi hizalı olarak göstermek istiyor iseniz,

Tlistview nesnesini kullanmanızı tavsiye ederim.

Bu konuda örnek kodlarım mevcuttur

( bakınız: "neyi nasil yaparim" - sorgulatınız )

 

umarım yardımcı olmuştur....

 

kolay gelsin...

 

saygılarımla_

 

neoturk [ xxnt03@lycos.co.uk ]

 

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

 

neoturk: Forum - "listbox ve text dosya hakkında"

"

Listbox ve text Dosya Hakkında Bugün 03:35

 

herkese selam benim bir sorunum var bana yardım edermisiniz.

belki çok basit ama yapamadım..!!!

 

ben text dosyaya kayıtları kaydediyorum.

listbox'a da kayıtları listeliyorum. fakat kayıtlar

alt alta ve aynı hizzada olmuyor. bunu nasıl yapabilirim.

 

yani listbox taki  kayıtlar hepsi aynı hizzada olacak.

 

yardımlarınızı bekliyorum. saygılarımla.

 

aşağıda kullandığım kodlarıda yazdım...

 

 

procedure Tsatlistgun.Button1Click(Sender: TObject);

var

i:integer;

begin

assignfile(satisdosya,'c:syssatıs.sys');

{$i-}reset(satisdosya);{$i+}

 

for i:=0 to filesize(satisdosya)-1 do

begin

seek(satisdosya,i);read(satisdosya,satkay);

 

 

if (gungir.text=satkay.tarih) and (satkay.r='*') then

begin

listbox1.Items.add(satkay.uad+'  '+inttostr(satkay.adet)+'  '+satkay.bfiyat+'  '+satkay.stoplam+' '+satkay.tarih);

end;

 

end;

 

if (gungir.text<>satkay.tarih) or (satkay.r<>'*') then

begin

showmessage('Kayıt Bulunamadı..!');

listbox1.clear;

gungir.text:='';end;

closefile(satisdosya);

 

end;

 

memolipascal

"

 

cevap:

 

genel olarak karşılaşılan bir problem, hizalama sorunları...

 

aşağıdaki kod yapısını kullanmışsınız:

 

listbox1.Items.add(satkay.uad+'  '+inttostr(satkay.adet)+'  '+satkay.bfiyat+'  '+satkay.stoplam+' '+satkay.tarih);

 

bu kod, sizin de belirttiğiniz gibi, hizalamayacaktır ve zigzaglı olarak

alt alta ekleyecektir...

 

Bunu şu şekilde çözebilirsiniz:

 

//written by neoturk, 2003 archive

const

   //- işareti sola veya sağa olarak değişir.

   //25,20,vs.. boşluk miktarı - marj ayarı

   format1='%-25s %20s %20s %20s %20s'; // 5 adet bilgi yazdırılacak, formatlı

var

   ff:string;

begin

  ff:=Format(format1,

  [satkay.uad,inttostr(satkay.adet),satkay.bfiyat,satkay.stoplam,satkay.tarih]);

  listbox1.items.add(ff);

end;

 

yukarıdaki şablon kodlamayı iyi inceleyin, sorununuzu çözecektir...

( kendi programınıza uygun bir şekilde uyarlayın )

 

( tüm verileri ben string olarak seçtim, (inttostr destekli olarak)

sayısal bilgi yazdıracak iseniz %d veya %n parametrelerini inceleyiniz..

 

ayrıca listbox1'in font ayarını "courier new" olarak değiştirin.

( bu font hizalama olarak en uygunudur )

 

yöntem 2:

birden fazla veriyi hizalı olarak göstermek istiyor iseniz,

Tlistview nesnesini kullanmanızı tavsiye ederim.

Bu konuda örnek kodlarım mevcuttur

( bakınız: "neyi nasil yaparim" - sorgulatınız )

 

umarım yardımcı olmuştur....

 

kolay gelsin...

 

saygılarımla_

 

neoturk [ xxnt03@lycos.co.uk ]

 

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

 

neoturk: Forum - "access veri tabanında filtreleme hatası"

"

filtreleme hatası 22 Kasım 2005 20:45

arkadaşlar yaptığım programda access veritabanını kullanıyorum.

filtrelemek istediğim sütünlar arasında bi kaç tane problem

çıkartan var..mesela;adı,soyadı hanelerini çok rahat

filtreleyebiliyorum fakat seri numarası filtreleyeceğim zaman

şöyle bi hatayla karşılaşıyorum;

 

  'Yanlış türdeki değişkenler kabul edilebilir aralık dışında

  veya bir başkasıyla çakışan bağımsız değişkenler kullanılıyor.'

 

bunun sebebi nedir?Accessde bir çok ayarı kurcaladım ama

düzeltemedim..kayıtların başlarında boşluk falanda yok bi hata

var ama!işin içinden çıkamadım..şimdiden teşekkürler..

kolay gelsin..

 

frantic00

"

 

cevab:

 

evet...

 

kural 1:

"filter" ile filtreleme işlemi sadece "string"(metinsel)

sahalar içerisinde geçerlidir.

 

kural 2:

access filtre yapısı ile paradox filtre yapısı arasında

syntax farkı vardır.

( bu syntax farkı dosyanın index yapısından kaynaklanır )

 

access için ele alıyorum:

 

string yapilari "filter" amaçlı şöyle sorgulayabilirsin:

( sql den bahsetmiyorum )

 

access yapin şöyle olsun:

ID = otomatik sayi

ISIM = metin

NUMARA = sayi

 

Burada kural1 e göre "ISIM" sahasını filtrelemek istersen,

( edit1 = filtreleyeceğin hece )

 

//written by neoturk - 2003 archive

if trim(edit1.Text)<>'' then

        begin

        adotable1.Filtered:=false;

        adotable1.Filter:='ISIM like '+#39+edit1.text+'*'+#39;

        adotable1.Filtered:=true;

        end;

( herhangi bir butona yukarıdaki kodu yazınız )

 

 

yukarıdaki kod parçası ile çok rahat sorgulama yapabilirsin

( filter komutunu kullanarak )

 

"ISIM like 'Ahmet*'" şeklinde bir mini sql cümleciği

gibi filtre yapısı ister ACCESS.

 

" trim(edit1.text)<>'' " satırını kasten yazdım,

( boş hücreyi filtreden geçiremezsin )

 

 

ÇOK ÖNEMLİ NOT:

  'Yanlış türdeki değişkenler kabul edilebilir aralık dışında

  veya bir başkasıyla çakışan bağımsız değişkenler kullanılıyor.'

 

Yukarıdaki hatayı alma nedeniniz şudur,

paradoxtan gelen alışkanlıkla,

adotable1.filter='AHMET';

 

şeklinde bir kodlama sizin söylediğiniz hata mesajına neden olur.

 

adotable1.filter:="ISIM like 'Ahmet*'";

 

şeklinde düzeltilmesi gerekmektedir. ( Access için )

 

bu hata mesajıyla bir çok arkadaşın karşılaştığını biliyorum.

 

Umarım faydamız olmuştur.....

 

çalışmalarınızda başarılar diliyorum, kolay gelsin...

 

saygılarımla_

 

neoturk [ xxnt03@lycos.co.uk ]

 

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

 

neoturk: Forum - "access veri tabanında filtreleme hatası"

"

filtreleme hatası 22 Kasım 2005 20:45

arkadaşlar yaptığım programda access veritabanını kullanıyorum.

filtrelemek istediğim sütünlar arasında bi kaç tane problem

çıkartan var..mesela;adı,soyadı hanelerini çok rahat

filtreleyebiliyorum fakat seri numarası filtreleyeceğim zaman

şöyle bi hatayla karşılaşıyorum;

 

  'Yanlış türdeki değişkenler kabul edilebilir aralık dışında

  veya bir başkasıyla çakışan bağımsız değişkenler kullanılıyor.'

 

bunun sebebi nedir?Accessde bir çok ayarı kurcaladım ama

düzeltemedim..kayıtların başlarında boşluk falanda yok bi hata

var ama!işin içinden çıkamadım..şimdiden teşekkürler..

kolay gelsin..

 

frantic00

"

 

cevab:

 

evet...

 

kural 1:

"filter" ile filtreleme işlemi sadece "string"(metinsel)

sahalar içerisinde geçerlidir.

 

kural 2:

access filtre yapısı ile paradox filtre yapısı arasında

syntax farkı vardır.

( bu syntax farkı dosyanın index yapısından kaynaklanır )

 

access için ele alıyorum:

 

string yapilari "filter" amaçlı şöyle sorgulayabilirsin:

( sql den bahsetmiyorum )

 

access yapin şöyle olsun:

ID = otomatik sayi

ISIM = metin

NUMARA = sayi

 

Burada kural1 e göre "ISIM" sahasını filtrelemek istersen,

( edit1 = filtreleyeceğin hece )

 

//written by neoturk - 2003 archive

if trim(edit1.Text)<>'' then

        begin

        adotable1.Filtered:=false;

        adotable1.Filter:='ISIM like '+#39+edit1.text+'*'+#39;

        adotable1.Filtered:=true;

        end;

( herhangi bir butona yukarıdaki kodu yazınız )

 

 

yukarıdaki kod parçası ile çok rahat sorgulama yapabilirsin

( filter komutunu kullanarak )

 

"ISIM like 'Ahmet*'" şeklinde bir mini sql cümleciği

gibi filtre yapısı ister ACCESS.

 

" trim(edit1.text)<>'' " satırını kasten yazdım,

( boş hücreyi filtreden geçiremezsin )

 

 

ÇOK ÖNEMLİ NOT:

  'Yanlış türdeki değişkenler kabul edilebilir aralık dışında

  veya bir başkasıyla çakışan bağımsız değişkenler kullanılıyor.'

 

Yukarıdaki hatayı alma nedeniniz şudur,

paradoxtan gelen alışkanlıkla,

adotable1.filter='AHMET';

 

şeklinde bir kodlama sizin söylediğiniz hata mesajına neden olur.

 

adotable1.filter:="ISIM like 'Ahmet*'";

 

şeklinde düzeltilmesi gerekmektedir. ( Access için )

 

bu hata mesajıyla bir çok arkadaşın karşılaştığını biliyorum.

 

Umarım faydamız olmuştur.....

 

çalışmalarınızda başarılar diliyorum, kolay gelsin...