fix #19 - corrupted setting files when strings contain UTF9 chars > ASCII space

This commit is contained in:
Basile Burg 2020-04-28 15:23:23 +02:00
parent ae77400994
commit b2c3bde18a
1 changed files with 1 additions and 1 deletions

View File

@ -617,7 +617,7 @@ begin
try
str1.WriteComponent(value);
str1.Position := 0;
ObjectBinaryToText(str1,str2);
ObjectBinaryToText(str1, str2, oteLFM);
ForceDirectories(fname.extractFilePath);
str2.SaveToFile(fname);
finally