Подскажите пожалуйста как бы упростить!

[Blood_ghosT]

Приветствую форумчане? Делается словарь от А до Я!не подскажете как можно упростить и делать по легче данный код!! За ранее спасибо!

procedure TBooks.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
case Node.AbsoluteIndex of
 //1: begin  WebBrowser1.Navigate('C:\Users\жайлибай\Desktop\электронный учебник\А\Автобиография.htm');
  1:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Автобиография.htm');
      end;
  2:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Автор.htm');
      end;
  3:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Автора образ.htm');
      end;
  4: begin
          WebBrowser1.Navigate(ProgramPath+'А\Акмеизм.htm');
      end;
  5:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Акцентный стих.htm');
      end;
  6:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Аллегория.htm');
      end;
  7:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Аллитерация.htm');
      end;
  8: begin
          WebBrowser1.Navigate(ProgramPath+'А\Алогизм.htm');
      end;
  9:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Амфибрахий.htm');
      end;
  10:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Анаграмма.htm');
      end;
  11:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Анакреонтическая поэзия.htm');
      end;
  12: begin
          WebBrowser1.Navigate(ProgramPath+'А\Анапест.htm');
      end;
  13:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Анафора.htm');
      end;
  14:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Андеграунд.htm');
      end;
  15:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Анекдот.htm');
      end;
  16: begin
          WebBrowser1.Navigate(ProgramPath+'А\Аннотация.htm');
      end;
  17:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Аноним.htm');
      end;
  18:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Анонс.htm');
      end;
  19:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Антигерой.htm');
      end;
  20: begin
          WebBrowser1.Navigate(ProgramPath+'А\Антитеза.htm');
      end;
  21:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Антиутопия.htm');
      end;
  22:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Антология.htm');
      end;
  23:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Архаизм.htm');
      end;
  24: begin
          WebBrowser1.Navigate(ProgramPath+'А\Архетип.htm');
      end;
  25:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Архитектоника.htm');
      end;
  26:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Ассонанс.htm');
      end;
  27:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Ассоциативный образ.htm');
      end;
  28: begin
          WebBrowser1.Navigate(ProgramPath+'А\Атрибуция.htm');
      end;
  29:  begin
          WebBrowser1.Navigate(ProgramPath+'А\Афоризм.htm');
      end;
  31:  begin
          WebBrowser1.Navigate(ProgramPath+'Б\Баллада.htm');
      end;
  32:  begin
          WebBrowser1.Navigate(ProgramPath+'Б\Барокко.htm');
      end;
  33: begin
          WebBrowser1.Navigate(ProgramPath+'Б\Басня.htm');
      end;
end;
end;

[Slym]

1. массив

const
  url:array[1..33] of string=('А\Автобиография.htm',...);
procedure TBooks.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
   WebBrowser1.Navigate(ProgramPath+url[Node.AbsoluteIndex]);
end;

2. файл + TStringList;

procedure TBooks.TreeView1Change(Sender: TObject; Node: TTreeNode);
var url:TStringList;
begin
  url:=TStringList.Create;
  try
    url.LoadFromFile(ProgramPath+'urls.txt');
    WebBrowser1.Navigate(ProgramPath+url[Node.AbsoluteIndex]);
  finally
    url.Free;
  end;
end;

не забываем про проверки диапазонов

[type_Oleg]

Вот так, например

procedure TBooks.TreeView1Change(Sender: TObject; Node: TTreeNode);
const NAZWAN:array[1..33]of string=('А\Автобиография.htm','А\Автор.htm',   и т.д. );
begin
  WebBrowser1.Navigate(ProgramPath+NAZWAN[Node.AbsoluteIndex]);
end;

А можно не константный массив, а загружать из файла.

PS Кстати, зачем у вас куча этихbegin .. end, вокруг единственного оператора ?

[Blood_ghosT]

всем спасибо!

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

загружать из файла.

А на примере автобиографии не покажете?
и bеgin и end не знаю!Работает и ладно! Тоже думал про файл? так как очень много файлов открывать! и была проблема к присваиванию к подузлам хтмл файлов решил так сделать как сделал!

[Blood_ghosT]

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

1. массив

const
  url:array[1..33] of string=('А\Автобиография.htm',...);
procedure TBooks.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
   WebBrowser1.Navigate(ProgramPath+url[Node.AbsoluteIndex]);
end;

2. файл + TStringList;

procedure TBooks.TreeView1Change(Sender: TObject; Node: TTreeNode);
var url:TStringList;
begin
  url:=TStringList.Create;
  try
    url.LoadFromFile(ProgramPath+'urls.txt');
    WebBrowser1.Navigate(ProgramPath+url[Node.AbsoluteIndex]);
  finally
    url.Free;
  end;
end;

не забываем про проверки диапазонов

через массив тоже отличная идея но программно все равно большой код! так как от а до я и не везде 2-5 хтмл файла бывает и больше! все равно придется прописывать каждую букву и каждое определение!да? понятно!
Спасибо!

[type_Oleg]

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

.. и bеgin и end не знаю!Работает и ладно!

bеgin и end - это операторные скобки, применяются когда вместо 1 оператора надо вставить 2,3 и более.
А в вашем случае получается что-то вроде
(2)+(3)-(1), когда можно просто
2+3-1

[Blood_ghosT]

а не подскажите как правильно установить urls в txt!
1:А\Автобиография.htm'
2:А\Автор.htm'

так или как то по другому!??

[Человек_Борща]

Что за идея с массивами?
Хранить в Node.Data указатель на некий TBookPageInfo где есть ссылка на страницу, не?