home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hot Shareware 32
/
hot34.iso
/
ficheros
/
9ZIP
/
TSUZDLL.ZIP
/
EXAM3
/
REPORT.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1998-01-13
|
697b
|
40 lines
unit Report;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls;
type
TFreport = class(TForm)
Button1: TButton;
Button2: TButton;
RichEdit1: TRichEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Freport: TFreport;
implementation
{$R *.DFM}
procedure TFreport.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TFreport.Button2Click(Sender: TObject);
begin
RichEdit1.Print('Fast Unzip report ' + DateTimeToStr(Now));
end;
end.