From b2c3bde18a06bad9086509bdefd6e387dfea0397 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Tue, 28 Apr 2020 15:23:23 +0200 Subject: [PATCH] fix #19 - corrupted setting files when strings contain UTF9 chars > ASCII space --- src/u_common.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/u_common.pas b/src/u_common.pas index ea24a926..57c78ccc 100644 --- a/src/u_common.pas +++ b/src/u_common.pas @@ -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