почему не получается получить имя От TComponent

← →
КомофОнСамый (2004-03-09 21:56) [0]

for i:=0 to ComponentCount-1 do begin if(Components[i] is TEdit)then if(Copy((Components[i] as TObject).Name,1,3)="Tax")then with(Components[i] as TEdit)do if(Trim(Text)<>"")then begin ShowEvent("налоговое поле не должно быть пустым...",1); SetFocus; Exit; end; end;

делаю такой хитрый фокус - думал что должно сработать ан нет.

задача такая - проверить все TEdit, и если его имя начинается на TaxХХХХХ - то проверить чтоб этот TEdit не был пустым.

← →
Германн © (2004-03-09 22:09) [1]

Так ты же пытаешся получить имя не от TComponent ,а от TObject.

← →
Anatoly Podgoretsky © (2004-03-09 22:23) [2]

У TObject нет свойства Name

← →
КомофОнСамый (2004-03-10 11:11) [3]

на самом деле было TEdit, в поиске решения исправил и вставил сюда не посмотревь.

у меня возникло подозрение - а оператор with не переопределяет ли на свои Component.

просто у меня там такая конструкция:
with(TaxStatus)do if(Trim(Text)="")or(Trim(Text)="00")then begin for i:=0 to ComponentCount-1 do begin if(Components[i] is TEdit)then if(Copy((Components[i] as TEdit).Name,1,3)="Tax")then with(Components[i] as TEdit)do if(Trim(Text)<>"")then begin ShowEvent("налоговое поле не должно быть пустым...",1); SetFocus; Exit; end; end; end;

← →
Внук © (2004-03-10 11:17) [4]

Забудьте ж, наконец, про оператор with (крик души). И будет вам счастье. Да, и Copy((Components[i] as TEdit).Name,1,3) можно упростить Copy(Components[i].Name,1,3)

← →
MU (2004-03-10 11:19) [5]

//if(Trim(Text)<>"")then

if(Trim(Text)= "")then //!!!

← →
КомофОнСамый (2004-03-10 11:26) [6]

2Внук
а почему? у TaxStatus получается что есть свои Components?

2MU
да вы правы, перебиваю пример упростив, на самом деле там

if(Trim(Text)<>"")AND(Trim(Text)<>"00")then

← →
MU (2004-03-10 11:31) [7]

Так
if (Trim(Text) = "") OR (Trim(Text)<> "00") then
или
if StrToFloatDef(Trim(Text), 0) = 0 then

← →
КомофОнСамый (2004-03-10 11:53) [8]

2MU
без разницы - проблема не в этом

← →
Внук © (2004-03-10 11:53) [9]

>>КомофОнСамый (10.03.04 11:26) [6]
>>у TaxStatus получается что есть свои Components?
А я откуда знаю, какого он типа? :)) Вот именно во избежание таких двусмысленностей. Сам-то через месяц сможешь свою программу прочитать?

← →
КомофОнСамый (2004-03-10 15:00) [10]

with вроде как уменьшает написание кода

а как переопределить действие with?

← →
Внук © (2004-03-10 15:05) [11]

Угу, уменьшает, а еще увеличивает геморрой и затрудняет чтение программы. В каком смысле переопределить?

← →
КомофОнСамый (2004-03-10 15:24) [12]

вернее отменить действие with

← →
Кщд (2004-03-10 15:29) [13]

явно указать хозяина св-ва ComponentCount

Внук © (10.03.04 15:05)

Да вроде здесь With правильно указан...

if Components[i] is TEdit then with TEdit(Components[i]) do if (Copy(Name,1,3) = "Tax") and (Trim(Text) = "") then begin ShowEvent("налоговое поле не должно быть пустым...",1); SetFocus; Exit; end;

сорри немного не в "кассу"(непонятно)
но вот что хотел сказать какой Name возмет для обработки в этой конструкции от компонента или от формы MainForm.Name? непонятки.

IMHO with, при понимании, как он работает, конечно, мешает не больше, чем self в методах. Естественно, когда with применяется к нескольким объектам одновременно (или with вложены), то путаница в голове неизбежна, но в этом случае лучше, действительно, with не использовать.

>>Игорь Шевченко © (10.03.04 15:53) [14]
Скорее всего, правильно. Я к тому, что надо вообще стремиться обходиться без with, кроме самых простейших случаев, оно нагляднее и проще. Это, конечно, только IMHO, но в русской транскрипции :))

sniknik © (10.03.04 16:25)

> тоже не люблю with

Ну и что ? А вот Borland любит его. Всякий овощ, будучи употребленным к месту и вовремя приносит свою пользу.

> а делается это к примеру на onExit их Text.x.

А как и когда делается - целиком и полностью зависит от задачи. Задача здесь не приведена, гадания бессмысленны.

Внук © (10.03.04 17:09)

> Я к тому, что надо вообще стремиться обходиться без with,
> кроме самых простейших случаев, оно нагляднее и проще

Не скажи, всякая крайность вредна. Писать длинную цепочку методов на немецком языке тоже нечитабельно.

почему не получается получить имя От TComponent Найти похожие ветки