Форум программистов [Powered by Invision Power Board]

Код

class TDoubleList : public TObject
{
  protected:
    TList *FList;  //Список double*

    int  __fastcall GetCount(void);
    
    double __fastcall GetValue(int AIndex);
    void __fastcall SetValue(int AIndex, double AValue);

    int  __fastcall GetCapacity(void);
    void __fastcall SetCapacity(int ACapacity);

  public:
    __property double Value[int Index] = {read = GetValue, write = SetValue};
    __property int Count = {read = GetCount};
    __property int Capacity = {read = GetCapacity, write = SetCapacity};

    
    void __fastcall Clear(void);
    void __fastcall Add(double AValue);
    void __fastcall Insert(double AValue);
    void __fastcall Delete(int AIndex);
    void __fastcall Assign(TDoubleList *ASourceList);
    void __fastcall SetCount(int ANewSize, double ADefaultValue = 0.0, bool AClearPrevious = false);
    
    void __fastcall LoadFromString(AnsiString &ASourceStr, AnsiString ASeparator = ";", int ACount = 0);
    
    __fastcall TDoubleList(void);
    __fastcall ~TDoubleList(void);
};

class TDoubleTable : public TObject
{
  protected:
    TList *FList;  //Список TDoubleList*

    int  __fastcall GetColCount(void);    
    int  __fastcall GetRowCount(void);

    double __fastcall GetValue(int AColIndex, int ARowIndex);
    void __fastcall SetValue(int AColIndex, int ARowIndex, double AValue);

    int  __fastcall GetColCapacity(void);
    int  __fastcall GetRowCapacity(void);
    
    void __fastcall SetColCapacity(int ACapacity);
    void __fastcall SetRowCapacity(int ACapacity); 

  public:
    __property double Value[int ColIndex][int RowIndex] = {read = GetValue, write = SetValue};
    __property int ColCount = {read = GetColCount};
    __property int RowCount = {read = GetRowCount};
    __property int ColCapacity = {read = GetColCapacity, write = SetColCapacity};
    __property int RowCapacity = {read = GetRowCapacity, write = SetRowCapacity};

    void __fastcall Clear(void);
    void __fastcall AddCol(double ADefaultValue = 0.0);
    void __fastcall AddRow(double ADefaultValue = 0.0);
    void __fastcall InsertCol((int AColIndex, double ADefaultValue = 0.0);
    void __fastcall InsertRow(int AColIndex, double ADefaultValue = 0.0);
    void __fastcall DeleteCol(int AColIndex);
    void __fastcall DeleteRow(int ARowIndex);
    void __fastcall Assign(TDoubleTable *ASourceList);
    void __fastcall SetSize(int ANewColCount, int ANewRowCount, double ADefaultValue = 0.0, bool AClearPrevious = false);

    void __fastcall LoadFromFile(AnsiString AFileName);    
    void __fastcall LoadFromFile(AnsiString AFileName, int AColCount = 0, int ARowCount = 0);    
    void __fastcall SaveToFile(AnsiString AFileName);    

    __fastcall TDoubleTable(void);
    __fastcall TDoubleTable(void);
};