if...then...else - Общие вопросы Delphi

_ZixeL_ · 29.11.2012, 08:01

Всем привет. Ребят, помогите распутаться, ибо запутался

В общем. Есть процедура

Код:

procedure TNewThread.Execute;
var
other: string;
i:integer;
State: Boolean;
begin

with Form1.advstringgrid1 do
begin

for I:=FixedRows to RowCount do
begin
if GetCheckboxState(0,I,State) then
if State then
begin
Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+1;
//1 Гет запрос 
other:=datamodule2.idHttp1.Get('http://www.iptrackeronline.com/index.php?ip_address='+ Cells[2, i]);
//2  Страна
Cells[13, i]:=Pars('Country<br><input type="text" name="T2" size="20" value="',other,'"></td>');
//4 Регион
if Pos('Region (code)<br><input type="text" name="T8" size="20" value="n/a ()">',other)=0 then
Cells[14, i]:=Pars('Region (code)<br><input type="text" name="T8" size="20" value="',other,'"></td>')
else
begin
Cells[14, i]:=' n/a';
end;
//3  Город
Cells[15, i]:=Pars('City<br><input type="text" name="T9" size="20" value="',other,'"></td>');
//4 Провайдер
Cells[12, i]:=Pars('ISP<br><input type="text" name="T7" size="20" value="',other,'"></td>');
if i=Form1.AdvStringGrid1.RowCount then
begin
Form1.ProgressBar1.Position:=0;
end;
end;

end;

end;

Мне надо прописать else на if State then
Может я тут намудрил, возможно есть легче способ. Но не знаю куда влепить else тут.
Буду благодарен за ответ.

Mad_Cat · 29.11.2012, 08:07

Код:

if GetCheckboxState(0,I,State) then begin
if State then
begin
Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+1;
//1 Гет запрос 
other:=datamodule2.idHttp1.Get('http://www.iptrackeronline.com/index.php?ip_address='+ Cells[2, i]);
//2  Страна
Cells[13, i]:=Pars('Country<br><input type="text" name="T2" size="20" value="',other,'"></td>');
//4 Регион
if Pos('Region (code)<br><input type="text" name="T8" size="20" value="n/a ()">',other)=0 then
Cells[14, i]:=Pars('Region (code)<br><input type="text" name="T8" size="20" value="',other,'"></td>')
 else{тут_ваш_код} end else
begin
Cells[14, i]:=' n/a';
end;

_ZixeL_ · 29.11.2012, 08:22

Немного не то.

это всё идёт в одном цикле

Код:

Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+1;
//1 Гет запрос 
other:=datamodule2.idHttp1.Get('http://www.iptrackeronline.com/index.php?ip_address='+ Cells[2, i]);
//2  Страна
Cells[13, i]:=Pars('Country<br><input type="text" name="T2" size="20" value="',other,'"></td>');
//4 Регион
if Pos('Region (code)<br><input type="text" name="T8" size="20" value="n/a ()">',other)=0 then
Cells[14, i]:=Pars('Region (code)<br><input type="text" name="T8" size="20" value="',other,'"></td>')
else
begin
Cells[14, i]:=' n/a';
end;
//3  Город
Cells[15, i]:=Pars('City<br><input type="text" name="T9" size="20" value="',other,'"></td>');
//4 Провайдер
Cells[12, i]:=Pars('ISP<br><input type="text" name="T7" size="20" value="',other,'"></td>');

if i=Form1.AdvStringGrid1.RowCount then
begin
Form1.ProgressBar1.Position:=0;
end;

Мне это надо влепить между

Код:

if GetCheckboxState(0,I,State) then
if State then

и

Код:

else
showmessage('123')

_ZixeL_ · 29.11.2012, 09:10

Немного упростил код. Что б понятней было

Код:

procedure TNewThread.Execute;
var
other: string;
i:integer;
State: Boolean;
begin

for I:=Form1.advstringgrid1.FixedRows to Form1.advstringgrid1.RowCount do  begin
if Form1.advstringgrid1.GetCheckboxState(0,I,state)=state then
begin
other:=datamodule2.idHttp1.Get('http://www.iptrackeronline.com/index.php?ip_address='+ Form1.advstringgrid1.Cells[2, i]);
//2  Страна
Form1.advstringgrid1.Cells[13, i]:=Pars('Country<br><input type="text" name="T2" size="20" value="',other,'"></td>');
//4 Регион
if Pos('Region (code)<br><input type="text" name="T8" size="20" value="n/a ()">',other)=0 then
Form1.advstringgrid1.Cells[14, i]:=Pars('Region (code)<br><input type="text" name="T8" size="20" value="',other,'"></td>')
else
begin
Form1.advstringgrid1.Cells[14, i]:=' n/a';
end;
//3  Город
Form1.advstringgrid1.Cells[15, i]:=Pars('City<br><input type="text" name="T9" size="20" value="',other,'"></td>');
//4 Провайдер
Form1.advstringgrid1.Cells[12, i]:=Pars('ISP<br><input type="text" name="T7" size="20" value="',other,'"></td>');
//----

end;
end;


end;

Но так и не понял, куда для if Form1.advstringgrid1.GetCheckboxSta te(0,I,state)=state then прописать else >_<

ПыСы: Вопрос: почему перед for to do не работает условный оператор if then?

Serge_Bliznykov · 29.11.2012, 09:27

Вы зря не форматируете код. Так намного проще отлаживать и дорабатывать..
пробуйте:

Код:

procedure TNewThread.Execute;
var
  other: string;
  i: integer;
  State: Boolean;
begin

  for I := Form1.advstringgrid1.FixedRows to Form1.advstringgrid1.RowCount do begin
    if Form1.advstringgrid1.GetCheckboxState(0, I, state) = state then
    begin
      other := datamodule2.idHttp1.Get('http://www.iptrackeronline.com/index.php?ip_address=' + Form1.advstringgrid1.Cells[2, i]);
      //2  Страна
      Form1.advstringgrid1.Cells[13, i] := Pars('Country<br><input type="text" name="T2" size="20" value="', other, '"></td>');
      //4 Регион
      if Pos('Region (code)<br><input type="text" name="T8" size="20" value="n/a ()">', other) = 0 then
        Form1.advstringgrid1.Cells[14, i] := Pars('Region (code)<br><input type="text" name="T8" size="20" value="', other, '"></td>')
      else
      begin
        Form1.advstringgrid1.Cells[14, i] := ' n/a';
      end;
      //3  Город
      Form1.advstringgrid1.Cells[15, i] := Pars('City<br><input type="text" name="T9" size="20" value="', other, '"></td>');
      //4 Провайдер
      Form1.advstringgrid1.Cells[12, i] := Pars('ISP<br><input type="text" name="T7" size="20" value="', other, '"></td>');
      //----
    end
    else {else для if .. = state}
      showmessage('123');
    end 

end;

Цитата:

ПыСы: Вопрос: почему перед for to do не работает условный оператор if then?

всё работает, если правильно писать (и соблюдать логику выполнения и записи операторов)!
Вы где-то ошибку делаете, вот и не работает у Вас...

_ZixeL_ · 29.11.2012, 09:31

Спасибо. Работает, но не правильно.
Оно выводить сообщение "123" столько раз, сколько присутствует строк в таблице, тоесть

Код:

   for I := Form1.advstringgrid1.FixedRows to Form1.advstringgrid1.RowCount do

Подскажите как сделать, что б такого не было?
Я выше задавал вопрос. И никак не пойму, почему if..then не работает перед for..to..do.
Буду благодарен за ответ.

superedward · 29.11.2012, 09:38

Цитата:

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

Спасибо. Работает, но не правильно.
Оно выводить сообщение "123" столько раз, сколько присутствует строк в таблице, тоесть

Код:

   for I := Form1.advstringgrid1.FixedRows to Form1.advstringgrid1.RowCount do

Непонятно: должно выводить или выводит

Цитата:

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

Я выше задавал вопрос. И никак не пойму, почему if..then не работает перед for..to..do.
Буду благодарен за ответ.

У вас перед циклом нет никакого условия

_ZixeL_ · 29.11.2012, 09:51

[QUOTE=superedward;1140182]Непонятно: должно выводить или выводит

Выводит, прошу прощение.

Код:

У вас перед циклом нет никакого условия

Делал так

Код:

if Form1.advstringgrid1.GetCheckboxState(0, I, state) = state then
begin
 for I := Form1.advstringgrid1.FixedRows to Form1.advstringgrid1.RowCount do  begin

И не работало. Никакой реакции вообще.

Serge_Bliznykov · 29.11.2012, 09:54

во-первых, в упор не вижу, где Вы заполняете переменную State ?!
Допускаю, что Вы опустили этот кусок кода. Если же нет - это грубая ошибка с вашей сторону. Должно быть, State := true; или State = false;

во-вторых, при переборе строк нужно учитывать, что последния строчка в гриде имеет индекс не RowCount, а RowCount-1

в-третьих, проверяйте:

Код:

var
  other: string;
  i: integer;
  State: Boolean;
begin

  State := false;

  if Form1.advstringgrid1.GetCheckboxState(0, I, state) = state then 
    for I := Form1.advstringgrid1.FixedRows to Form1.advstringgrid1.RowCount-1 do 
    begin
        other := datamodule2.idHttp1.Get('http://www.iptrackeronline.com/index.php?ip_address=' + Form1.advstringgrid1.Cells[2, i]);
        //2  Страна
        Form1.advstringgrid1.Cells[13, i] := Pars('Country<br><input type="text" name="T2" size="20" value="', other, '"></td>');
        //4 Регион
        if Pos('Region (code)<br><input type="text" name="T8" size="20" value="n/a ()">', other) = 0 then
          Form1.advstringgrid1.Cells[14, i] := Pars('Region (code)<br><input type="text" name="T8" size="20" value="', other, '"></td>')
        else
        begin
          Form1.advstringgrid1.Cells[14, i] := ' n/a';
        end;
        //3  Город
        Form1.advstringgrid1.Cells[15, i] := Pars('City<br><input type="text" name="T9" size="20" value="', other, '"></td>');
        //4 Провайдер
        Form1.advstringgrid1.Cells[12, i] := Pars('ISP<br><input type="text" name="T7" size="20" value="', other, '"></td>');
        //----
    end
  else {else для if .. = state}
    showmessage('123');

end;

_ZixeL_ · 29.11.2012, 09:58

Я начинающий, не пинайте сильно

Цикл выполняется полностью независимо от того, чекнут ли чекбокс или нет(

29.11.2012, 09:31	#6
_ZixeL_ Форумчанин Регистрация: 04.11.2012 Сообщений: 151	Спасибо. Работает, но не правильно. Оно выводить сообщение "123" столько раз, сколько присутствует строк в таблице, тоесть Код: `for I := Form1.advstringgrid1.FixedRows to Form1.advstringgrid1.RowCount do` Подскажите как сделать, что б такого не было? Я выше задавал вопрос. И никак не пойму, почему if..then не работает перед for..to..do. Буду благодарен за ответ.

29.11.2012, 09:51	#8
_ZixeL_ Форумчанин Регистрация: 04.11.2012 Сообщений: 151	[QUOTE=superedward;1140182]Непонятно: должно выводить или выводит Выводит, прошу прощение. Код: `У вас перед циклом нет никакого условия` Делал так Код: `if Form1.advstringgrid1.GetCheckboxState(0, I, state) = state then begin for I := Form1.advstringgrid1.FixedRows to Form1.advstringgrid1.RowCount do begin` И не работало. Никакой реакции вообще.

29.11.2012, 09:58	#10
_ZixeL_ Форумчанин Регистрация: 04.11.2012 Сообщений: 151	Я начинающий, не пинайте сильно Цикл выполняется полностью независимо от того, чекнут ли чекбокс или нет(