xmltypedetails.pas

来自「odac for oralce 8i,10g,11g easy to conn」· PAS 代码 · 共 48 行

unit XMLTypeDetails;

interface

uses
{$IFNDEF LINUX}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;
{$ELSE}
  SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls,
  QDBCtrls, QButtons;
{$ENDIF}

type
  TXMLDetailsForm = class(TForm)
    BitBtn1: TBitBtn;
    Memo1: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Execute(Caption, Text: string);
  end;

var
  XMLDetailsForm: TXMLDetailsForm;

implementation

{$IFDEF CLR}
{$R *.nfm}
{$ENDIF}
{$IFDEF WIN32}
{$R *.dfm}
{$ENDIF}
{$IFDEF LINUX}
{$R *.xfm}
{$ENDIF}

procedure TXMLDetailsForm.Execute(Caption, Text: string);
begin
  Self.Caption := Caption;
  Memo1.Lines.Text := Text;
  ShowModal;
end;

end.