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

interface

uses
  StringUnitLight,  //ByteType
  XPtest,
  ListClone;        //TListClone

type
  TRecord = String;

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

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

  TStringRecordList = 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}
////////////////////////////////////////////////////////////

{ TStringRecordList }

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

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

initialization
finalization
end.