Текст не сохраняется после открытия через OpenDialog

[Кинельски]

Вообще у меня два вопроса:
1- Пишу приложение , но не получается сохранить текст и прочитать его,
загружаемый при создании формы текст прекрасно сохраняется, а вот если открыть файл с использованием OpenDialog, то он уже не хочет сохраняться.
Подскажите что нужно дописать?

[eduard93]

Всегда используйте полные пути к файлам:

sm1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'shablon.html');

[Кинельски]

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

Всегда используйте полные пути к файлам:

sm1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'shablon.html');

Здесь Вы открываете фаил, который не изменяется в процессе работы программы, а мне нужно открыть index.html, но прежде мы в sm1 (SynMemo) загружаем файл из другой папки через op1 (OpenDialog), после чего нажимаем на вкладку "Просмотр IE" , при этом у нас данные из sm1 (SynMemo) должны сохраниться в файл "index.html", после 'этого этот файл открывается в WB1 (EmbeddedWebBrowser). Файл через op1 (OpenDialog) загружается , но не хочет сохраняться с помощью кода:

sm1.Lines.SaveToFile('index.html');

[Кинельски]

Вот код кратко :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB,
  SynEditHighlighter, SynHighlighterHtml, SynEdit, SynMemo, ComCtrls,
  StdCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    tc1: TTabControl;
    op1: TOpenDialog;
    MainMenu1: TMainMenu;
    OTKRIT1: TMenuItem;
    wb1: TWebBrowser;
    memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure tc1Change(Sender: TObject);
    procedure OTKRIT1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
with tc1 do
begin
memo1.Visible:=tabindex=0;
wb1.Visible:=tabindex=1;
end;
end;

procedure TForm1.tc1Change(Sender: TObject);
begin
with tc1 do
begin
memo1.Visible:=tabindex=0;
wb1.Visible:=tabindex=1;
end;
memo1.Lines.SaveToFile('index.html');////не сохраняет
wb1.Navigate(ExtractFilePath(Application.ExeName)+'index.html');
end;

procedure TForm1.OTKRIT1Click(Sender: TObject);
begin
with op1 do
begin
if op1.Execute then
begin
memo1.Lines.LoadFromFile(filename);
end;
end;
end;

end.

[eduard93]

Я так и не понял, куда ваш файл должен сохранятся, а куда не должен. В любом случае вызов OpenDialog меняет текущую директорию, так что ищите новые файлы в папке с последним открытым через диалог файлом. Причем это при условии что в папку разрешена запись.

[Кинельски]

Спасибо, сделал заработало:-)