Имя файла и его присвоение форме

[Леха207]

Вопрос такой. Как Form1.Caption присвоить имя открываемого в ней файла? Конструкция Form.Caption:=OpenDialog.FileName выводит не только имя фала, но и его путь и расширение, что неприемлемо. Хотел сделать это перебором символов строки и выискиванием по . и / имя файла, но Делфи ругается на
for i:=length(OpenDialog.FileName) downto 0 do
Что не так? Ли может есть более рациональный способ?

[zetrix]

Конечно есть

Form.Caption:=ExtractFileName(OpenD ialog.FileName);

[Jeni]

Сообщение от Леха207

for i:=length(OpenDialog.FileName) downto 0 do
Что не так? Ли может есть более рациональный способ?

Более рациональный способ есть практически всегда!
Если нужно имя файла с расширением (но без пути), то можно так.
Form.Caption:=ExtractFileName(OpenD ialog.FileName);

Если нужно просто имя (без расширения и без пути), то в дополнение к ExtractFileName(OpenDialog.FileName ) использовать функцию ExtractFileExt(OpenDialog.FileName) , которая возвращает расширение файла (вместе с точкой, т.е. например ".txt"). Из первой строки "вычесть" вторую и получится просто имя файла. Для "вычитания" можно использовать или функцию Copy или процедуру SetLength:

var
  S: string;
begin
  S := ExtractFileName(Application.ExeName);
  SetLength(S, Length(S) - Length(ExtractFileExt(Application.ExeName)));
  Caption := S;