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 883 korisnika na forumu :: 54 registrovanih, 6 sakrivenih i 823 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: Apok, avijacija, bojan313, bojcistv, bpvl, ccoogg123, coaaco, CrazyNorth, Djuro2000, Dorcolac, drimer, eighty-one, Electron, esx66, Flashburn, Fructo, Futurama, Gheljda, gobrad, Hardenberg, JankoS, Joja, kaisarevic1, komsija1, kovinacc, kybonacci, Lazarus, lcc, Lord Nem, LostInSpaceandTime, Magnum_956, Manjane, MB120mm, mir, mnn2, momcilob55, monomah, mrbinmiladin, neutrino, nikolapetkovic, Piicoki, proka89, R_038, RecA, repac, Sarmat, solic, SpeedyGonzales, Suhi, Timočka Divizija, tmanda323, Vlada78, vladas87, x011