| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Макроподстановка [D6, Win95/98, Win2k, WinXP]
sau © (2002-07-17 14:23:00)Добрый день, уважаемые мастера!
Подскажите пожалуйста как можно в Дельфи сделать макроподстановку подобную как в Visual FoxPro:
FOR i = 1 TO &n
....
ENDFOR
где & - и есть макроподстановка, n - переменная...
Очень нужно.
TTCustomDelphiMaster (2002-07-17 15:41:00) [1]Можно сделать что-то подобное с объектами 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;
sau (2002-07-17 15:08:00) [2]Это я написал для примера... Хорошо попробую написать по-другому...
Есть переменные (или поля таблицы) Month1, Month2, Month3... MonthN
for i:= 1 to N do
begin
month:= "Month" + IntToStr(i);
x:= &month.; - Макроподстановка в Visual FoxPro
end;
Anatoly Podgoretsky (2002-07-17 14:29:00) [3]FOR i := 1 TO n
| |
