|
|
| Тема |
 Присвояване име на съществуващ обект |
|
| Автор |
vasildimov (непознат
) |
|
| Публикувано | 09.07.05 11:46 |
|
|
|
Здравейта на всички :)
имам следният проблем:
Имам два компонента TEDIT единият има name:='TEdit1' другият name:='TEdit2'. Искам на събитието onExit на TEdit1 да ги сравня с TEdit2, т.е. имам несто от сорта:
procedure TFormTimeZone.TEdit1OnChange(sender: TObject);
var
s1,s2: string;
begin
if sender is TEdit then
begin
s1:= TEdit(sender).Text;
s2:= ???????;
if s1>s2 then DoSomthing;
end;
end;
на мястото на питанките не искам да написа Edit2.Text а искам да използвам името на компонента, т.е. ТEdit(sender).Name:='Edit2', но тогава компилатора ми дава грешка и казва че този компонент вече съществува.
Моля кажете ми какво да напиша на мястото на питанките !!!
Благодаря !!!
| |
| |
| 
|
|
