unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
OpenDialog1: TOpenDialog;
Memo2: TMemo;
Button2: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
x: TextFile;
m,n:string;
i:integer;
begin
// if opendialog1.execute then
// filePath:=opendialog1.FileName;
// showmessage(filepath.text);
// memo1.lines.loadfromfile(filePath);
// edit1.text:=filePath;
// RenameFile('C:\222.txt', 'C:\222.txt');
// CopyFile(PChar('C:\222.txt'), PChar('C:\22234.txt'), true);
// MoveFile('C:\ph\update.exe', 'C:\update.exe');
// DeleteFile('C:\ph\222.txt');
// AssignFile(x, 'C:\3.txt');
//Rewrite(x);//创建文件，或者使用ReSet打开文件
//Writeln(x, edit1.text);
//CloseFile(x);
for i:=0 to memo2.lines.count-1 do
begin
n:=memo2.lines[i];
AssignFile(x,edit1.text+'\'+n);
reset(x);
while not eof(x) do
begin
readln(x,m);
memo1.Lines.add(m);
end;
end;
end;
function Searchfile(path: string): TStringList;
var
SearchRec: TSearchRec;
found: integer;
begin
Result := TStringList.Create;
found := FindFirst(path + '\' + '*.*', faAnyFile, SearchRec);
while found = 0 do
begin
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') and
(SearchRec.Attr <> faDirectory) then
Result.Add(SearchRec.Name);
found := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo2.Lines := Searchfile(edit1.text);
end;
end.
网友评论