условия

[voolf]

скажите какая здесь ошибка

procedure TForm2.Button1Click(Sender: TObject);
var
i,w,p,a,n:integer;
s,pp:string;
begin
if Edit1.Text ='3' then begin

Form5.StringGrid1.Cells[2,1]:='5';
for i:=0 to n do
if Form5.StringGrid1.Cells[2,i]= '' then
 begin

  Form5.StringGrid1.Cells[1,i]:=Edit1.Text;
  Form5.StringGrid1.Cells[2,i]:=Edit2.Text;
  Form5.StringGrid1.Cells[3,i]:=Edit3.Text;
  Form5.StringGrid1.Cells[4,i]:=Edit4.Text;

    Edit1.Clear;
      Edit2.Clear;
        Edit3.Clear;
          Edit4.Clear;


 if Edit1.Text ='1' then begin
n:=4;
Form4.StringGrid1.Cells[2,1]:='5';
for w:=0 to n do
if Form4.StringGrid1.Cells[2,i]= '' then
 begin

  Form4.StringGrid1.Cells[1,i]:=Edit1.Text;
  Form4.StringGrid1.Cells[2,i]:=Edit2.Text;
  Form4.StringGrid1.Cells[3,i]:=Edit3.Text;
  Form4.StringGrid1.Cells[4,i]:=Edit4.Text;

    Edit1.Clear;
      Edit2.Clear;
        Edit3.Clear;
          Edit4.Clear;




  end;
  end;

  end;

  end;
  end;

программа зависает



_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

кто же Вас так код форматировать учил?!!

[Serge_Bliznykov]

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

for i:=0 to n do

здесь n не задано. может быть миллионы...
поставьте вначале

n:=XXX;

[D1973]

Здорово, правда?

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

for w:=0 to n do
if Form4.StringGrid1.Cells[2,i]= '' then

А чему, в данном случае, равно i??? А i, в данном случае равно значению переменной-счетчика из предыдущего цикла, как раз того, в котором n не определено, т.к. с begin-end, похоже жестко напутано... Да и с таким понятием, как процедура, Вы тоже не знакомы???

[northener]

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

скажите какая здесь ошибка

Тут весь код - ошибка. Поскольку в нём кроме ляпов присутствует ещё и бред.
А именно проверка

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

if Edit1.Text ='1' then

после

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

Edit1.Clear;

[digitalis]

Это паранойя: проверка - а вдруг не очистилось ?
А к форматированию что за претензии - 6 end'ов в рядок, как раз отделение солдат из Строевого устава.