вывод незначащих нулей спереди

[BBOBAHH]

Сообщение от lexaltd

Если я правильно тебя понял - то надо так:

var
  MyComponent: TComponent;
begin
 for d:=2 to 10 do
 if oshibka[1]=oshibka[d] then
  begin
   MyComponent := Form2.FindComponent('Edit'+IntToStr(d));
   if MyComponent <> nil then
   TEdit(MyComponent).Visible := false;
  end;
end;

Не успел!

ошибку не выдает, но на Form2 не гасит поле EDIT

[lexaltd]

Сообщение от BBOBAHH

чавото не хочет, выскакивает окно с ошибкой

Ошибка выскакивает по тому что нет Editа с именем 'Edit'+inttostr(d)

Или выкладывай весь код или толком оъясни что ты хочеш

[BBOBAHH]

Сообщение от lexaltd

Ошибка выскакивает по тому что нет Editа с именем 'Edit'+inttostr(d)

Или выкладывай весь код или толком оъясни что ты хочеш

попробую объяснить что хочу...

Есть две формы , в первой происходят ввод данных и индикация , подсчеты, расчеты, а в форме 2 вывод результатов...

Этот код в первой форме: (правда не весь, но для ясности)

if oshibka[1] <>0 then Form2.Edit10.Text := format('%.4u',[oshibka[1]]);
if oshibka[2] <>0 then Form2.Edit11.Text := format('%.4u',[oshibka[2]]);
if oshibka[3] <>0 then Form2.Edit12.Text := format('%.4u',[oshibka[3]]);
if oshibka[4] <>0 then Form2.Edit13.Text := format('%.4u',[oshibka[4]]);
if oshibka[5] <>0 then Form2.Edit14.Text := format('%.4u',[oshibka[5]]);

if oshibka[1] <>0 then Form2.Edit10.Visible:=true;
if oshibka[2] <>0 then Form2.Edit11.Visible:=true;
if oshibka[3] <>0 then Form2.Edit12.Visible:=true;
if oshibka[4] <>0 then Form2.Edit13.Visible:=true;
if oshibka[5] <>0 then Form2.Edit14.Visible:=true;

вот тут мне и надо в первой форме устроить проверку совпадения
oshibka[1] с любой другой (их всего десять), и та oshibka[d] которая совпадает с первой, должна погаснуть на форме 2


PS: и расскажи плиз как выделять цветом вставляемый код программы

[lexaltd]

Сообщение от BBOBAHH

попробую объяснить что хочу...

Есть две формы , в первой происходят ввод данных и индикация , подсчеты, расчеты, а в форме 2 вывод результатов...

Этот код в первой форме: (правда не весь, но для ясности)

if oshibka[1] <>0 then Form2.Edit10.Text := format('%.4u',[oshibka[1]]);
if oshibka[2] <>0 then Form2.Edit11.Text := format('%.4u',[oshibka[2]]);
if oshibka[3] <>0 then Form2.Edit12.Text := format('%.4u',[oshibka[3]]);
if oshibka[4] <>0 then Form2.Edit13.Text := format('%.4u',[oshibka[4]]);
if oshibka[5] <>0 then Form2.Edit14.Text := format('%.4u',[oshibka[5]]);

if oshibka[1] <>0 then Form2.Edit10.Visible:=true;
if oshibka[2] <>0 then Form2.Edit11.Visible:=true;
if oshibka[3] <>0 then Form2.Edit12.Visible:=true;
if oshibka[4] <>0 then Form2.Edit13.Visible:=true;
if oshibka[5] <>0 then Form2.Edit14.Visible:=true;

вот тут мне и надо в первой форме устроить проверку совпадения
oshibka[1] с любой другой (их всего десять), и та oshibka[d] которая совпадает с первой, должна погаснуть на форме 2


PS: и расскажи плиз как выделять цветом вставляемый код программы

Так d у тебя от 2 до 10 ,а имена Editов начинаются с Edit10 тоесь с 10

исправь на:

('Edit1'+IntToStr(d-1));

должно работать если имена Editов с Edit10 по Edit19

выделять цветом вставляемый код программы:

Нажимаеш на кнопку с решёткой, появляются два тега CODE и /CODE и между ними вставляеш код

[BBOBAHH]

[QUOTE=lexaltd;360440]Так d у тебя от 2 до 10 ,а имена Editов начинаются с Edit10 тоесь с 10

исправь на:

('Edit1'+IntToStr(d-1));

должно работать если имена Editов с Edit10 по Edit19

ТОЧНО !!! вот я чайник ! , только я дописал вот как

Form2.FindComponent('Edit'+IntToStr(d+9))

проверил , и получилось ! Спасибо, Уважаемый !

[BBOBAHH]

а не растолкуеш назначение трех букв NIL в условии:

if MyComponent <> nil then

в книжке поискал не нашел.. может так искал

[russian-stalker]

Nil - это указатель. Обозначает "ничего". Т.е если MyComponent не равен ничему(т.е. создан), то...

[BBOBAHH]

Мдя-я-яяяяя.... это получается примерно такая озвучка строки:

if MyComponent <> nil then

если MyComponent не равен ничему, то ......

[Stilet]

не равен ничему, то

Нет. Правильнее сказать "Если компонент равен ничему то..."

[russian-stalker]

Ну можно переиначить:
Если MyComponent существует(создан), то