edithtml.pas

Big5和GB码相互转换

unit EditHTML;

interface

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

type
  TEditHTMLForm = class(TForm)
    Memo1: TMemo;
    Panel1: TPanel;
    EditFilename: TEdit;
    Button1: TButton;
    ListBox1: TListBox;
    PopupMenu1: TPopupMenu;
    Save: TMenuItem;
    Button2: TButton;
    procedure ListBox1Click(Sender: TObject);
    procedure PopupMenu1Popup(Sender: TObject);
    procedure SaveClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EditHTMLForm: TEditHTMLForm;

implementation

{$R *.DFM}

procedure TEditHTMLForm.ListBox1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex]);
end;

procedure TEditHTMLForm.PopupMenu1Popup(Sender: TObject);
var
  I,J : Integer;
  S : string;
begin
  I := Pos(' ',Memo1.Seltext);
  J := Pos(#13#10,Memo1.SelText);
  if I> J then I := J;
  s := Copy(Memo1.SelText,1,I-1);
  EditFileName.Text := s+'.org';
end;

procedure TEditHTMLForm.SaveClick(Sender: TObject);
var
  TempList : TStringList;
  FilePath : string;
begin
  FilePath := slash(ExtractFilePath(ListBox1.Items[ListBox1.ItemIndex]));
  TempList := TStringList.Create;
  try
    TempList.Add(Memo1.SelText);
    TempList.SaveToFile(FilePath+EditFIleName.Text);
  finally
    TempList.Free;
  end;
end;

procedure TEditHTMLForm.Button2Click(Sender: TObject);
var
  I : integer;
begin
  Memo1.Lines.BeginUpdate;
  try
    for I:=0 to Memo1.Lines.Count-1 do
    begin
      Memo1.Lines[I] := striptags(Memo1.Lines[I]);
    end;
  finally
    Memo1.Lines.EndUpdate;
  end;
end;

end.