{-------------------------------
WideStringの
構造体リスト
履歴
2002/09/15
  1文字の値をTextにセットされたときに
  ['']と判断されてしまうバグを修正
--------------------------------}
unit WideStringRecordList;

interface

uses
  StringUnitLight,
  XPtest,
  ListClone;    //TListClone

type
  TRecord = WideString;

////////////////////////////////////////////////////////////
{$include RecordList.inc.pas}
////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////
{$define interface}
{$include CommonStringRecordList.inc.pas}
////////////////////////////////////////////////////////////

  TWideStringRecordList = TCommonStringRecordList;

procedure testGetSetText;

implementation

const
  EmptyStr: string = '';

function RecordEqual(const Value1, Value2: TRecord): Boolean; forward;

////////////////////////////////////////////////////////////
{$include RecordList.inc.pas}
////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////
{$define RecordEqual}
{$include CommonStringRecordList.inc.pas}
////////////////////////////////////////////////////////////

{ TWideStringRecordList }

    function StringPartsCompare(const SubStr, S: WideString; StrIndex: Integer): Boolean;
    begin
      Result := WideStringPartsCompare(SubStr, S, StrIndex);
    end;

////////////////////////////////////////////////////////////
{$define GetSetText}
{$include CommonStringRecordList.inc.pas}
////////////////////////////////////////////////////////////

initialization
finalization
end.