нужна помощь с процедурой для listBox в borland delphi 7

[doktor255]

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

он мне выводит сообщение!1/1 ...2/2 и т.д.

Массив заполни адресами, которые тебе нужны, и будет тебе счастье. А если не будет указывай точнее в чём трабл. Мы не экстрасенсы.

[disa512]

я пишу точный адрес он мне все ровно выводит сообщение и в сообщении показывает этот адрес

[Stilet]

он мне все ровно выводит сообщение и в сообщении показывает этот адрес

Мой пример пробовал(а)?

[disa512]

да пробовал работает. тоже чучуть не так

[Stilet]

Значит задача решена? )

[disa512]

когда про номировано работает

щас еще одна проблема вместо лист бокса использую чек листбокс

procedure TForm1.Button1Click(Sender: TObject);
      begin
 if (CheckListBox1.ItemIndex = 0) then
ShellExecute (Handle,'open', 'divan\divan.jpg', nil, nil, SW_SHOWNORMAL);
  if (CheckListBox1.ItemIndex = 1) then
ShellExecute (Handle,'open', 'dom\dom.jpg', nil, nil, SW_SHOWNORMAL);
  if (CheckListBox1.ItemIndex = 2) then
ShellExecute (Handle,'open', 'more\more.jpg', nil, nil, SW_SHOWNORMAL);
end;

и надо чтоб сколько выбрал столько и отрывал

[doktor255]

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

я пишу точный адрес он мне все ровно выводит сообщение и в сообщении показывает этот адрес

Ты по ходу вообще программировать не умеешь? Естественно будет выводиться на экран сообщение, оператор ShowMessage, это что по твоему? Это был пример чтоб ты научился(ась) работать с массивами, но видимо не судьба. Разжёвываю и кладу тебе в рот.

const
TxtFiles: Array [0..2] Of String = ('КаталогА/файлБ.txt', 'КаталогБ/ФайлР.txt', КаталогD/Файл23.txt');
JpegFiles: Array [0..2] Of String = ('КаталогВ/файлК.jpeg', 'КаталогО/ФайлГ.jpeg', КаталогD2/Файл2.jpeg');
begin
if ListBox1.ItemIndex = -1 then Exit;
Memo1.Lines.LoadFromFile(TxtFiles[ListBox1.ItemIndex]);
ShellExecute (Handle,'open',Pchar(JpegFiles[ListBox1.ItemIndex])), nil, nil, SW_SHOWNORMAL);

Заполняешь массивы путями, задаёшь размерность массивов ([0..2], 3, 4...) и всё!

[Stilet]

Попробую на живом примере показать:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, CheckLst,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    CheckListBox1: TCheckListBox;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
// Заранее предусмотренный массив
const a:array[1..3] of string=('divan\divan.jpg','dom\dom.jpg','more\more.jpg');
var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 // Наполняем листбокс из заранее предусмотренного массива
 for i:=Low(a) to high(a) do
  CheckListBox1.Items.Append(a[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 //Проверяем, если данные прочеканы - запускаем
 for i:=Low(a) to high(a) do
  if CheckListBox1.Checked[i] then
   ShellExecute (Handle,'open',PChar(a[i]), nil, nil, SW_SHOWNORMAL);

end;

end.

Изьян этого примера только в том что данные в массиве и чекбоксе идентичны, но я его даю чтоб показать общий случай привязки данных к компоненнтам, ибо на его основе легко сделать так чтоб в списке показывалось пояснение к тому что будет запускаться. Но это уже другая история.
Разберись с этим примером и попробуй.