из Edit в StringGrid

[Скандербег]

procedure TForm1.val_infoClick(Sender: TObject);
var
  min, a: Double;
  i : Integer;
begin
  min := 1000;
  for i := 1 to mainStringGrid.RowCount-1 do begin
    a := StrToFloat(mainStringGrid.Cells[1, i]);
    if a < min then min := a;
  end;
  Form3.label2.Caption := FloatToStrF(min, ffFixed, 10, 2);
end;

[Квэнди]

один вопрос-одна тема
закрыто