Prikazi cijelu temu 07.03.2011 12:58
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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));

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.