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 <
[email protected]> wrote:
>
>
> On Sat, 10 Mar 2018, Mattias Gaertner via Lazarus wrote:
>
> On Sat, 10 Mar 2018 16:57:08 +0100
>> Sandro Cumerlato via Lazarus <[email protected]> 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
> [email protected]
> https://lists.lazarus-ide.org/listinfo/lazarus
>
--
_______________________________________________
Lazarus mailing list
[email protected]
https://lists.lazarus-ide.org/listinfo/lazarus
