MyCity » Pascal -> Delphi » format

format

Napisano na dan: 26.2.2007
1

format
Sledeća strana Pagination

Idi na vrh

Poslao: 26 Feb 2007 12:44
Idi na vrh
offline
  • Pridružio: 26 Feb 2007
  • Poruke: 220
  • Gde živiš: Novi Sad

Pomagajte ako znate kako da formatiram polje u DBGrid-u tako da ako polje ima npr 8 karaktera ja unesem 3 on mi doda nule ispred.Samo mi nemojte reci da je sa funkcijom Format jer ne znam gde da je uturim.HELP zlopatim se vec 10 dana sa tim.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 26 Feb 2007 12:54
Idi na vrh
offline
  • Đuro Glumac
  • dipl. ing. informatike
  • Pridružio: 08 Feb 2004
  • Poruke: 3640
  • Gde živiš: ApAtIn

Tu osobinu u DBGridu nemas ali mozes lako sam da je napravis.

While Length(s)<8 do
s:='0'+s;

Svaki string bi trebao pre ispisa u DBGrid da formatiras ovako i svi ce biti duzine 8 karaktera. Jesi na to mislio?



Poslao: 26 Feb 2007 13:36
Idi na vrh
offline
  • Pridružio: 26 Feb 2007
  • Poruke: 220
  • Gde živiš: Novi Sad

Pa moze i to ali na koji dogadjaj da dodam kod.Hvala

Poslao: 26 Feb 2007 13:43
Idi na vrh
offline
  • Đuro Glumac
  • dipl. ing. informatike
  • Pridružio: 08 Feb 2004
  • Poruke: 3640
  • Gde živiš: ApAtIn

Pa daj malo vise informacija sta upisujes u DBGrid i odakle citas? Pre upisa u DBGrid dodas taj kod.

Poslao: 26 Feb 2007 21:50
Idi na vrh
offline
  • eca  Female
  • Zaslužni građanin
  • Pridružio: 24 Feb 2007
  • Poruke: 631

Imam isti problem, t.j. kako pri unosu novih rekorda u tabelu da ne kucam gomilu nula u kataloskim brojevima.
Baza je Access, a na formi imam standardne kontrole:DataSource, AdoTable i AdoConnection. Podatke prikazujem u DBGridu.

Apsolutni sam pocetnik i pojma nemam gde ide lepi mali kod koji je NullCoDe napisao.

Pomoc!

Poslao: 26 Feb 2007 22:47
Idi na vrh
offline
  • Đuro Glumac
  • dipl. ing. informatike
  • Pridružio: 08 Feb 2004
  • Poruke: 3640
  • Gde živiš: ApAtIn

@eca

Pogledaj funkciju FormatFloat u helpu.

Poslao: 26 Feb 2007 23:19
Idi na vrh
offline
  • eca  Female
  • Zaslužni građanin
  • Pridružio: 24 Feb 2007
  • Poruke: 631

Probacu! Ako uspe javicu kako, ako ne zapomagacu...

Poslao: 27 Feb 2007 00:43
Idi na vrh
offline
  • Pridružio: 08 Jan 2007
  • Poruke: 279
  • Gde živiš: Srbija

Ako sam dobro razumeo, pri unosu npr. nekog broja u TEdit, MaxLenght = 8, treba da se ispred unetog broja čija je dužina manja od 8 karaktera ispišu nule!?!

Za TEdit treba property MaxLenght postaviti na vrednost "8" te ispisati sledeći kod:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;   Shift: TShiftState); var s: string; begin  if (Key = VK_RETURN) then   while Length(Edit1.Text)<8 do     Edit1.Text:='0'+Edit1.Text; end;
Naravno, ovo je jedna od opcija ako sam dobro razumeo problem, ne i najelegantnije rešenje.

Pozdrav.

Poslao: 27 Feb 2007 02:37
Idi na vrh
offline
  • Emil Beli
  • Pridružio: 03 Jan 2005
  • Poruke: 2990
  • Gde živiš: Beograd

Nullcode je dao jedino pravilno resenje: funkcija FormatFloat

Poslao: 27 Feb 2007 10:28
Idi na vrh
offline
  • Đuro Glumac
  • dipl. ing. informatike
  • Pridružio: 08 Feb 2004
  • Poruke: 3640
  • Gde živiš: ApAtIn

A NuLLCoDe-u je na tu funkciju nedavno ukazao Beli. Mr. Green

Jedino sto svaki upis u DBGrid prethodno mozras da formatiras, ne mozes nakon upisa sa FormatFloat da formatiras kolonu u DBGridu.

MyCity » Pascal -> Delphi » format

Ko je trenutno na forumu
 

Ukupno su 1074 korisnika na forumu :: 48 registrovanih, 6 sakrivenih i 1020 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 357magnum, _Rade, A.R.Chafee.Jr., Apok, bankulen, Batinas, bojank, Bokiboks, CikaKURE, cincarin, Denaya, Dimitrije Paunovic, dragoljub11987, drimer, Georgius, ginjica, hyla, ILGromovnik, Karla, Krvava Devetka, Kubovac, ladro, Lošmi, Lucije Kvint, Luka Blažević, Marko Marković, mercedesamg, Mi lao shu, mikrimaus, milenko crazy north, milutin134, nebidrag, nenad81, ostoja, panzerwaffe, rasok, Ripanjac, RJ, royst33, sasa87, slonic_tonic, Sumadija34, vathra, Vladko, voja64, wolf431, wolverined4, ZetaMan