проблемка с opendialog.

[blackstersl]

привет всем. У меня проблема с opendialog: я нажимаю на кнопку, появляется диалог => выбираю несколько файлов, а в listbox1 попадает только первый файл и + весь путь к нему(загружаю музыкальные форматы), а как сделать так чтоб можно было загружать много файлов сразу, и в listbox-e было только название файла. Спасибо.

procedure TForm1.N2Click(Sender: TObject);
var
   s1, s2, s3, s4 : string;
   SearchRec: TSearchRec;
    LpBuf: PChar;
begin
 if not BassPlayer1.PlayerReady then
   begin
      Application.MessageBox('Cannot open file (BassPlayer is not ready)',
                 'Confirm', MB_OK);
      exit;
   end;


 sopendialog1.Filename := '';
 s1 := BassPlayer1.NativeFileExts;
   s2 := BassPlayer1.PluginFileExts;
   sOpenDialog1.Filter:=
    'All supported formats|*.mp3;*.mp2;*.mp1;*.wav;*.ogg;*.mo3;*.it;*.xm;*.s3m;' +
    '*.mtm;*.mod;*.umx;*.wma;*.wm;*.ofr;*.ofs;*.flac;*.wv;*.aac;*.mp4;*.ac3;*.alac;*.ape;*.mpc;*.spx;*.tta';

    sopendialog1.Filter:= sopendialog1.Filter + '|' +
    'MPEG Audio Files (*.mp3;*.mp2;*.mp1)|*.mp3;*.mp2;*.mp1|'+
    'Ogg Vorbis Audio (*.ogg)|*.ogg|'+
    'Microsoft Wave Audio (*.wav)|*.wav|'+
    'MOD Music (*.mo3;*.it;*.xm;*.s3m;*.mtm;*.mod;*.umx)|*.mo3;*.it;*.xm;*.s3m;*.mtm;*.mod;*.umx'+
    '|Windows Media Audio (*.wma;*.wm)|*.wma;*.wm'+
    '|OptimFROG Audio Files (*.ofr;*.ofs)|*.ofr;*.ofs'+
    '|Free Lossless Audio Files (*.flac)|*.flac'+
    '|WavPack Audio Files (*.wv)|*.wv'+
    '|FAAD Audio Files (.aac;*.mp4)|*.aac;*.mp4'+
    '|AC3 Audio Files (*.ac3)|*.ac3'+
    '|Apple Lossless Audio Files (*.alac)|*.alac'+
    '|Monkeys Audio Audio Files (*.ape)|*.ape'+
    '|Musepack Audio Files (*.mpc)|*.mpc'+
    '|Speex Audio Files (*.spx)|*.spx'+
    '|True Audio Files (*.tta)|*.tta';

  if(sopendialog1.Execute) then
listbox1.Items.Add(sopendialog1.FileName);


      begin
         SPS := BassPlayer1.StreamInfo.SampleRate;
          { Clear captions }
  ClearAll;
           end;

[Stilet]

begin
OpenDialog1.Options:=OpenDialog1.Options+[ofAllowMultiSelect];
if OpenDialog1.Execute then begin
 ListBox1.Items:=OpenDialog1.Files;
end;

[blackstersl]

спаибо, но в listbox-e показывается путь к файлу. как єто убрать?

[lexaltd]

ExtractFileName (OpenDialog1.Files)

будет типа такого 'файл.mp3'

Но тебе надо наверно и пути файлов - можно создать TStringList
И в него писать пути ,и индекс ListBox1.Items будет соответствовать индексу TStringList

[Stilet]

lexaltd

Сам то пробовал что написал?

Автор:
Тогда в цикле по OpenDialog1.Files
Выдирая через ExtractFileName имена файла и добавляя их

[blackstersl]

я конечно извеняюсь, но я немного не понял как этот цикл написать

[KORN]

for i:=0 to OpenDialog1.Files.count-1 do
listbox1.items.add(extractfilename(OpenDialog1.Files.strings[i]));

[lexaltd]

Сообщение от Stilet

Сам то пробовал что написал?

Автор:
Тогда в цикле по OpenDialog1.Files
Выдирая через ExtractFileName имена файла и добавляя их

А что циклы отменили ?
Пути то надо всё ровно - предложи другое решение
Можно сделать второй невидимый ListBox2 и в него писать пути

На основании кода KORN

var
  Strig : TStringList;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i : Integer;
begin
 ListBox1.Clear;
 Strig := TStringList.Create;
 OpenDialog1.Options:=OpenDialog1.Options+[ofAllowMultiSelect];
if OpenDialog1.Execute then
begin
  for i:=0 to OpenDialog1.Files.count-1 do
   begin
     ListBox1.Items.Add(extractfilename(OpenDialog1.Files.strings[i]));
     Strig.Add(OpenDialog1.Files.strings[i]);
   end;
end;
end;

У ListBox1.Items[1] будет путь Strig.Strings[1]

[blackstersl]

KORN а теперь в listbox1. добавляется сразу две копии файла:
1. С полным путём к файлу
2. Просто название.

[KORN]

Сообщение от blackstersl

KORN а теперь в listbox1. добавляется сразу две копии файла:
1. С полным путём к файлу
2. Просто название.

это типа ты говоришь что бы я написал код или че7