Programuotojų blogas

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;

Keletas nuotraukų penktadieniui + lietuviškas folkloras :)

Rinktinis lietuviskas folkloras

Šaltiniai:
Ištraukos iš prof. V.Krėvės-Mickevičiaus knygos “Patarlės ir priežodžiai.
Humanitarinio fakulteto tautosakos kom. leidinys”, išleistos 1934 metais
Kaune.
Ištraukos iš “Lietuvių kalbos palyginimų žodyno” (Vilnius, Mokslas, 1985,
sudarytoja K.B.Vosylytė)

Skaityti toliau…