main2.pas

uEncoding字符串UNICODE处理单元 用于处理unicode国际通用

unit Main2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TFrmEncoding = class(TForm)
    Memo1: TMemo;
    Panel1: TPanel;
    Panel2: TPanel;
    Memo2: TMemo;
    ComboBox1: TComboBox;
    BtnSave: TButton;
    BtnRead: TButton;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    BtnClear: TButton;
    Button1: TButton;
    Button2: TButton;
    procedure FormResize(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    procedure BtnReadClick(Sender: TObject);
    procedure BtnClearClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure DoReSize;
  end;

var
  FrmEncoding: TFrmEncoding;

implementation

uses uEncoding;

const
  FName='temp.txt';

{$R *.dfm}

{ TFrmEncoding }

procedure TFrmEncoding.BtnSaveClick(Sender: TObject);
var
 S:string;
begin
 S:=Memo1.Text;
 case ComboBox1.ItemIndex of {保存操作}
   0:StrToFile(FName,S,GetEncoding(0)); //ok
   1:StrToFile(FName,S,GetEncoding(1200));//ok
   2:StrToFile(FName,S,GetEncoding(1201));//OK
   3:StrToFile(FName,S,GetEncoding(65001));//OK
   4:StrToFile(FName,S,GetEncoding(65005));//OK
   5:StrToFile(FName,S,GetEncoding(65006));//OK
 end;
end;

procedure TFrmEncoding.Button1Click(Sender: TObject);
VAR
 S:String;
begin
 S:=Memo1.Text;
 Memo2.Text:=Gb2Big5(S);
end;

procedure TFrmEncoding.Button2Click(Sender: TObject);
VAR
 S:String;
begin
 S:=Memo2.Text;
 if S='' then Exit;
 Memo2.Text:=Big52Gb(S);
end;

procedure TFrmEncoding.BtnReadClick(Sender: TObject);
var
 S:string;
begin
 case ComboBox1.ItemIndex of {读取操作}
   0:S:=FileToStr(FName,GetEncoding(0)); //ok
   1:S:=FileToStr(FName,GetEncoding(1200));//OK
   2:S:=FileToStr(FName,GetEncoding(1201));//OK
   3:S:=FileToStr(FName,GetEncoding(65001));//OK
   4:S:=FileToStr(FName,GetEncoding(65005));//OK
   5:S:=FileToStr(FName,GetEncoding(65006));//OK
 end;
 Memo2.Text:=S;
 
end;

procedure TFrmEncoding.BtnClearClick(Sender: TObject);
begin
  Memo2.Clear;
end;

procedure TFrmEncoding.DoReSize;
begin
  Memo1.Width:=(Width-panel2.Width*3) div 2;
end;

procedure TFrmEncoding.FormResize(Sender: TObject);
begin
  DoReSize;
end;

end.