UNIT
{$IFDEF NODebug}
  A12;
{$ELSE}
  StrList;
{$ENDIF}

INTERFACE

TYPE
  TStrList = CLASS(TObject)
  PRIVATE
    vList  : ARRAY OF STRING;
  PUBLIC
    Count : Integer;
    CONSTRUCTOR Create;
    PROCEDURE   Add(Text:STRING);
    FUNCTION    Strings(Index:Integer) : STRING;
  END;

IMPLEMENTATION

CONSTRUCTOR TStrList.Create;
BEGIN
  Count:=0;
  SetLength(vList,Count+1);
END;

PROCEDURE TStrList.Add(Text:STRING);
BEGIN
  SetLength(vList,Count+1);
  vList[Count]:=Text;
  Inc(Count);
END;

FUNCTION TStrList.Strings(Index:Integer) : STRING;
BEGIN
  Result:=vList[Index];
END;

END.
