delphi 怎样获取文件名不带后缀

小写了一个函数，取文件名的。

function GetFileName(str:string):string;

var

i:Integer;

x,y:string;

begin

x:=ExtractFileName(str); //取文件名+扩展名，不包含文件路径

y:=ExtractFileExt(str); //取文件的扩展名

i:=Pos(y,x); //确定扩展名所在位置

if i<>0 then

begin

Result:=Copy(x,0,i-1); //复制文件名，忽略掉后面的扩展名

end

else begin

Result:='';

end;

end;

使用的时候直接这样就行

GetFileName(TIdAttachment(MsgMessagePartsItems[intIndex])Filename)

输出：科比

用控件啊 filelistbox

把它的mask属性设置成 mp3

然后把d:\ 里的文件全部导入到filelistbox里。这样就只能显示mp3格式的文件

最后用 filelistboxitemscount 得到数量

用FindFirst,FindNext,FindClose

procedure SearchFileEx(const Dir, Ext: string; Files: TStrings);

var

Found: TSearchRec;

i: integer;

Dirs: TStrings;

Finished: integer;

StopSearch: Boolean;

begin

StopSearch := False;

Dirs := TStringListCreate;

Finished := FindFirst(Dir + '', 63, Found);

while (Finished = 0) and not (StopSearch) do

begin

if (FoundName <> '') then

begin

if (FoundAttr and faDirectory) = faDirectory then

DirsAdd(Dir + FoundName)

else

if Pos(UpperCase(Ext), UpperCase(FoundName)) > 0 then

FilesAdd(Dir + FoundName);

end;

Finished := FindNext(Found);

end;

FindClose(Found);

if not StopSearch then

for i := 0 to DirsCount - 1 do

SearchFileEx(Dirs[i], Ext, Files);

DirsFree;

end;

3

procedure FindSubDir(DirName: string; FileString: TStrings);

var

searchRec: TsearchRec;

begin

//找出所有下级子目录。

if (FindFirst(DirName + '', faDirectory, SearchRec) = 0) then

begin

if IsValidDir(SearchRec) then

FileStringAdd(DirName + SearchRecName);

while (FindNext(SearchRec) = 0) do

begin

if IsValidDir(SearchRec) then

FileStringAdd(DirName + SearchRecName);

end;

end;

FindClose(SearchRec);

end;

function IsValidDir(SearchRec: TSearchRec): Boolean;

begin

if (SearchRecAttr = 16) and (SearchRecName <> '') and (SearchRecName <> '') then

Result := True

else

Result := False;

end

//读取数据到流

var

ss :TStringStream;

begin

ss := TStringStreamCreate('');

try

IdFTP1Host := 'FTP地址';

IdFTP1Username := '用户名';

IdFTP1Password := '密码';

IdFTP1Connect;

idftp1Get('1txt',ss); //这里用根目录的1txt为例,你在其他目录的话就用IdFTP1ChangeDir

IdFTP1Disconnect;

ShowMessage(ssDataString);

finally

FreeAndNil(ss);

end;

end;

以上就是关于delphi 怎样获取文件名不带后缀全部的内容，包括:delphi 怎样获取文件名不带后缀、delphi如何获取文件夹内的MP3文件数量、delphi从文件夹中获取文件名等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！