Разделить имя файла
Приведенный ниже пример показывает , как отделить в WINDOWS расширение, имя файла, путь к нему и диск, а также восстановить полное имя файла. procedure TForm1.Button1Click(Sender: TObject);var
s: String;
begin
if FileExists(Edit1.Text) then begin
s := ExpandFileName(Edit1.Text);
ShowMessage('Диск с файлом - ' +
ExtractFileDrive(s) + #10#13 +
'Путь к файлу - ' + ExtractFilePath(s) + #10#13 +
'Директория с файлом - ' + ExtractFileDir(s) + #10#13 +
'Имя файла - ' + ExtractFileName(s) + #10#13 +
'Расширение файла - ' + ExtractFileExt(s) + #10#13 +
'Полное имя файла - ' + s);
end else ShowMessage('Файл ' + Edit1.Text + ' не существует.')
end;
