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

[disa512]

имеется на form - ListBox,Memo,Button. цель такая выбираю в лист боксе 1,2,3,4,или 5 нажимаю на кнопку и только тогда выводился текст и картинка.На данный момент я нажимаю на список и он сразу выводит текст в memo и открывает картинку.

procedure TForm1.ListBox1Click(Sender: TObject);
begin

  if (listbox1.ItemIndex = 0) then
Memo1.Lines.LoadFromFile('1\1.txt');
  if (listbox1.ItemIndex = 1) then
Memo1.Lines.LoadFromFile('2\2.txt');
  if (listbox1.ItemIndex = 2) then
Memo1.Lines.LoadFromFile('3\3.txt');
  if (listbox1.ItemIndex = 3) then
Memo1.Lines.LoadFromFile('4\4.txt');
  if (listbox1.ItemIndex = 4) then
Memo1.Lines.LoadFromFile('5\5.txt');

  if (listbox1.ItemIndex = 0) then
ShellExecute (Handle,'open', '1\1.jpg', nil, nil, SW_SHOWNORMAL);
  if (listbox1.ItemIndex = 1) then
ShellExecute (Handle,'open', '2\2.jpg', nil, nil, SW_SHOWNORMAL);
  if (listbox1.ItemIndex = 2) then
ShellExecute (Handle,'open', '3\3.jpg', nil, nil, SW_SHOWNORMAL);
  if (listbox1.ItemIndex = 3) then
ShellExecute (Handle,'open', '4\4.jpg', nil, nil, SW_SHOWNORMAL);
  if (listbox1.ItemIndex = 4) then
ShellExecute (Handle,'open', '5\5.jpg', nil, nil, SW_SHOWNORMAL);
end;

[ReportCube]

А так не пробовали?
if (listbox1.ItemIndex = 0) then begin
Memo1.Lines.LoadFromFile('1\1.txt') ;
ShellExecute (Handle,'open', '1\1.jpg', nil, nil, SW_SHOWNORMAL);
end;

[doktor255]

Код в обработчик Button1Click перемести.

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

А так не пробовали?

А так?

var
s: string;
begin
s:= IntToStr(listbox1.ItemIndex + 1);
Memo1.Lines.LoadFromFile(s + '\' + s + '.txt');
ShellExecute (Handle,'open', PChar(s + '\' + s + '.jpg'), nil, nil, SW_SHOWNORMAL);
 end;

[disa512]

Это мне не подходит. Если я поменяю каталоги 1.2.3.4.5 на названия то у меня не выведет результата

var
i: integer;
begin
 if ListBox1.ItemIndex=-1 then exit;
 i:= ListBox1.ItemIndex+1;
 Memo1.Lines.LoadFromFile(IntToStr(i)+'\' +(IntToStr(i)+'.txt'));
 ShellExecute (Handle,'open',Pchar(IntToStr(i)+'\' +(IntToStr(i)+'.jpg')), nil, nil, SW_SHOWNORMAL);
 end;

и этот тоже не подходит!

var
s: string;
begin
s:= IntToStr(listbox1.ItemIndex + 1);
Memo1.Lines.LoadFromFile(s + '\' + s + '.txt');
ShellExecute (Handle,'open', PChar(s + '\' + s + '.jpg'), nil, nil, SW_SHOWNORMAL);
 end;

Ваши предложения.

[eval]

ужас .

[disa512]

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

ужас .

Скоро научусь. Не когда на форумах не был!!

[eval]

каждый айтем может держать еще объект, при формировании списка закинте туда что надо и не придется писать такой ужас

[doktor255]

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

1.2.3.4.5 на названия то у меня не выведет результата

const
FileNames: Array [0..2] Of String = ('КаталогА/файлБ', 'КаталогБ/ФайлР', КаталогD/Файл23');
var i: integer;
s: string;
begin
ShowMessage(FileNames[ListBox1.ItemIndex]);

Заполни массив нужными путями, и обращайся к ним по индексу. Получишь путь к файлу. Если нужно два пути, соответственно сделай два массива с путями.

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

каждый айтем может держать еще объект, при формировании списка закинте туда что надо и не придется писать такой ужас

Код закидывания будет не менее ужасен.

[disa512]

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

const
FileNames: Array [0..2] Of String = ('КаталогА/файлБ', 'КаталогБ/ФайлР', КаталогD/Файл23');
var i: integer;
s: string;
begin
ShowMessage(FileNames[ListBox1.ItemIndex]);

Заполни массив нужными путями, и обращайся к ним по индексу. Получишь путь к файлу. Если нужно два пути, соответственно сделай два массива с путями.

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

[Stilet]

Ну правильно. Это же пример. В твоем случае его нужно адаптировать под твои нужды
Хотя я бы сделал так:

var p:string;
...
if (listbox1.ItemIndex > -1) then begin
 p:=IntToStr(listbox1.ItemIndex);
 Memo1.Lines.LoadFromFile(p+'\'+p+'.txt') ;
 ShellExecute (Handle,'open', PChar(p+'\'+p+'.jpg'), nil, nil, SW_SHOWNORMAL);
end;

Раз уж твои файлы пронумерованы.