Поиск файлов и загрузка из ListBox'a

[waka2ebawer]

программа простая загружает из listBox'a файлы и распределяет по кнопкам,
20 кнопок и 20 файлов
вот пример

fullName1:=ListBox1.Items.Strings[0];
Button1.Caption:=ExtractFileName(fullName1)+' Play';
fullName2:=ListBox1.Items.Strings[1];
Button2.Caption:=ExtractFileName(fullName2)+' Play';
fullName3:=ListBox1.Items.Strings[2];

идет по Items.String[номер строки]
и так прописано 20 раз, знаю что быдлокод
но что делать если файлов не 20 а 15, то пишет ошибку, что в listBox'e не найдена строка например 16,17,18 и т.д. так как загружено только 15 строк
так как сделать поиск по файлам и загружать столько сколько есть
типо for i:=0 to 20 do сколько там файлов есть столько и будет загружать

[veniside]

var
  i: Integer;
  B: TButton;
begin
  for i := 0 to ListBox1.Items.Count - 1 do begin
    //
    B := FindComponent('Button' + IntToStr(i)) as TButton;
    if (nil <> B) then
      B.Caption := ExtractFileName(ListBox1.Items[i]) + ' Play';
  end;
end;

[Serge_Bliznykov]

veniside +1

маленькая помарочка, позволю себе поправить...
кнопки у TC нумеруются от единицы (Button1, Button2 и т.д.)
поэтому, лучше так:

    B := FindComponent('Button' + IntToStr(i+1)) as TButton;

[veniside]

> поэтому, лучше так:

а, точно, промазал с индексом.

(з.ы. интересно, что заставило создателей Дельфи нумеровать компоненты с 1, а не с 0? Точнее, понятно что, так было в Visual Basic, с которого первая Дельфи взяла основы. Ну а почему в бейсике с 1, это тоже понятно, домохозяйки не осилят нумерацию с 0. От і маємо що маємо.. ошибку на ровном месте ))

[waka2ebawer]

fullname: array[1..20] of string;

пишет ошибку
может of string = (mp1,mp2,mp3...) глупая идея загружать

а все добавил не в const а в var

var
  i: Integer;
  B: TButton;
    fullname: array[1..20]  of string;
begin
  for i := 0 to ListBox1.Items.Count - 1 do begin
    //
    B := FindComponent('Button' + IntToStr(i+1)) as TButton;
     if (nil <> B) then
     begin
     fullname[i + 1] := ListBox1.Items[i];
     B.Caption := ExtractFileName(fullname[i+1]) + ' Play';
     end;
    end;
  end;

но все равно выдает ошибку не удается определить устройство по указанному расширению

а зачем fullname[i+1] ведь исчисление от 1 идет , это же не цикл он не перебирает же или как

ну это только одна кнопка а таких 20

procedure TForm1.Button1Click(Sender: TObject);
begin
   if Button1.Tag=0 then
      begin
         Button1.Tag:=1;
         Button1.Caption:=ExtractFileName(fullName1)+' Stop';
         mp1.FileName:=fullName1;
         mp1.Open;
         mp1.Play;
      end
else begin
         Button1.Tag:=0;
         Button1.Caption:=ExtractFileName(fullName1)+' Play';
         mp1.Stop;
      end;
end;

на mp1.play пишет ошибку

[ReportCube]

А что будет, если файлов будет больше двадцати?

[Stilet]

пишет ошибку

Буквами невидимками на прозрачной канве?

[waka2ebawer]

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

Буквами невидимками на прозрачной канве?

не удается определить устройство по указанному расширению
и выделяет mp1.play

[waka2ebawer]

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

А что будет, если файлов будет больше двадцати?

ну 20 нормально хватает, а если больше то просто игнорироваться будут

[ReportCube]

Тогда совершенно непонятны эти проблемы. Если ListBox1.Items.Objects[n] будет ссылаться ну нужную кнопку, то не требуется никакого поиска - всегда знаете, что показывать и что с чем связано. Если требуется обратная связь от кнопки к ListBox1.Items[n], храните номер индекса в TButton.Tag