mORMot and Open Source friends
Check-in [91e29f45aa]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:{1809} fixed i18nAddLanguageItems() function
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 91e29f45aa213ef48ffe2003d4f4c0d1c5bab6d1
User & Date: ab 2015-08-19 10:43:57
Context
2015-08-19
11:53
{1810} refined documentation about BATCH process and BLOB fields check-in: 4324d186e7 user: ab tags: trunk
10:43
{1809} fixed i18nAddLanguageItems() function check-in: 91e29f45aa user: ab tags: trunk
10:38
{1808} added TSQLRestClientDB kind of test to mORMotBatchInsert.dpr sample #15 - trying to reproduce http://synopse.info/forum/viewtopic.php?id=2808 issue check-in: 8b0f3d5dfd user: ab tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to SQLite3/mORMoti18n.pas.

764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
  LastLCIDLanguage := Result;
end;


function LanguageAbrToIndex(const value: RawUTF8): TLanguages;
// LanguageAbrToIndex('GR')=1
begin
  if length(value)=2 then
    result := LanguageAbrToIndex(pointer(Value)) else
    result := LANGUAGE_NONE;
end;

function LanguageAbrToIndex(P: PAnsiChar): TLanguages; overload;
var ndx: integer;
begin






|







764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
  LastLCIDLanguage := Result;
end;


function LanguageAbrToIndex(const value: RawUTF8): TLanguages;
// LanguageAbrToIndex('GR')=1
begin
  if length(value)>=2 then
    result := LanguageAbrToIndex(pointer(Value)) else
    result := LANGUAGE_NONE;
end;

function LanguageAbrToIndex(P: PAnsiChar): TLanguages; overload;
var ndx: integer;
begin

Changes to SynopseCommit.inc.

1
'1.18.1808'
|
1
'1.18.1809'