ustresstest.dfm

Delphi/BCB 各种版本都支持的Excel 读写控件.一成功应用在N个项目中 .

object FStressTest: TFStressTest
  Left = 168
  Top = 118
  Width = 381
  Height = 209
  Caption = 'Stress Test'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object BtnBegin: TButton
    Left = 135
    Top = 113
    Width = 105
    Height = 25
    Anchors = [akBottom]
    Caption = 'Begin Test'
    TabOrder = 0
    OnClick = BtnBeginClick
  end
  object Memo1: TMemo
    Left = 16
    Top = 16
    Width = 340
    Height = 73
    Anchors = [akLeft, akTop, akRight, akBottom]
    Lines.Strings = (
      
        'This is a stress test for the Excel String Table. It adds a big ' +
        'number of '
      
        'unique strings to an excel sheet, to know when flexcel runs out ' +
        'of '
      'memory')
    TabOrder = 1
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 163
    Width = 373
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object Report: TFlexCelReportNoDB
    Template = 'StressTest.xls'
    AutoClose = False
    Adapter = XLSAdapter
    DateTimeFormat = 'mm/dd/yyyy hh:mm'
    DataModule = Owner
    Left = 8
    Top = 88
  end
  object Data: TFlxMemTable
    Columns = <
      item
        Name = 'a0'
      end
      item
        Name = 'a1'
      end
      item
        Name = 'a2'
      end
      item
        Name = 'a3'
      end
      item
        Name = 'a4'
      end
      item
        Name = 'a5'
      end
      item
        Name = 'a6'
      end
      item
        Name = 'a7'
      end
      item
        Name = 'a8'
      end
      item
        Name = 'a9'
      end
      item
        Name = 'a10'
      end
      item
        Name = 'a11'
      end
      item
        Name = 'a12'
      end
      item
        Name = 'a13'
      end
      item
        Name = 'a14'
      end
      item
        Name = 'a15'
      end
      item
        Name = 'a16'
      end
      item
        Name = 'a17'
      end
      item
        Name = 'a18'
      end
      item
        Name = 'a19'
      end
      item
        Name = 'a20'
      end
      item
        Name = 'a21'
      end
      item
        Name = 'a22'
      end
      item
        Name = 'a23'
      end
      item
        Name = 'a24'
      end
      item
        Name = 'a25'
      end
      item
        Name = 'a26'
      end
      item
        Name = 'a27'
      end
      item
        Name = 'a28'
      end
      item
        Name = 'a29'
      end
      item
        Name = 'a30'
      end>
    OnVirtualRecordCount = DataVirtualRecordCount
    OnGetData = DataGetData
    Left = 72
    Top = 88
  end
  object XLSAdapter: TXLSAdapter
    Left = 40
    Top = 88
  end
end