unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
Memo1: TMemo;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function searchfile(path:string):TStringList;
var SearchRec:TSearchRec;
found:integer;
list:TStringList;
begin
list:=TStringList.Create;
found:=FindFirst(path+'\*.*',faAnyFile,SearchRec);
while found=0 do
begin
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') and (SearchRec.Attr<>faDirectory)
then List.Add(SearchRec.Name);
found:=FindNext(SearchRec);
end;
FindClose(SearchRec);
searchfile:=list;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines:=searchfile(Edit1.Text);
end;
end.
這個代碼實作的功：能目錄錄入Edit1.Text中。搜索的檔案，存入Memo1
現在要實作：那如果 Memo1控制元件中輸出出來的是同名檔案 （同名檔案樣本：wenjian.rtf wenjian.txt） 無所謂什么型別 那該改些什么
uj5u.com熱心網友回復：
怎么又來了，此類問題，提出頭十個了。uj5u.com熱心網友回復：
能幫我改下嗎uj5u.com熱心網友回復：
兄弟能幫我改下嗎轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/91746.html
標籤：語言基礎/算法/系統設計