[poli-smen]

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

.....
Цикл я написал, но почему то заполняется только 2я строка.
.....
Вот код:

Код:

procedure TForm1.Button4Click(Sender: TObject);
var
  c,r:integer;
begin
  c:=StringGrid1.ColCount-3;
  For r:=2 to StringGrid1.RowCount-1 do
  while (c>=1) do
  begin
.....

У тебя переменная "c" инициализируется всего один раз, а по логике должна инициализироваться для каждой обрабатываемой строки:

Код:

var
  c, r: Integer;
begin
  for r := 2 to StringGrid1.RowCount - 1 do
  begin
    c := StringGrid1.ColCount - 3;
    while c >= 1 do
    begin
.....
    end;
  end;
end;