электронный учебник Delphi

[DikeeeY]

Здравствуйте помогите пожалуйста разобраться с кодом для вывода с тестового документа в мемо

procedure TForm10.mmo1Change(Sender: TObject);
var
  f  : TextFile;
  st : String;
  I  : Integer;
  begin
  AssignFile(f, 'Tema8.txt');
  Reset(f);
  while not eof(f) do
  begin
    ReadLn(f, st);
    mmo1.text :=st;
    ReadLn(f, I);
  end;
  CloseFile(f);

end;

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

[Stilet]

procedure TForm10.mmo1Change(Sender: TObject);
begin
  mmo1.Lines.LoadFromfile(ExtractFilePath(ParamStr(0))+'Tema8.txt');
end;

Файл ложи возле єкзешника. Остальное не требуется.

[min@y™]

ой, не надо в OnChange!
и, таки да:

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

[Stilet]

не надо в OnChange!

А, кстати да. Это я не увидел. Автору: Действительно лучше перенеси этот код в какую-нибудь кнопку в OnClick

[DikeeeY]

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

А, кстати да. Это я не увидел. Автору: Действительно лучше перенеси этот код в какую-нибудь кнопку в OnClick

все спасибо большое все работает разобрался