unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
uses LConvEncoding;
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
Stream : TStream;
Size : Integer;
StrIn: RawByteString;
StrOut: String;
begin
Stream := TFileStream.Create('text.txt', fmOpenRead);
try
Size := Stream.Size;
SetLength(StrIn, Size);
Stream.Read(StrIn[1], Size);
StrOut := CP936ToUTF8(StrIn);
Memo1.Text := StrOut;
finally
Stream.Free;
end;
end;
end.