error_frm.pas

自己写的一个 RSS 阅读器

unit Error_Frm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TfmError = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmError: TfmError;
procedure ExecError(ErrorStr:TStrings);
implementation

{$R *.dfm}
procedure ExecError(ErrorStr:TStrings);
var ErrDlg:TfmError;
begin
  ErrDlg := TfmError.Create(Application.MainForm);
  try
    ErrDlg.Memo1.Lines.Clear;
    ErrDlg.Memo1.Lines.AddStrings(ErrorStr);
    ErrDlg.ShowModal;
  finally // wrap up
    ErrDlg.Free;
  end;    // try/finally
end;


procedure TfmError.Button1Click(Sender: TObject);
begin
  Close;
end;

end.