StringGrid в Delphi

[Ратмир]

StringGrid заполнен двухмерном массивом 4х4 Помогите возвести в квадрат первые 2 столбца

[начинающий кодер]

var x:real;
    i,j:integer;
begin
..............

for i:=0 to 1 do
for j:=0 to 3 do begin
x:=strtofloat(stringgrid.cells[j,i]);
stringgrid.cells[j,i]:=floattostr(sqr(x));
end;
......................
end;

[Neobrat]

бр.. не внимательно прочитал..

предложение "начинающий кодер" - ом должно подойти

[Ратмир]

Не идет зависает

[начинающий кодер]

код в студию! а лучше проект!

[Ратмир]

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:Integer;
begin
Randomize;
with StringGrid1 do
  begin
    i:=0;
    for j:= 1 to RowCount-1 do
      Cells[i,j]:=IntToStr(j);
    j:=0;
    for i:=1 to ColCount-1 do
      Cells[i,j]:=IntToStr(i);
    end;
    with StringGrid1 do
    for i:=1 to ColCount-1 do
    for j:=1 to RowCount-1 do
    begin
      Cells[i,j]:= IntToStr(Round(Sin(Random(100))*100));
      end;
end;

procedure TForm1.Button2Click(Sender: TObject);
 var x:real;
    i,j:integer;
begin


for i:=0 to 1 do
for j:=0 to 3 do begin
x:=strtofloat(stringgrid1.cells[j,i]);
stringgrid1.cells[j,i]:=floattostr(sqr(x));
end;

From Stilet: Когда ты научишся оформлять код читабельно?

[начинающий кодер]

чего -то не хватает имхо! end-a последнего например!

[Ратмир]

Все хватает

[Stilet]

Ну ты выяснил на какой строке висяк?
Отладчиком прошелся?

[начинающий кодер]

procedure TForm1.Button2Click(Sender: TObject);
 var x:real;
    i,j:integer;
begin


for i:=0 to 1 do
for j:=0 to 3 do begin
x:=strtofloat(stringgrid1.cells[j,i]);
stringgrid1.cells[j,i]:=floattostr(sqr(x));
end;
end;//<---------- где?