Bosna i Hercegovina



#1 07.03.2011-12:56
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 8,822


Subject: Delphi trikovi
Ukoliko u regional setings imate zarez kao decimalni separator a U delphi samo prepoznaje tacku kao decimalni separator.
Da nebi korisnici bili prinudjeni unostit tacku mozete iskoristiti ovaj dio koda da im omogucite unos zareza kao decimalni separator.
DownloadIzvorni kod (Delphi):
  1. if Pos(DecimalSeparator,strV)=0 then
  2.         strV:= Copy(strV,1,Pos('.',strV)-1)
  3.          +DecimalSeparator
  4.          +Copy(strV,Pos('.',strV)+1,Length(strV)-Pos(DecimalSeparator,strV));

Pozdrav
↑  ↓

#2 07.03.2011-12:58
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 8,822


Subject: Re: Delphi trikovi
Prilikom čitanja datuma iz Windows sustava često dolazi do pogreške jednom kad se taj datum pretvara u string. Naime, sam oblik datuma u Windowsima se postavlja u "Regional settings". Tako da se pri korištenju uobičajene naredbe DateToStr mogu na različito konfiguriranim sustavima dobivaju različiti izlazi. Zato je važno prije ikakve pretvorbe odrediti oblik datuma koji želimo dobiti, a to radimo naredbom FormatDateTime('hh:mm:ss:zzz',ProtekloVrijeme) pomoću koje ćemo dobiti naše vrijeme u željenom obliku.
DownloadIzvorni kod (Delphi):
  1. if Pos('MMMM',ShortDateFormat)=0 then
  2.         ShortDateFormat:= Copy(ShortDateFormat,1,Pos('MMMM', ShortDateFormat))
  3.          +Copy(ShortDateFormat,Pos('MMMM',ShortDateFormat)+3,Length(ShortDateFormat));
  4.  
  5.          
  6. if Pos('MMM', ShortDateFormat)=0 then
  7.         ShortDateFormat:= Copy(ShortDateFormat,1,Pos('MMM', ShortDateFormat))
  8.          +Copy(ShortDateFormat,Pos('MMM',ShortDateFormat)+2,Length(ShortDateFormat));

Pozdrav
↑  ↓

#3 07.03.2011-13:00
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 8,822


Subject: Re: Delphi trikovi
Za pretvaranje velikih slova u mala i obratno koriste se dvije naredbe UpperCase i LowerCase medjutim ovo nece dobro raditi kada se radi o nasim slovima čćšđ.
Tada mozete koristiti naredbe ANSIUpperCase i ANSILowerCase
Pozdrav
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 20.01.2017-14:58.