Programuotojų blogas

Talpiname Mr. Linas suprogramuotą JSON duomenų formato peržiūros programėlę. Gal kam nors ji pasirodys naudinga. Programą galite rasti čia.

Mokslininkai suka galvas, kodėl didelė organizmųDNR kodo dalis, rodos, neatlieka jokios naudingos funkcijos.

Pasirodo, daugiau nei pusė žmogaus genomo kodo yra komentarai. Štai dalis to, ką galima pamatyti, iššifravus eilinio žmogaus DNR.

Skaityti toliau…

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;