[ALexandr555]

вот мы добавляем аудио файл в лист бокс

Код:

procedure TfrmMyBrowser.SpeedButton1Click(Sender: TObject);
begin
  OpenDialog2.FilterIndex:=1;
  if(OpenDialog2.Execute) then ListBox1.Items.Add(OpenDialog2.FileName);
end;

вот только там добавляется так же путь к нему а как сделать чтобы только название?

[v1s2222]

http://www.delphisources.ru/pages/fa...file_name.html

[Gman]

Можно так:

Код:

.........
var put:string;
.........
put:=OpenDialog1.FileName;
ListBox1.Items.Add(ExtractFileName(Put));

[ryderx34]

если убрать путь, то чтобы потом работать с файлом его придётся снова добавлять, а это лишние сложности
вот вариант как сделать, чтобы в Items хранились полные пути, но выводились только имена
установи ListBox1.Style в lbOwnerDrawFixed или lbOwnerDrawVariable
в OnDrawItem пиши:

Код:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with ListBox1.Canvas do
  begin
    FillRect(Rect);
    TextOut(Rect.Left,Rect.Top,ExtractFileName(ListBox1.Items[Index]));
  end;
end;