![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Как с элементом из переменой (string) работать. В Microsoft Visual FoxPro 9.0
просто перед переменой ставиш &. А как это сделать в Delphi? Последний раз редактировалось mbv, 14.08.2010 в 22:48. |
|
#2
|
|||
|
|||
|
Вероятно, имеется в виду с отдельными символами, из которых состоит строка (значение переменной типа String).
Примерно так : Код:
Var
Sx : string;
i : integer;
Ch : char;
...
Sx:='abcdefgh';
for i:=1 to length(Sx) do
begin
Ch:=Sx[i]; //это и есть "очередной" символ
end;
... |
|
#3
|
|||
|
|||
|
Цитата:
например у меня есть элемент button1 а переменая а равняется 'button1' (a:='button1') мне надо типо a.Capiton:='1'; В Microsoft Visual FoxPro 9.0 это будет так &a.Capiton:='1' |
|
#4
|
||||
|
||||
|
Код:
if FindComponent(a) <> nil then (FindComponent(a) as TButton).Caption := '1'; |
|
#5
|
||||
|
||||
|
Цитата:
глянь реализацию FindComponent. Я бы не стал искать компонент по имени дважды в одном месте.Код:
var x: TButton; ... begin x := FindComponent(a); if x <> nil then (x as TButton).Caption := '1'; ..... ![]() Вобщем это в сторону оптимизации. |
|
#6
|
|||
|
|||
|
на
Код:
x := FindComponent(a); Код:
[Error] Unit3.pas(224): Incompatible types: 'TButton' and 'TComponent' Последний раз редактировалось mbv, 15.08.2010 в 12:25. |
|
#7
|
||||
|
||||
|
а чем обычный вариант не подходит:
aButton: TButton; aButton.Caption:='aButton'; |
|
#8
|
||||
|
||||
|
В общем верно. Искать вы можете с помощью этой функции абстрактный компонент TComponent. А вот когда вы его нашли и убедились, что этот компонент нужного вам класса (свойства .ClassType или .ClassName), вот тогда вы уже имеете право привести явно к нужному вам типу и работать со свойствами уже не абстрактного класса TComponent, а нужного вам конкретного типа.
|