Получить расширение файла

[Бутаков_Сергей]

Пусть дан адрес по которому размещается файл: C:\WINDOWS\Win\A5CD.exe
Надо вырезать расширение файла, начиная отслеживать положение точки с конца строки.
Вот так делал я, но что то не получилось :

const
     a: string = 'Hello!';
var
     i: integer;
     x: string;
begin
  for i:= Length(a) downto 1 do begin
       x:= Copy(a, i , 1);
  end;
End.

Но в этом фрагменте кода, я просто учился как взять один символ с конца строки, а Delphi берет его почему то с начала строки.

Помогите разобраться как это можно реализовать.

[Вавел из ГМТУ]

ExtractFileExt(...) - вырезает из пути файла его расширение.

x := '';
for i:= Length(a) downto 1 do begin
If a[i] = '.' Then Break;
x:= x + a[i];
end;

[russian-stalker]

Есть же стандартная функция:
extractfileExt
Можно ещё так:

function ExtractFormat(const PathorFileName: string): string;
  var
    i: Integer;
  begin
    i := LastDelimiter('.', PathorFileName);
   Result := Copy(PathorFileName, i + 1, Length(PathorFileName) - (i));
end;

[Lime]

Сообщение от Бутаков_Сергей

Пусть дан адрес по которому размещается файл: C:\WINDOWS\Win\A5CD.exe
Надо вырезать расширение файла, начиная отслеживать положение точки с конца строки.
Вот так делал я, но что то не получилось :

const
a: string = 'Hello!';
var
i: integer;
x: string;
begin
for i:= Length(a) downto 1 do begin
x:= Copy(a, i , 1);
end;
End.
Но в этом фрагменте кода, я просто учился как взять один символ с конца строки, а Delphi берет его почему то с начала строки.

Помогите разобраться как это можно реализовать.

Всё правильно берёт делфи , просто цикл из конца в начало , и последний проход цикла возьмёт первый элемент строки

[Бутаков_Сергей]

Всем большое спасибо. Но не могли бы вы меня подтолкнуть на правильную мысль моего кода, я хочу понять как начать читать из конца строки с помощью цикла...

[Пепел Феникса]

если нужно читать до опред символа, то лучше через while

[Бутаков_Сергей]

если нужно читать до опред символа, то лучше через while

А если имя файла будет A.DH.exe, то while здесь не помощник, здесь однозначно нужно считывать с конца строки

[GenniY]

Пользуйся тем, что уже есть.
Возьми спец. функцию ExtractFileExt().

[Пепел Феникса]

Сообщение от Бутаков_Сергей

А если имя файла будет A.DH.exe, то while здесь не помощник,

почему не помощник?
расширение это последняя точка и после нее
то есть тут .exe расширение
A.DH имя.

если правильно сделать условие то все четко будет

здесь однозначно нужно считывать с конца строки

дык читайте пока точку не найдете, пример показать?

[Бутаков_Сергей]

Было бы не плохо, если вы покажите пример