/[projects]/dao/DelphiScanner/Components/tpsystools_4.04/examples/Delphi/ExELog1.pas
ViewVC logotype

Contents of /dao/DelphiScanner/Components/tpsystools_4.04/examples/Delphi/ExELog1.pas

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2671 - (show annotations) (download)
Tue Aug 25 18:15:15 2015 UTC (8 years, 9 months ago) by torben
File size: 1660 byte(s)
Added tpsystools component
1 (* ***** BEGIN LICENSE BLOCK *****
2 * Version: MPL 1.1
3 *
4 * The contents of this file are subject to the Mozilla Public License Version
5 * 1.1 (the "License"); you may not use this file except in compliance with
6 * the License. You may obtain a copy of the License at
7 * http://www.mozilla.org/MPL/
8 *
9 * Software distributed under the License is distributed on an "AS IS" basis,
10 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
11 * for the specific language governing rights and limitations under the
12 * License.
13 *
14 * The Original Code is TurboPower SysTools
15 *
16 * The Initial Developer of the Original Code is
17 * TurboPower Software
18 *
19 * Portions created by the Initial Developer are Copyright (C) 1996-2002
20 * the Initial Developer. All Rights Reserved.
21 *
22 * Contributor(s):
23 *
24 * ***** END LICENSE BLOCK ***** *)
25
26 unit ExELog1;
27
28 interface
29
30 uses
31 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
32 StExpEng, StExpLog, StdCtrls, StBase;
33
34 type
35 TForm1 = class(TForm)
36 StExceptionLog1: TStExceptionLog;
37 Button1: TButton;
38 Label1: TLabel;
39 Button2: TButton;
40 procedure Button1Click(Sender: TObject);
41 procedure Button2Click(Sender: TObject);
42 private
43 { Private declarations }
44 public
45 { Public declarations }
46 end;
47
48 var
49 Form1: TForm1;
50
51 implementation
52
53 {$R *.DFM}
54
55 procedure TForm1.Button1Click(Sender: TObject);
56 begin
57 raise Exception.Create('oops');
58 end;
59
60 procedure TForm1.Button2Click(Sender: TObject);
61 var
62 I, J : Integer;
63 begin
64 I := 2;
65 J := 0;
66 Label1.Caption := IntToStr(I div J);
67 end;
68
69 end.

  ViewVC Help
Powered by ViewVC 1.1.20