Сравнение значения Edit с числом ?

[kta87]

Подскажите как написать сравнение числа n с числом edit'ов значение которых равно '0' ? Не как не могу сообразить как это сделать

[evg_m]

русская версия перевести строку в целое число
английская версия string to integer
давайте именам функций осмысленные имена
Delphi версия str(ing)toint(eger) =strtoint

аналогично
integer to string =inttostr

[Alex Cones]

Здесь имеется в виду, что есть несколько эдитов, нужно получить количество эдитов, в которых "0".

Идите в цикле по FindComponent. Поиск по форуму.

[kta87]

Совершенно верно Alex Cones!

19:38

не нашел по форуму FindComponent. Подскажите как делать то ! с чего начать?

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

[psycho-coder]

Вот Вам пример из справки Delphi

procedure TForm1.Button1Click(Sender: TObject);

var
  i: Integer;
const
  NamePrefix = 'MyEdit';
begin
  for i := 1 to 20 do begin
    TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
    with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
    begin
      Left := 10;
      Top := i * 20;
      Parent := self;
    end;
  end;
end;

[Volt]

procedure TForm1.Button1Click(Sender: TObject);
var i, count:integer;
begin
count:=0;
for i:=0 to form1.ComponentCount-1 do
if Form1.Components[i].ClassName='TEdit' then
if (Form1.Components[i] as TEdit).Text='0' then
inc(count);
Showmessage(inttostr(count));
end;

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор