Manote, kad tikroji Coca Cola yra išskirtinio skonio, ir ją bet kur atpažintumėt?
Taip manė ir pora mūsų kolegų (Mr. Sigitas ir Ms. Gintarė). Per pietus išėjo diskusija, kad Pepsi Cola ir Coca Cola – visiškai skirtingų skonių gėrimai. Nutarėme patikrinti. Nulėkėm į parduotuvę ir nupirkom 4-ių rūšių kolas: Coca Cola, Pepsi Cola, Just Cola ir Rimi Cola. Skaityti toliau…
Jau lyg ir pavasaris, bet pas mus ligos tik pradėjo siaust.
Savaitės pradžioje vienas kolega (Mr. Sigitas) atėjo be balso ir šiaip atrodydamas labai nekaip. Nors sekančią dieną jau atrodė geriau, bet perdavė estafetę kitam kolegai. Mr Linas antradienį (kaip ir šiandien) net nepasirodė darbe.
Kankina baisi nežinia – kas sekantis?
procedure SetDecimalSeparator(Ch: Char); var DefLCID: LCID; Buffer: LPSTR; begin Application.UpdateFormatSettings := True; StrPCopy(Buffer, Ch); DefLCID := GetThreadLocale; if SetLocaleInfo(DefLCID, LOCALE_SDecimal, Buffer) then DecimalSeparator := StrPas(Buffer)[1]; Application.UpdateFormatSettings := False; end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetDecimalSeparator('.');
end;