EugeneX MiniWeb

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

====== Простой пример чтения и записи в файл UTF-8 ======

== Пример записи в utf-8 файл ==
<code pascal>
procedure WriteU8(const FileName: TFileName; Lines: TStrings);
var Writer: TStreamWriter;
    j: UInt32;
begin
    Writer := TStreamWriter.Create(FileName, False, TEncoding.UTF8); // Encoding
    try
        Writer.NewLine := #10; // #13#10-Win, #13-Mac, #10-Nix
        for j := 0 to Lines.Count-1 do
            Writer.WriteLine(Lines.Strings[j]);
    finally
        FreeAndNil(Writer);
    end;
end;</code>

== Пример чтения из utf-8 файла ==
<code pascal>
procedure ReadU8(const FileName: TFileName; OutputTo: TStrings);
var Reader: TStreamReader;
begin
    Reader := TStreamReader.Create(FileName, TEncoding.UTF8, False);
    try
        while not Reader.EndOfStream do
            OutputTo.Add( Reader.ReadLine );
    finally
        FreeAndNil(Reader);
    end;
end;</code>

EugeneX MiniWeb

User Tools

Site Tools

Page Tools