Forum > LCL

Clear example of loading and saving files with UTF8 encoding

<< < (2/2)

anse:
You can use a normal TStringList instead, which supports all encodings nowadays:


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---uses Classes, SysUtils; StringList1.SaveToFile(MyFilename, TEncoding.UTF8); 

Nimbus:
Or if you're on FPC 3.3.1+ and don't want a TStringList but a plain (Ansi)String, there are TFile.ReadAllText / TFile.WriteAllText in System.IOUtils.


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---{$H+}uses  System.IOUtils; var  S: String;...  S := TFile.ReadAllText(MyFilename, TEncoding.UTF8);  TFile.WriteAllText(MyFilename, S, TEncoding.UTF8); 

Navigation

[0] Message Index

[*] Previous page