Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
iCentar » Racunari i oprema » Programirannje i baze podataka » Pascal/Delphi » Delphi trikovi
zxz 07.03.2011 13:56
Predmet: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.
PreuzmiIzvorni kôd (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));

zxz 07.03.2011 13:58
Predmet: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.
PreuzmiIzvorni kôd (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));

zxz 07.03.2011 14:00
Predmet: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