database alanlarinin istenildigi sekile getirme

[rsimsek]

Dikkat ederseniz ben AsString yazmıştım. Yoksa integer bir alanın soluna sıfırlar koymaya çalışmıyorsunuzdur umarım

[aslangeri]

kolay gelsin.
kaptan olaya değişik bir yönden yaklaşıp basina "0" eklemek istediğin alanın(fieldin) gettext eventine aşağıdaki kodu yazsan, böylelikle veritabanında bir değişiklik yapmadan sadece kullanıcıya böyleymiş gibi göstersen olmazmı? sadece bir öneri

Kod: Tümünü seç

procedure table1field1.gettext(........)
//paremetreleri tam hatırlamıyorum ama
//sender:tfield veritabanındaki değer
//var text:string; fieldın tipi önemli değil gösterilen değer hep string
//var displaytext:Boolean; text görüünsünmü görünmesinmi
begin
  text:=sender.asstring;
  while lenght(text)<15 do
     text:='0'+text;
end;

not:
ongettext eventi ttable veya tquery nin üzerine iki kere tıkladığında açılan pencerede fieldi seçtiğin zaman object inspectorde görebilirsin.

[rapsodim]

evet integer bır alanın soluna 0 koymaya calısıyorum.

[rsimsek]

forum ve raporlarda sıfırlı görüntüleyebilirsin ama veritabanında böyle tutulması imkansız. zaten integer dediğimiz bir alan -32768 den +32767 ye kadar bir alan veritabanında iki bayt yer işgal eder..