用Delphi10 写一个markdown 编辑器

Delphi 10 中可以使用 TWebBrowser 组件来实现 Markdown 编辑器的基本功能。下面是一个简单的示例代码：

1. 创建一个新的 Delphi 项目。
2. 在主窗口上放置一个 TWebBrowser 组件，设置其 Align 属性为 alClient。
3. 在主窗口上放置一个 TToolBar 组件，设置其 Align 属性为 alTop。
4. 在 TToolBar 上放置一些按钮，例如 New、Open、Save、Bold、Italic、Link 等，设置它们的 OnClick 事件。
5. 在主窗口的 OnCreate 事件中加载一个空白的 Markdown 文件。

下面是示例代码：

unit MainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.OleCtrls, SHDocVw;

type
  TMainForm = class(TForm)
    ToolBar1: TToolBar;
    NewButton: TToolButton;
    OpenButton: TToolButton;
    SaveButton: TToolButton;
    BoldButton: TToolButton;
    ItalicButton: TToolButton;
    LinkButton: TToolButton;
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
    procedure NewButtonClick(Sender: TObject);
    procedure OpenButtonClick(Sender: TObject);
    procedure SaveButtonClick(Sender: TObject);
    procedure BoldButtonClick(Sender: TObject);
    procedure ItalicButtonClick(Sender: TObject);
    procedure LinkButtonClick(Sender: TObject);
  private
    { Private declarations }
    FFileName: string;
    function GetEditorContent: string;
    procedure SetEditorContent(const Value: string);
  public
    { Public declarations }
    property EditorContent: string read GetEditorContent write SetEditorContent;
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  FFileName := '';
  EditorContent := '';
end;

procedure TMainForm.NewButtonClick(Sender: TObject);
begin
  FFileName := '';
  EditorContent := '';
end;

procedure TMainForm.OpenButtonClick(Sender: TObject);
var
  OpenDialog: TOpenDialog;
begin
  OpenDialog := TOpenDialog.Create(nil);
  try
    OpenDialog.Filter := 'Markdown Files (*.md)|*.md|All Files (*.*)|*.*';
    if OpenDialog.Execute then
    begin
      FFileName := OpenDialog.FileName;
      EditorContent := TFile.ReadAllText(FFileName);
    end;
  finally
    OpenDialog.Free;
  end;
end;

procedure TMainForm.SaveButtonClick(Sender: TObject);
begin
  if FFileName = '' then
  begin
    if SaveDialog.Execute then
      FFileName := SaveDialog.FileName
    else
      Exit;
  end;
  TFile.WriteAllText(FFileName, EditorContent);
end;

procedure TMainForm.BoldButtonClick(Sender: TObject);
begin
  WebBrowser1.OleObject.Document.execCommand('Bold', False, Null);
end;

procedure TMainForm.ItalicButtonClick(Sender: TObject);
begin
  WebBrowser1.OleObject.Document.execCommand('Italic', False, Null);
end;

procedure TMainForm.LinkButtonClick(Sender: TObject);
var
  LinkURL: string;
begin
  LinkURL := InputBox('Insert Link', 'Enter the URL:', '');
  WebBrowser1.OleObject.Document.execCommand('CreateLink', False, LinkURL);
end;

function TMainForm.GetEditorContent: string;
begin
  Result := WebBrowser1.OleObject.Document.Body.InnerHtml;
end;

procedure TMainForm.SetEditorContent(const Value: string);
begin
  WebBrowser1.OleObject.Document.Body.InnerHtml := Value;
end;

end.

在代码中使用了 TFile 类来读写文件，所以需要添加 System.IOUtils 单元。同时，还需要在项目选项中启用“Use MSHTML for HTML editing”选项，否则可能会出现一些问题。

这只是一个简单的示例，还可以添加更多的功能，例如预览、代码高亮、表格等，可以使用开源的 Markdown 库来实现。