Доступ к динамическому массиву с типом перечисления

Question

Я работаю над стандартным классом данных нашего программного обеспечения. Вот минимальный пример текущего состояния:

TDataOne = (Width, Length, Height); 
    TDataTwo = (Diameter, Weight); 

    TDatStruct = class; 

    TDatSubStructOne = class(TDatStruct) 
    public 
     myData : array[TDataOne] of double; 
     procedure writeToFile(AFileName : string); 
    end; 
    TDatSubStructTwo = class(TDatStruct) 
    public 
     myData : array[TDataTwo] of double; 
     procedure writeToFile(AFileName : string); 
    end; 

Для того, чтобы уменьшить избыточность кода, я хотел бы представить себе структуру данных с общей функцией письма в TDatStruct. Проблемы (по крайней мере для меня, как любителя) являются:

1. mydata имеет переменный размер в зависимости от substruct и баз на различных типах перечислений
2. Я все еще хочу, чтобы получить доступ к mydata с перечисляемого типа в подразделам структур
3. Я не хочу, чтобы передать данные суб структуры в качестве параметров к общей функции записи из-за числа различных массивов в реальном коде

Единственная идея (пренебрегая точка 3) у меня есть, чтобы пройти данные массива суб структура к общей процедуре записи как открытый параметр массива, как:

writeToFile(AFileName : string; writeData : array of double); 

Есть ли способ объединить динамический массив с перечислимым типом или виртуального перечисленномом массивом? Или я полностью ошибаюсь?

Answer 1

MYDATA имеет переменный размер в зависимости от substruct и баз на различных типах перечислений

Delphi имеет встроенные функции Low и High
Вам не нужно знать размер массива.

Я все еще хочу, чтобы получить доступ к MyData с перечисляемого типа в суб структурах

Используйте succ и pred собственные методы, чтобы пройти через перечисления.

Я не хочу, чтобы передать данные вспомогательной структуры в качестве параметра к общей функции записи из числа различных массивов в реальном коде

Все ваши массивы выглядят одинаково для меня. .. Они просто array of double, хотя и с различным количеством элементов.

Вы можете реализовать writeToFile так:

procedure writeArrayToFile(const AFileName : string; const writeData : array of double); 
var 
    i: integer; 
begin 
    for i:= low(writeData) to High(writeData) do begin 
    WriteADoubleToFile(AFilename, writeData[i]); 
    end; {for i} 
end; 

Обратите внимание на использование const, если вы не используете этот массив будет скопирован в стек, вызывая огромные задержки с большими массивами.

Если массив является членом данных вашего класса, то вы можете просто написать код так:

procedure TDatStruct.writeToFile(const AFileName : string); 
begin 
    WriteArrayToFile(FileName, GetMyData^); 
end; 

Обратите внимание, что, поскольку родительский класс TDatStruct фактически не имеют каких-либо данных внутри, вы» Вам нужно будет написать виртуальную функцию, которая получит эти данные.

type 
    TMyArray = array[0..0] of double; 
    PMyArray = ^TMyArray; 

..... 
TDatStruct = class 
protected 
    function GetMyData: PMyArray; virtual; abstract; 
public 
    procedure WriteToFile(const Filename: string); //no need for virtual 
end; 

open array parameter из WriteArrayToFile будет решить проблему для вас.

Обратите внимание, что параметры массива в writeToFile являются «параметром открытого массива», это будет принимать как статические, так и динамические массивы.

Если вы используете различные типы массивов (double/string и т. Д.).
Затем используйте общий метод.

Есть ли способ объединить динамический массив с перечисленным типом или виртуальным перечисляемым массивом? Или я полностью ошибаюсь?

Динамический массив имеет переменное количество элементов.
Вы не можете проиндексировать его, используя перечисление напрямую.
Однако вы можете перевести перечисленное значение в целое число с помощью встроенной функции Ord.
Он также работает для перечислений с более чем 256 значениями. Документация неверна, при необходимости она возвращает байты, слова или кардиналы.

function FixedArrayToDynamicArray(const input: array of double): TArray<double>; 
begin 
    //translate a fixed array to a dynamic array. 
    SetLength(Result, High(input)); 
    Move(input[0], Result[0], SizeOf(Double) * High(input)); 
end; 

предварительно дженерики код становится:

type 
    TDoubleArray = array of double; 

function FixedArrayToDynamicArray(const input: array of double): TDoubleArray; 
... same from here on. 

Answer 2

Есть много разных подходов, это трудно сказать, что лучше всего в вашей ситуации.

Конечно, WriteToFile должны быть введены в TDatStruct в качестве реферата:

TDatStruct = class 
    public 
    procedure WriteToFile(AFileName: string); virtual; abstract; 

и потомки должны реализовать его по-разному:

TDatStructOne = class (TDatStruct) 
    ... 
    public 
    procedure WriteToFile(AFileName: string); override; 

таким образом, вы можете иметь объект класса TDatStruct, который может на самом деле быть TDatStructOne или TDatStructTwo, но код, который его использует, не нужно «знать», что он имеет в виду: базовый полиморфизм.

В таком случае у вас есть много свободы в отношении типов данных, которые вы используете для хранения информации в каждом классе, реализации могут отличаться. Самое простое было бы:

TDatStructOne = class (TDatStruct) 
    public 
    Width: Double; 
    Length: Double; 
    Height: Double; 
    procedure WriteToFile(AFileName: string); override; 
end; 

TDatStructTwo = class (TDatStruct) 
    public 
    Diameter: Double; 
    Weight: Double; 
    procedure WriteToFile(AFileName: string); override; 
end; 

и в WriteToFile каждый потомки делает свою работу.

Таким образом, ваши проблемы:

1. вы будете иметь данные переменного размера, не обязательно массива двойников, все, что вы хотите (строки, целые наборы и т.д.)
2. Вы получили удобный доступ ко всем этим полям, если у вас есть объекты класса TDatStructOne или TDatStructTwo (конкретные классы)
3. Не существует обычной процедуры записи. Вместо этого у вас есть общий «интерфейс записи». Вы пишете obj.SaveToFile(FileName), и он будет сохранен соответствующим образом.