mru.pas

这是一个DELPHI7应用案例开发篇有配套程序种子光盘

unit MRU;

interface

uses
    Classes, SysUtils;

type
  TMRUList = class
  private
    FFiles:TStringList;
    FMaxCount : Integer;
  public
    constructor Create(MaxCount:Integer);
    procedure AddFile(AFileName:String);
    function GetList:TStringList;
  end;

implementation

{ TMRUList }

procedure TMRUList.AddFile(AFileName: String);
var
    i:Integer;
begin
    i := FFiles.IndexOf(AFileName);
    if i= -1 then
    begin
        if FFiles.Count = FMaxCount then
        begin
            FFiles.Delete(FMaxCount-1);
            FFiles.Insert(0,AFileName);
        end
        else
            FFiles.Insert(0,AFileName);
    end
    else
    begin
        FFiles.Delete(i);
        FFiles.Insert(0,AFileName);
    end;
end;

constructor TMRUList.Create(MaxCount:Integer);
begin
    inherited Create;

    if (MaxCount<2) or (MaxCount>10) then
        raise ERangeError.Create('Max MRU Count should locate in [2,10]');

    FMaxCount := MaxCount;

    FFiles := TStringList.Create;
    FFiles.CaseSensitive := False;
    FFiles.Duplicates := dupIgnore;
    FFiles.Sorted := False;
end;

function TMRUList.GetList: TStringList;
begin
    Result := FFiles;
end;

end.