77 lines
1.9 KiB
Plaintext
77 lines
1.9 KiB
Plaintext
unit ProgStatsDlgUnit;
|
|
{-------------------------------------------------------------------------------
|
|
Program Statistics Dialog
|
|
-------------------------
|
|
show program statistics
|
|
|
|
---------------------------------------------
|
|
reSource v2.6
|
|
Copyright (C) 1998-2001 Victor Kasenda / gruv
|
|
http://go.to/gruv
|
|
email: vickas@singnet.com.sg
|
|
---------------------------------------------
|
|
|
|
Use:
|
|
To check if memory is enough, or if we are out of memory.
|
|
To help in debugging if the user reports a bug to the developer.
|
|
-------------------------------------------------------------------------------}
|
|
|
|
|
|
(**) interface (**)
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
StdCtrls, ComCtrls;
|
|
|
|
type
|
|
TProgStatsDlg = class(TForm)
|
|
RichEdit: TRichEdit;
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
ProgStatsDlg: TProgStatsDlg;
|
|
|
|
(**) implementation (**)
|
|
uses Main, StructsUnit;
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TProgStatsDlg.FormShow(Sender: TObject);
|
|
var
|
|
HeapStatus: THeapStatus;
|
|
begin
|
|
CentreFormToMain(Self);
|
|
|
|
// fill in the program stats richedit
|
|
HeapStatus := GetHeapStatus;
|
|
with RichEdit.Lines, RichEdit, HeapStatus do
|
|
begin
|
|
Clear;
|
|
Add('reSource ' + reSourceVerStr);
|
|
Add('Burrows Wheeler Transformation (BWT) Compressor');
|
|
Add(reSourceCopyrightStr);
|
|
Add('');
|
|
Add('Engine:');
|
|
Add('Block Size = ' + IntToStr(BlockSize));
|
|
Add('');
|
|
Add('Program:');
|
|
Add('rs Total Allocated = ' + IntToStr(TotalAllocated));
|
|
Add('Heap manager overhead = ' + IntToStr(Overhead));
|
|
Add('');
|
|
Add('System:');
|
|
Add('Win Total Address Space = ' + IntToStr(TotalAddrSpace));
|
|
Add('Win Total Uncommitted = ' + IntToStr(TotalUncommitted));
|
|
SelStart := 0;
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
end.
|