Encoding: CodePage;
Encoding: Prognoz.Platform.Interop.ForeSystem.CodePage;
Свойство Encoding определяет кодировку текста для чтения из файла.
Для корректного отображения текста кодировка, определенная свойством Encoding, должна совпадать с кодировкой сохраненного файла.
Для выполнения примера предполагается наличие текстового файла «C:\file.txt».
Добавьте ссылку на системную сборку «IO».
Sub UserProc;
Var
File1: IFileInfo;
TextR: ITextReader;
s: String;
Begin
File1 := New FileInfo.Attach("C:\file.txt");
If File1.Exists Then
TextR := File1.OpenTextReader;
TextR.Encoding := CodePage.ANSI_Cyrillic;
s := TextR.ReadString(10);
End If;
Debug.WriteLine(s);
Dispose File1;
End Sub UserProc;
После выполнения примера в окно консоли будут считаны первые 10 символов в кодировке «ANSI_Cyrillic» из файла "file.txt".
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Добавьте ссылки на системные сборки «ForeIO», «ForeSystem».
Imports Prognoz.Platform.Interop.ForeIO;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params: StartParams);
Var
File1: IFileInfo;
TextR: ITextReader;
s: String;
Begin
File1 := New FileInfo();
File1.Attach("C:\file.txt");
If File1.Exists Then
TextR := File1.OpenTextReader();
TextR.Encoding := CodePage.cpANSI_Cyrillic;
s := TextR.ReadString(10);
End If;
System.Diagnostics.Debug.WriteLine(s);
End Sub;
См. также: