[Jaroslav285]

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

Пример:

Код:

procedure TForm2.Button1Click(Sender: TObject);
begin
  If OpenDialog1.Execute Then
    Begin
      XMLDocument1.Active := true;
      XMLDocument1.FileName := OpenDialog1.FileName;
      Memo1.Text:=XMLDocument1.xml.Text ;
      XMLDocument1.Active := false;
    End;
end;

SynEdit здесь: http://sourceforge.net/apps/mediawik...Edit_Home_Page
Он в сырцах, так что должно и так все встать.

Спасибо,все получается,подсветка работает,есть пара вопросов:почему файл через диалог FileDialog открывается только с второго раза и для SaveDialog вообще не сохраняет,я думаю что надо как то описать тип файлов или что-то еще,но не знаю как ето сделать...

прилагаю Код:

Код:

procedure TForm2.Button2Click(Sender: TObject);
begin
If SaveDialog1.Execute Then
    Begin
      XMLDocument1.Active := true;
      XMLDocument1.FileName := SaveDialog1.FileName;
      SynMemo1.Text:=XMLDocument1.xml.Text ;
      XMLDocument1.Active := false;
    End;

end;


 procedure TForm2.Button3Click(Sender: TObject);
begin
  If OpenDialog1.Execute Then
    Begin
      XMLDocument1.Active := true;
      XMLDocument1.FileName := OpenDialog1.FileName;
      SynMemo1.Text:=XMLDocument1.xml.Text ;
      XMLDocument1.Active := false;
    End;
end;