Jak uruchomić jednym elementem listboxa(albo jednym kliknięciem buttona) dwa zadania

0

Jak uruchomić >>>>jednym elementem <<<< ListBoxa (albo jednym kliknięciem buttona)
jednocześnie dwa zadania:
wyświetlić obraz w Image1 i załadować text do Memo1

Image1.Picture.LoadFromFile('obraz1.bmp');
Memo1.Lines.LoadFromFile('text1.txt');

osobno ok wiem i działa jak poniżej:
------------------------
procedure TForm1.ListBox1Click(Sender: TObject);
begin

Case ListBox1.ItemIndex of
0: Image1.Picture.LoadFromFile('obraz1.bmp');
1: Memo1.Lines.LoadFromFile('text1.txt');
end;
end;

end.

Proszę o jakieś sugestie.

0
0: Begin
 Image1.Picture.LoadFromFile('obraz1.bmp');
 Memo1.Lines.LoadFromFile('text1.txt');
end;

?

0

a teraz schody
bo jest drugi element który robi dokładnie to samo
wyświetla drugi obraz w Image1 i ładuje drugi text do Memo1

1: 
 Image1.Picture.LoadFromFile('obraz2.bmp');
 Memo1.Lines.LoadFromFile('text2.txt');
 end;

nie wiem jak to poskładać(ostatni raz)

0

A nie łatwiej jest zrobić tak:

Image1.Picture.LoadFromFile('obraz'+inttostr(ListBox1.ItemIndex)+'.bmp');
Memo1.Lines.LoadFromFile('text'+inttostr(ListBox1.ItemIndex)+'.txt');

Zamiast case

0

Patryk
serdeczne dzięki.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0