mORMot Open Source

corchi72

Member

Registered: 2010-12-10

Posts: 232

Error to compile mORMotToolBar

if SameText(ext,'.TXT') then begin
      for i := 0 to Rep.Pages.Count-1 do
        Content := Content+Rep.Pages[i]; // append content of every page
      // export as ANSI text file, in the current code page
        if not FileFromString(
          {$ifdef UNICODE}
          CurrentAnsiConvert.UnicodeBufferToAnsi(pointer(Content),length(Content))
          {$else}
          Content
          {$endif} ,aName) then
          exit;

I corrected the code in this mode, but I dont know if it is correct

if SameText(ext,'.TXT') then begin
      for i := 0 to Rep.PageCount-1 do
        Content := Content+Rep.Pages[i].Text; // append content of every page
      // export as ANSI text file, in the current code page
        if not FileFromString(
          {$ifdef UNICODE}
          CurrentAnsiConvert.UnicodeBufferToAnsi(pointer(Content),length(Content))
          {$else}
          Content
          {$endif} ,aName) then
          exit;
    end else
      exit; // invalid ext

thanks

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,240

Website

Re: Error to compile mORMotToolBar

Compilation error has been fixed.
See http://synopse.info/fossil/info/be30adb6c7

A regression about report display in SynFile demo (and all UI-generated applications) has also been fixed.
See http://synopse.info/fossil/info/4bfe48c93c

Thanks for the feedback.