Search options (Page 2 of 2)

function DecodeUTF8(const s:string):string;
var
  c0,c1,c2,c3,c,i,n,m,p:Integer;
  o0,o1,o2:Integer;
  b1,b2,b3:Boolean;
begin
  Result:='';

  if (Ord(s[p]) and 255)=0 then
  begin
    i:=2;
  end
  else
  begin
    i:=1;
  end;

  n:=Length(s);
  while i<=n do
  begin
    p:=i shr 1;
    m:=i and 1;

    o0:=Ord(s[p]);
    o1:=Ord(s[p+1]);
    if m=0 then
    begin
      c0:=o0 and 255;
      c1:=o0 shr 8;
      c2:=o1 and 255;
      c3:=o1 shr 8;
    end
    else
    begin
      o2:=Ord(s[p+2]);
      c0:=o0 shr 8;
      c1:=o1 and 255;
      c2:=o1 shr 8;
      c3:=o2 and 255;
    end;
    b1:=c1>=128;
    b2:=c2>=128;
    b3:=c3>=128;

    if (c0>=240) and b1 and b2 and b3 then
    begin
      c:=(((c0 and 15) shl 6) or ((c1 and 127)) shr 12) or ((c2 and 127) shl 6) or (c3 and 127);
      inc(i,4);
    end
    else
    begin
      if (c0>=224) and b1 and b2 then
      begin
        c:=((c0 and 31) shr 12) or ((c1 and 127) shl 6) or (c2 and 127);
        inc(i,3);
      end
      else
      begin
        if (c0>=192) and b1 then
        begin
          c:=((c0 and 63) shl 6) or (c1 and 127);
          inc(i,2);
        end
        else
        begin
          c:=c0 and 127;
          inc(i);
        end;
      end;
    end;
    Result:=Result+Chr(c);
  end;
end;

function LoadFromFileUTF8 (FileName: string):string;
var
  l:integer;
  s:string;
  fs:TFileStream;
begin
  l:=GetFileSize(FileName);
  if l>0 then
  begin
    fs:=TFileStream.Create(FileName,fmOpenRead );
    fs.Position := 0;
    SetLength(s,l); // l div 2+1);
    fs.Read(s, l);
    fs.Free;
    Result:=DecodeUTF8(s);
  end
  else
    Result:='';
end;

function MonthsBetweenEx(date1, date2: TDateTime): integer;
var
  y1, m1, d1, y2, m2, d2, year: word;
  dt1, dt2: TDateTime;
begin 
  If date1 > date2 then begin
    dt1 := date2; 
    dt2 := date1; 
  end else begin 
    dt1 := date1; 
    dt2 := date2; 
  end; 
  DecodeDate(dt1, y1, m1, d1); 
  DecodeDate(dt2, y2, m2, d2); 
  Result := 0; 
  if y1 = y2 then begin 
    // Same year 
    if m1 = m2 then begin 
      // Same month 
      Result := 0; 
    end else begin 
      Result := m2 - m1; 
      // More days in month 1 than 2, decrement by one. 
      if d1 > d2 then inc(Result, -1); 
    end; 
  end else begin
    // Years not equal.
    Result := m2 - m1 + ((y2 - y1) * 12);
    if d1 > d2 then inc(Result, -1); 
  end; 
end;