Книга на делфи

[GidroFobia]

а он где?
Скинь подправленный код пожалуйста

[unbanned]

что значит где... посмотри у тебя два обработчика FormCreate
соответственно последний и надо удалить

[GidroFobia]

у меня ругается на строчку

procedure TForm1.lst1Click(Sender: TObject);

[Error] Engine.pas(49): Undeclared identifier: 'lst1Click'

В чём ошибка?

unit Engine;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Image1: TImage;
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
  pos1 = 'text 1';
  pos2 = 'text 2';
  pos3 = 'text 3';

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

  listbox1.Items.add('Îãëàâëåíèå');
  listbox1.Items.add('•1');
  listbox1.Items.add('•2');
  listbox1.Items.add('•3');
end;

procedure TForm1.lst1Click(Sender: TObject);
begin
  wb1.Navigate('file:///D:/text/part' + inttostr(lst1.ItemIndex + 1) + '.txt');
end;

procedure TForm1.;
begin
  lst1.Items.Text := '×àñòü 1' + #13#10 + '×àñòü 2' + #13#10 + '×àñòü 3';
end;

end.

[unbanned]

вы же хоть думайте что удаляете)))

unit Engine;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Image1: TImage;
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
  pos1 = 'text 1';
  pos2 = 'text 2';
  pos3 = 'text 3';

implementation

{$R *.dfm}


procedure TForm1.lst1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('file:///D:/text/part' + inttostr(lst1.ItemIndex + 1) + '.txt');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

  listbox1.Items.add('Оглавление');
  listbox1.Items.add('•1');
  listbox1.Items.add('•2');
  listbox1.Items.add('•3');
  Textout.Font.Style:=Textout.Font.Style+[fsbold];
   textout.Text:='«Будешь читать литературу для «чайников» - станешь «чайником» - программистская мудрость.'+
              ' Моя статья написана для начинающих программистов (НЕ ДЛЯ «ЧАЙНИКОВ»!!!), ее цель – избавить их'+
              ' от долгих бесполезных кликаний мышью по кнопкам, пытаясь «вслепую» создать более-менее удобный'+
              ' инсталлятор для своей программы. Сразу предупреждаю: в статье не будет сложных примеров скриптов,'+
              ' заумных фраз и обилия терминов. Здесь собран только самый необходимый минимум, который сделает процесс написания инсталлятора простым и понятным.';
end;

end.

[GidroFobia]

он ругается на lst1Click в строчке
procedure TForm1.lst1Click(Sender: TObject);

Разобрался почему он ругался на

procedure TForm1.lst1Click(Sender: TObject);

нужно было в type прописать
procedure lst1Click(Sender: TObject);
***************
теперь ругается на lst1 в строчке
WebBrowser1.Navigate('file:///D:/text/part' + inttostr(lst1.ItemIndex + 1) + '.txt');

Помогите пожалуйста

[unbanned]

procedure TForm1.listbox1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('file:///D:/text/part' + inttostr(listbox1.ItemIndex + 1) + '.txt');
end;

не нужно было ничего в type писать...
вы же смотрите как у вас компоненты называются...
у меня lst1 - у вас listbox1 вот отсюда и все ошибки

[GidroFobia]

WebBrowser1.Navigate('file:///D:/text/part' + inttostr(listbox1.ItemIndex + 1) + '.txt');

В чём проблема?

[unbanned]

проблема в том, что в папке D:/text нет файлов, ну или их названия не соответствуют тому что написано в программе

[GidroFobia]

А как прописить 2й файл?

[unbanned]

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