Спасибо.
Извиняюсь за несвоевременный ответ.
Формально да, описание формы хранится в базе в строковом формате, разделитель - точка с зарятой.
Если говорить о данном решении - имеет наверное право на жизнь. Решение не мое.
Моя задача - прочитать из базы и выдать json. С этим тоде нет проблем.
Если говорить о формате: "50;100;150;200;MS Sans........" - я имею описание и знаю, что Left = 50, Right = 100 .... Font = "Ms Sans" и так далее.
Все прекрасно до тех пор, пока среди этих параметров не попался один - сборный (разделитель - ":"), по смыслу это состояние контролов - либо текст из мемо, либо индекс из списка и так далее.
Внимание!!! :-) проблема в том, что форм этих 100 разных видов, разное количество контролов.
Пропарсить не проблема и выдать в виде:
параметр1:"лвамваотт"
параметр2:"отслвос"
параметр3:"укащлзщлук"
Самое интересное когда надо дать им осмысленные имена.
Для одной формы это будет:
ПротянутьРуку:"лвамваотт"
КакуюРуку:"мвам"
Для другой
ПослатьПодальше:"отслвос"
Длительность:"укащлзщлук"
Это ставит в ступор.
Что, просить к каждой форме дописать массив с вариантами значений?
Самому сделать некий стандартный класс и и по текщему состоянию (не говорю про то, что будет дальше) самому сформировать эти названия?
Второе как мне кажется правильнее.
Вопрос в том, как сделать так, чтобы не переделывать.
Придумал сделать через запись, количество полей для каждой формы будет разное.
Типа так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
type
// Declare a fruit record using case to choose the
// diameter of a round fruit, or length and height ohterwise.
TFruit = Record
name : string[20];
Case isRound : Boolean of // Choose how to map the next section
True :
(diameter : Single); // Maps to same storage as length
False :
(length : Single; // Maps to same storage as diameter
width : Single);
end;
var
apple, banana : TFruit;
begin
// Set up the apple as round, with appropriate dimensions
apple.name := 'Apple';
apple.isRound := True;
apple.diameter := 3.2;
// Set up the banana as long, with appropriate dimensions
banana.name := 'Banana';
banana.isRound := False;
banana.length := 7.65;
banana.width := 1.3;
// Let us display the fruit dimensions:
if apple.isRound
then ShowMessageFmt('Apple diameter = %f',[apple.diameter])
else ShowMessageFmt('Apple width = %f , length = %f',
[apple.width, apple.length]);
if banana.isRound
then ShowMessageFmt('Banana diameter = %f',[banana.diameter])
else ShowMessageFmt('Banana width = %f , length = %f',
[banana.width, banana.length]);
end;
Но как-то кудряво получается...
Хотитк верьте, хотите - нет, но этот код реальный ( не мой):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
interface
type
TKnopka = class
public
Name : string;
ToDo: string;
Parameter : string;
end;
TForma = class
public
Name : string;
VseKnopki : TFruit; // <- вот так???
destructor Destroy; override;
end;
implementation
destructor TForma.Destroy;
begin
// bla bla bla
end;
end.
