[Lazarus] StringGrid1.SaveToCSVFile - UTF-8 with BOM

[Sandro Cumerlato]

Thank you Mattias and Michael for your help!

procedure TForm1.ButtonSaveClick(Sender: TObject);
const
  UTF8BOM = #$EF#$BB#$BF;
var
  s: String;
  fs: TFileStream;
begin
  s := ChangeFileExt(Application.ExeName, '.csv');
  try
    fs := TFileStream.Create(s, fmCreate);
    fs.Write(UTF8BOM, SizeOf(UTF8BOM));
    StringGrid1.SaveToCSVStream(fs, ';', True, False);
  finally
    fs.free;
  end;
end;


On 10 March 2018 at 17:25, Michael Van Canneyt via Lazarus <
lazarus at lists.lazarus-ide.org> wrote:

>
>
> On Sat, 10 Mar 2018, Mattias Gaertner via Lazarus wrote:
>
> On Sat, 10 Mar 2018 16:57:08 +0100
>> Sandro Cumerlato via Lazarus <lazarus at lists.lazarus-ide.org> wrote:
>>
>> Hello,
>>> how can I save StringGrid content to a CSV file encoded to "UTF-8 with
>>> BOM"
>>> format? (as default it is saved to "UTF-8 without BOM" format)
>>>
>>
>> var
>>  s: string;
>>  ms: TMemoryStream
>>
>> ms:=TMemoryStream.Create;
>> try
>>  s:=UTF8BOM;
>>  ms.Write(s[1],length(s));
>>  Grid.SaveToCSVStream(ms)
>>  ms.Position:=0;
>>  ms.SaveToFile('foo.csv');
>> finally
>>  ms.Free;
>> end;
>>
>
> You can also just use a filestream ?
>
> Michael.
>
> --
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus-ide.org
> https://lists.lazarus-ide.org/listinfo/lazarus
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20180311/eac63506/attachment-0001.html>