calculate.pas

来自「vVC显示图片 VC显示图片 VC显示图片 VC显示图片 VC显示图片」· PAS 代码 · 共 61 行

unit Calculate;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Forms, Controls;

type
  TCalculate = class(TObject)
  private
  
  protected
    FPrjFileName: string;

  public
    constructor Create; 
    destructor Destroy; override;

    property PrjFileName: string read FPrjFileName write FPrjFileName;
    function GetFileList(List: TStrings): boolean; virtual; abstract;
    function GetLineCount(List: TStrings; Ret: TStrings): integer; virtual;    
  end;

implementation

constructor TCalculate.Create;
begin
  inherited Create;
  FPrjFileName := '';
end;

destructor TCalculate.Destroy;
begin
  inherited Destroy;
end;

function TCalculate.GetLineCount(List: TStrings; Ret: TStrings): integer;
var
  i: integer;
  Lines: TStrings;
begin
  Screen.Cursor := crHourGlass;
  Lines := TStringList.Create;
  Result := 0;
  Ret.Clear;
  for i := 0 to List.Count - 1 do
  begin
    try
      Lines.LoadFromFile(List[i]);
      Result := Result + Lines.Count;
      Ret.Add(IntToStr(Lines.Count));
    except
    end;
  end;
  Lines.Free;
  Screen.Cursor := crDefault;
end;

end.