搜索指定类型的文本文件并转换为unicode

unit UnitMain;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
ListBox1: TListBox;
GroupBox1: TGroupBox;
Button1: TButton;
EditExt: TEdit;
Label1: TLabel;
Label2: TLabel;
EditDir: TEdit;
Button2: TButton;
Memo2: TMemo;
pbar: TProgressBar;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function MakeFileList(Path,FileExt:string):TStringList ;
var
sch:TSearchrec;
begin
Result:=TStringlist.Create;

if rightStr(trim(Path), 1) <> '/' then
Path := trim(Path) + '/'
else
Path := trim(Path);

if not DirectoryExists(Path) then
begin
Result.Clear;
exit;
end;

if FindFirst(Path + '*', faAnyfile, sch) = 0 then
begin
repeat
Application.ProcessMessages;
if ((sch.Name = '.') or (sch.Name = '..')) then Continue;
if DirectoryExists(Path+sch.Name) then
begin
Result.AddStrings(MakeFileList(Path+sch.Name,FileExt));
end
else
begin
if (UpperCase(extractfileext(Path+sch.Name)) = UpperCase(FileExt)) or (FileExt='.*') then
Result.Add(Path+sch.Name);
end;
until FindNext(sch) <> 0;
SysUtils.FindClose(sch);
end;
end;

//搜索符合条件的文本文件
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items:= MakeFileList( EditDir.Text, EditExt.Text);
end;

//转换为unicode
procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
strunicode: widestring;
txtFile: TextFile;
//ms:TMemoryStream;

begin
pbar.Max := ListBox1.Items.Count;
for i:=0 to ListBox1.Items.Count - 1 do
begin
Memo1.Lines.LoadFromFile(ListBox1.Items.Strings[i]);
pbar.Position := i;
DeleteFile(ListBox1.Items.Strings[i]);

strunicode := widestring(Memo1.Text);

memo2.Text := strunicode;

memo2.Lines.SaveToFile(ListBox1.Items.Strings[i]);;

end;
pbar.Position := 0;
showmessage('ok');

end;

end.