双对象列表,双字符串列表

原创 2004年12月30日 08:17:00

//在平时的应用中,经常会碰到一些,对象集TAs中每个A对象都对应每个B对象,对象TBs中每个对象B都对应一个A对象.  如果在A和B中各放一个Tobject属性来进行互相引用,也是非常不错的,但那样依赖关系太强了.
//同样,我们经常会碰到一些这样的情况,有一串的编号和一串的名称进行对应,我们经常要从编号找名称,或从名称找编号.
//所以,此处提取出来了两个对象TDoubleObjList和TDoubleString,虽然可以从它们上面抽象出一个基类,但由于在delphi中string的内存管理机制有点别扭,不属于强类型, 所以还是分开两个对象了.
完整代码如下:
unit DoubleObject;

interface
uses
  Contnrs, Classes;

type
  TDoubleObjList = class
  private
    ObjectList1: TObjectList;
    ObjectList2: TObjectList;
    FOwnsObjects: Boolean;
    procedure SetOwnsObjects(const Value: Boolean);
  public
    constructor Create;
    destructor Destroy; override;
    procedure Clear;
    property OwnsObjects: Boolean read FOwnsObjects write SetOwnsObjects;
    procedure AddData(AObject1, AObject2: TObject);

    function IndexOfData1(AIndex: Integer): TObject; overload;
    function IndexOfData1(AObject: TObject): Integer; overload;

    function IndexOfData2(AIndex: Integer): TObject; overload;
    function IndexOfData2(AObject: TObject): Integer; overload;

    function Data2GetData1(AObject: TObject): TObject;
    function Data1GetData2(AObject: TObject): TObject;

    function Count: Integer;
  end;

  TDoubleString = class
  private
    Strings1: TStringList;
    Strings2: TStringList;
  public
    constructor Create;
    destructor Destroy; override;
    procedure Clear;
    procedure AddString(AString1, AString2: string);

    function IndexOfData1(AIndex: Integer): string; overload;
    function IndexOfData1(AString: string): Integer; overload;

    function IndexOfData2(AIndex: Integer): string; overload;
    function IndexOfData2(AString: string): Integer; overload;

    function Data2GetData1(AString: string): string;
    function Data1GetData2(AString: string): string;

    function Count: Integer;
  end;
implementation

{ TDoubleObjList }

procedure TDoubleObjList.AddData(AObject1, AObject2: TObject);
begin
  ObjectList1.Add(AObject1);
  ObjectList2.Add(AObject2);
end;

procedure TDoubleObjList.Clear;
begin
  ObjectList1.Clear;
  ObjectList2.Clear;
end;

function TDoubleObjList.Count: Integer;
begin
  Result := ObjectList1.Count;
end;

constructor TDoubleObjList.Create;
begin
  FOwnsObjects := False;
  ObjectList1 := TObjectList.Create;
  ObjectList2 := TObjectList.Create;
end;

function TDoubleObjList.Data1GetData2(AObject: TObject): TObject;
begin
  Result := ObjectList2.Items[IndexOfData1(AObject)];
end;

function TDoubleObjList.Data2GetData1(AObject: TObject): TObject;
begin
  Result := ObjectList1.Items[IndexOfData2(AObject)];
end;

destructor TDoubleObjList.Destroy;
begin
  ObjectList1.Free;
  ObjectList2.Free;
  inherited;
end;

function TDoubleObjList.IndexOfData1(AObject: TObject): Integer;
begin
  Result := ObjectList1.IndexOf(AObject);
end;

function TDoubleObjList.IndexOfData1(AIndex: Integer): TObject;
begin
  Result := ObjectList1.Items[AIndex];
end;

function TDoubleObjList.IndexOfData2(AObject: TObject): Integer;
begin
  Result := ObjectList2.IndexOf(AObject);
end;

function TDoubleObjList.IndexOfData2(AIndex: Integer): TObject;
begin
  Result := ObjectList2.Items[AIndex];
end;

procedure TDoubleObjList.SetOwnsObjects(const Value: Boolean);
begin
  FOwnsObjects := Value;
  ObjectList1.OwnsObjects := Value;
  ObjectList2.OwnsObjects := Value;
end;

{ TDoubleString }

procedure TDoubleString.AddString(AString1, AString2: string);
begin
  Strings1.Add(AString1);
  Strings2.Add(AString2);
end;

procedure TDoubleString.Clear;
begin
  Strings1.Clear;
  Strings2.Clear;
end;

function TDoubleString.Count: Integer;
begin
  Result := Strings1.Count;
end;

constructor TDoubleString.Create;
begin
  Strings1 := TStringList.Create;
  Strings2 := TStringList.Create;
end;

function TDoubleString.Data1GetData2(AString: string): string;
begin
  Result := Strings2.Strings[IndexOfData1(AString)];
end;

function TDoubleString.Data2GetData1(AString: string): string;
begin
  Result := Strings1.Strings[IndexOfData2(AString)];
end;

destructor TDoubleString.Destroy;
begin
  Strings1.Free;
  Strings2.Free;
  inherited;
end;

function TDoubleString.IndexOfData1(AIndex: Integer): string;
begin
  Result := Strings1.Strings[AIndex];
end;

function TDoubleString.IndexOfData1(AString: string): Integer;
begin
  Result := Strings1.IndexOf(AString);
end;

function TDoubleString.IndexOfData2(AString: string): Integer;
begin
  Result := Strings2.IndexOf(AString);
end;

function TDoubleString.IndexOfData2(AIndex: Integer): string;
begin
  Result := Strings2.Strings[AIndex];
end;

end.

基于JQuery 的双选择框

/* * Two select V1.0 Beta * Copyright(c) 2010 Alex Yang * pingyu007@163.com * --------------...
  • pingyu007
  • pingyu007
  • 2010年07月12日 09:39
  • 1242

Android关于一个页面双列表内嵌gridview单选问题

Android关于一个页面双列表内嵌gridview单选问题最近公司移动应用开发的时候,公司提出一个需求:一个Activity中左右两边各一个列表,每个列表的item中要现实两列数据也就是内嵌的Gri...
  • skwen226
  • skwen226
  • 2017年07月01日 00:38
  • 201

短信界面测试

1、分别使用菜单或快捷方式进入书写短消息是否有异常; 2、输入0个字符,选择、输入号码发送,应成功; 3、输入1个中文字符或1个字母发送,应成功; 4、输入35个中文或80个英文字母发送,应成功...
  • Android53_CSDN
  • Android53_CSDN
  • 2016年09月23日 10:19
  • 163

RecyclerView系列(2)—双列表嵌套

转载请注明出处: http://blog.csdn.net/user11223344abc?viewmode=contents 出自【蛟-blog】 如图所示:整体最外层是列表,白色的是间...
  • user11223344abc
  • user11223344abc
  • 2017年07月17日 23:31
  • 136

bootstrap列表组组件

列表组组件 XXX 1,首页 2.第二页 3.第三页 4....
  • yangying496875002
  • yangying496875002
  • 2017年05月16日 20:38
  • 127

双联动listview

http://www.jianshu.com/p/d9e75ac904e7 羊皮书APP(Android版)开发系列(二十一)双联动分组ListView,类似于外卖点餐 字数2966 阅读...
  • tianhe718
  • tianhe718
  • 2016年11月07日 09:22
  • 1240

python列表生成式与列表生成器

列表生成式:会将所有的结果全部计算出来,把结果存放到内存中,如果列表中数据比较多,就会占用过多的内存空间,可能会导致MemoryError内存错误或者导致程序在运行时出现卡顿的情况 列表生成器:会创...
  • dayun555
  • dayun555
  • 2018年01月30日 21:13
  • 17

android 二级菜单、双ListView 仿美团、购物App二级菜单

android 二级菜单、双ListView 仿美团、购物App二级菜单
  • menglele1314
  • menglele1314
  • 2016年03月07日 14:54
  • 6741

仿饿了么,百度外卖这些App的双ListView列表联动效果

仿饿了么,百度外卖这些App的双列表联动效果 思路: 1.自定义一个悬浮条目且带移动替换效果的ListView。 2.在界面中左边是个普通的ListV...
  • zhaozhuzi
  • zhaozhuzi
  • 2017年07月28日 20:07
  • 891

4084: [Sdoi2015]双旋转字符串

4084: [Sdoi2015]双旋转字符串 Time Limit: 10 Sec  Memory Limit: 512 MB Submit: 394  Solved: 161 [Submit]...
  • CRZbulabula
  • CRZbulabula
  • 2017年02月16日 21:27
  • 324
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:双对象列表,双字符串列表
举报原因:
原因补充:

(最多只允许输入30个字)