Макроподстановка

← →
sau © (2002-07-17 14:23) [0]

Добрый день, уважаемые мастера!
Подскажите пожалуйста как можно в Дельфи сделать макроподстановку подобную как в Visual FoxPro:

FOR i = 1 TO &n
....
ENDFOR

где & - и есть макроподстановка, n - переменная...
Очень нужно.

← →
Anatoly Podgoretsky © (2002-07-17 14:29) [1]

FOR i := 1 TO n

← →
sau © (2002-07-17 15:08) [2]

Это я написал для примера... Хорошо попробую написать по-другому...

Есть переменные (или поля таблицы) Month1, Month2, Month3... MonthN
for i:= 1 to N do
begin
month:= "Month" + IntToStr(i);
x:= &month.; - Макроподстановка в Visual FoxPro
end;

Можно сделать что-то подобное с объектами TComponent и его потомками например так

procedure TForm2.Button1Click(Sender: TObject);
var
bt: TComponent;
begin
bt := findcomponent("Button"+inttostr(1));
(bt as TButton).Caption := "New Caption";
end;

но думаю вам нужно совсем не это.

При работе с таблицами можно использовать функцию
Finds a field based on its name.
function FieldByName(const FieldName: string): TField;

или для получения значения поля свойство
Provides access to the values for all fields in the active record for the dataset
property FieldValues[const FieldName: string]: Variant; default;

Макроподстановка Найти похожие ветки