ListBox

[Rahim1993]

Привет всем! Я хотел спросить как сделать так чтобы
в ListBox1 показывал точное имя файла? Например пищу вот такой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute
then
begin
ListBox1.Items.AddObject(OpenDialog 1.FileName, OpenDialog1.Files)
end;
end;

ListBox показывает вот так: "F:\Новая папка\Света\Америка.mp3"

а нужно вот так: "Америка".

[Карась]

http://delphibasics.ru/ExtractFilePath.php

var
  fullFileName : string;

begin
  // Установка полного имени файла с диском и путем
  fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';

  // Показ составляющих частей этого полного имени
  ShowMessage('Диск       = '+ExtractFileDrive (fullFileName));
  ShowMessage('Каталог    = '+ExtractFileDir   (fullFileName));
  ShowMessage('Путь       = '+ExtractFilePath  (fullFileName));
  ShowMessage('Имя        = '+ExtractFileName  (fullFileName));
  ShowMessage('Расширение = '+ExtractFileExt   (fullFileName));
end;
 

Диск = C:
Каталог = C:\Program Files\Borland\Delphi7\Projects
Путь = C:\Program Files\Borland\Delphi7\Projects\
Имя = Unit1.dcu
Расширение = .dcu

АДД: немного не то.....Но как вариант это тупо найти последний слешь и удалить всё что до нево...

АДД: Хотя то. Просто пишешь свой путь и всё определяется..

[Johnny]

procedure TForm1.Button1Click(Sender: TObject);
var
  name: string;
  l: integer;
begin
  if OpenDialog1.Execute then
    name:= ExtractFileName(OpenDialog1.FileName);
  l:= pos(ExtractFileExt(OpenDialog1.FileName), ExtractFileName(OpenDialog1.FileName));
  name:= copy(name,1,l-1);
  listBox1.Items.Add(name);
end;

[Rahim1993]

Johnny, спасибо большое. Тема закрыта