Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 44, средняя оценка - 4.73
paxan86
51 / 46 / 1
Регистрация: 18.05.2011
Сообщений: 497
#1

совет с FindComponent - Delphi

28.05.2012, 22:49. Просмотров 6341. Ответов 17
Метки нет (Все метки)

Помогите реализовать то что в комментариях и если есть ошибки то укажите пожалуйста.

Delphi
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
var
  Form1: TForm1;
  farchma,w1,w2,w3,w4,w5,w6,w7,w8,w9,w10,w11,w12,w13,w14:string; forr,too:byte;
implementation
 
{$R *.dfm}
 
Procedure ClickMeFarchMe(Var farchma:string; forr,too:byte, wrd:string);
var
wordd:string;
Begin
for forr:=forr to too do
with findcomponent('edit'+IntToStr(forr) as tedit) do
wordd:=wordd+{ГЄГ*ГЄ ГІГіГІ âçÿòü ГІГҐГЄГ±ГІ ГЁГ§ Г*Г*éäåГ*Г*îãî åäèòГ*}
if wordd = wrd then
for forr:=forr to too do
if pos(IntToStr(forr),farchma)=0 then
with findcomponent('edit'+IntToStr(forr) as tedit) do
{Г*Г*éäåГ*Г*ûé åäèò.color:=red}
else
{Г*Г*éäåГ*Г*ûé åäèò.color:=blue;}
else
with findcomponent('edit'+IntToStr(forr) as tedit) do
{Г*Г*éäåГ*Г*ûé åäèò.text:='';}
 
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
begin
//w1
ClickMeFarchMe('2',1,3,W1);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
w1:='LBA';
w2:='ÔÎÐÌÀÒÈÐÎÂÀÍÈÅ';
w3:='BACKUP';
w4:='SCSI';
w5:='MFT';
w6:='RAID';
w7:='CHKDSK';
w8:='LOG';
w9:='USB';
w10:='ËÀÌÅÐ';
w11:='DEFRAG';
w12:='HFS';
w13:='DUMP';
w14:='ECC';
 
end;
Заранее Спасибо.

Добавлено через 5 минут
также ошибка в 13 строке на findcomponent

Добавлено через 3 минуты
немного подумав понял что с комментариями всё элементарно, осталась ошибка в 13 строке и нарекания по всему коду)

Добавлено через 58 минут
UP !
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.05.2012, 22:49
Здравствуйте! Я подобрал для вас темы с ответами на вопрос совет с FindComponent (Delphi):

findComponent - Delphi
procedure TfmMain.Savedate; var I:integer; tempComponent:TlistBox; begin InputQuery('Введите полное имя...

FindComponent и Tedit - Delphi
for i:=1 to 10 do begin Sed:='Edit'+IntToStr(i); scb:='ComboBox'+intToStr(i); with (FindComponent(Scb) as...

FindComponent возвращает nil - Delphi
компоненты загружаю из бд, вытаюсь найти их таким образом target : Tcomponent; target :=...

FindComponent не находит компонент - Delphi
Здравствуйте! Полчаса ломаю голову - почему FindComponent не видит динамически созданный компонент (EAccessViolation)? Подскажите,...

FindComponent в юните не работает - Delphi
Здравствуйте. Решил в модуль основных функций своей программы внести поиск определенных компонентов и изменение их Caption-а. Но...

Как в делфи пользоваться FindComponent? - Delphi
Пожалуйста напишите пример программы с FindComponent и пояснение что она делает

17
paxan86
51 / 46 / 1
Регистрация: 18.05.2011
Сообщений: 497
30.05.2012, 17:50  [ТС] #16
Спасибо большое =)

Добавлено через 15 минут
эта строчка сработала только без знака @
Delphi
1
edit.OnChange := @MyEditChange;
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
24621 / 16291 / 5004
Регистрация: 22.10.2011
Сообщений: 28,842
Записей в блоге: 5
30.05.2012, 17:58 #17
Это у меня с Лазаруса привычка ...
0
paxan86
51 / 46 / 1
Регистрация: 18.05.2011
Сообщений: 497
30.05.2012, 18:02  [ТС] #18
Цитата Сообщение от UI Посмотреть сообщение
Это у меня с Лазаруса привычка ...
=) Окей, всё работает)
0
30.05.2012, 18:02
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.05.2012, 18:02
Привет! Вот еще темы с ответами:

FindComponent для другой формы - Delphi
Как при помощи FindComponent искать компонент на другой форме? То есть у меня есть Form1, есть Form2. На Form2 динамически создаются...

FindComponent. Почему так нельзя? - Delphi
Добрый вечер. В зависимости от переменной ind мне надо выбрать ADOQuery1 или ADOQuery2. Что я делаю не так? procedure...

Почему ошибка Undeclared identifier на функцию FindComponent? - Delphi
Добрый вечер коллеги! Я что-то не понимаю почему у меня в коде кнопки FindComponent работает, а в рядом стоящей процедуре уже ругается...

Обратиться к свойству объекта при помощи FindComponent - Delphi
Подскажите, если не трудно. В проекте имеется несколько форм: FormSovet1, FormSovet2 и т. д. На каждой есть LabelSov. Нужно получить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
18
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.