Выдать сообщение об ошибке

[Detka]

Я тока вчера познакомилась с ListBox'ом, так что не обессудьте ежели вопрос глупый.
Вот в чем суть. В ListBox отображается список тем. Вот так:
ListBox1.Items.LoadFromFile(Extract FilePath(Application.ExeName )+'\Base.txt');
По клику на нужной теме в Мемо1 выгружается текст. Вот так:
memo1.Lines.LoadFromFile('operators \'+ListBox1.Items[ListBox1.itemindex]+'.txt') ;
Вопрос: если в списке из Листбокса есть тема, а самого файла с таким именем нет, надо выдать Showmessage ('Выбранный раздел не существует').

Очень надо и очень срочно. ХЕЛП МИ!!!

[Роман Радер]

при загрузке в мемо нужно написать:

if (fileexists('operators\'+ListBox1.Ite ms[ListBox1.itemindex]+'.txt')) then
begin
memo1.Lines.LoadFromFile('operators\'+ListBox1.Items[ListBox1.itemindex]+'.txt');
end else
begin
Showmessage ('Выбранный раздел не существует');
end;

[Detka]

Спасибки, человек! Большое, просто огромное сенкью!!!!

З.Ы. А не просветишь, что такое fileexists? Так для общего развития.

[BOBAH13]

А Ctrl + клик мышью никак в редакторе ? и вообще можно и так, а можно и блоком исключений для обработки try except end;... Информации в сети куча по данным этим

[Terran]

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

Спасибки, человек! Большое, просто огромное сенкью!!!!

З.Ы. А не просветишь, что такое fileexists? Так для общего развития.

FileExists - Это проверка на наличие указанного файла.

[Detka]

ага, еще б понять что в ответ выдает делфи
Наверное главная моя проблема с Делфи - незнание английского. Стыдно, но что поделать...

А может кто-нить из вас знает как в качестве hint'а в Листбоксе выводить полное имя строки. Ну как в Винде: когда полностью название не видно, оно всплывает как подсказка.

[eoln]

Ставим свойство ShowHint в true и пишем

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  n: integer;
begin
  n := y div listbox1.ItemHeight ;
  if n<=listbox1.Items.Count then
  listbox1.Hint:= listbox1.Items.Strings[n];
end;

[Detka]

Делает хинт как надо, но если переводить курсор с одной строки Листбокса сразу на другую, он мне выдает "List index out of bounds (18)"
Что это значит?

Даже не так. Когда на пустое место в Листбоксе навожу выдает сообщение. Пыталась
if n<=listbox1.Items.Count then
listbox1.Hint:= listbox1.Items.Strings[n]
else listbox1.ShowHint:= false;
не помогло.

[eoln]

Попробуй так

n := y div listbox1.ItemHeight ;
  if n<listbox1.Items.Count then
  listbox1.Hint:= listbox1.Items.Strings[n]
  else listbox1.Hint:= '';

"List index out of bounds (18)" значит что строка не существует, а мы с ней работать хотим

[Ring0Sn]

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

Попробуй так

n := y div listbox1.ItemHeight ;
  if n<listbox1.Items.Count then
  listbox1.Hint:= listbox1.Items.Strings[n]
  else listbox1.Hint:= '';

"List index out of bounds (18)" значит что строка не существует, а мы с ней работать хотим

Во млин математики
для тех кто в танке существет ItemAtPos