怎么取opendialog1.filename的文件名? 如:opendialog1.filename:='c:\data\ddd.txt'我要取结果'ddd'

Question

opendlg.Files.name 再自己处理一下吧

Answer 1

tmpfilename := extractFilename(OpenDialog1.filename);
delete(tmpfilename,Pos(tmpfilename,'.',1000);

Answer 2

tmpfile := extractfilename(opendialog1.filename);
delete(tmpfile,Pos(tmpfile,'.'),1000);

Answer 3

var
 x:string;
 y:integer;
implementation
........
procedure TForm1.Button1Click(Sender: TObject);
begin
        opendialog1.Execute;
        x:= ExtractFilename(opendialog1.filename);
        y:= length(x);     
        edit1.text:=copy(x,1,y-4);end;