F: TextFile; first:string; begin OpenDialog.Options := [ofAllowMultiSelect, ofFileMustExist]; OpenDialog.Filter := 'Text files (*.txt)|*.txt|All files (*.*)|*.*'; OpenDialog.FilterIndex := 2; { start the dialog showing all files } if OpenDialog.Execute then begin for I := 0 to OpenDialog.Files.Count - 1 do begin old:=OpenDialog.Files.Strings[I]; AssignFile(F, OpenDialog.Files.Strings[I]); { next file in Files property } Reset(F); //data processing....... //.................... //.................... CloseFile(F); end;//for end;//if end; old 為檔案的名稱包含完整路徑 如c:\\aaa\bb\cc\123.txt 問題1:如何只取路徑的部份 問題2:如何只取檔名的部份 小妹新手上路，如果問的太白，請大家包含

------
小妹新手上路，如果問的太白痴，請大家包含

1.可用 ExtractFilePath 函式, 例: Edit1.Text := ExtractFilePath('c:\temp\xx.doc'); 2.可用 ExtractFileName 函式 例: Edit1.Text := ExtractFileName('c:\temp\xx.doc');    -- 歡迎光臨 KTop 研究院!