Отнимание типа файла

@dabriones · Регистрация: 16.04.2015

Author24 — интернет-сервис помощи студентам

Не могу понять как отнять и добавить другое правильно:

Delphi

var
filecompile, file_compile:string;
 
{....}
file_compile :=OpenDialog1.Filename;    
filecompile:=file_compile-'.ma'+'.mx';

@volvo · 04.06.2016, 21:41

Это называется "изменить расширение", и делается так:

Pascal

1	filecompile := ChangeFileExt(filecompile, '.mx');

@dabriones · 04.06.2016, 22:11 **[ТС]**

Оно меняет имя на .sma, а самого файла нету!

@volvo · 04.06.2016, 22:14

Если я выбрал файл с именем d:\test\test.ma, то после вышеописанной операции у меня значение filecompile станет равным d:\test\test.mx, это то, что ты пытался сделать в самом первом посте. Что не так опять?

@dabriones · 04.06.2016, 22:50 **[ТС]**

Всё хорошо, спасибо, я ошибся!
А возможно ли сам файл получить без пути?

Добавлено через 6 минут
У меня вот такая длинная строчка получается
/home/system/scbvdcv/skakk/aswfewdf/asfsd/qw/myfile.ma
Как убрать путь /home/system/scbvdcv/skakk/aswfewdf/asfsd/qw/
Или убрать путь где сама программа?

Добавлено через 10 минут
У меня в Edit1.text прописывается путь и файл, как то можно убрать путь, так как файл в папке с программой?

Добавлено через 2 минуты
Почему не минусует?

Delphi

1	filepatch:=ExtractFilePath(Application.ExeName)-filecompile

Добавлено через 1 минуту
И так не выходит:

Delphi

1	filepatch:=GetCurrentDir-filecompile;

Добавлено через 11 минут
Нашел:

Delphi

function ExtractFileNameEx(FileName:string):string;
var
  i:integer;
begin
  i:=Length(FileName);
    if i<>0 then
      begin
        while (FileName[i]<>'\') and (i>0) do
          begin
            i:=i-1;
            Result:=Copy(FileName,i+1,Length(FileName)-i);
          end;
      end;
end;

Для Linux как и мне надо:

Delphi

function ExtractFileNameEx(FileName:string):string;
var
  i:integer;
begin
  i:=Length(FileName);
    if i<>0 then
      begin
        while (FileName[i]<>'/') and (i>0) do
          begin
            i:=i-1;
            Result:=Copy(FileName,i+1,Length(FileName)-i);
          end;
      end;
end;

@dabriones -15 / 1 / 1 Регистрация: 16.04.2015 Сообщений: 395
	04.06.2016, 22:11 [ТС]	3
	Оно меняет имя на .sma, а самого файла нету! 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	04.06.2016, 22:14	4
	Если я выбрал файл с именем `d:\test\test.ma`, то после вышеописанной операции у меня значение filecompile станет равным `d:\test\test.mx`, это то, что ты пытался сделать в самом первом посте. Что не так опять? 0

	04.06.2016, 22:50

Отнимание типа файла

Решение