[fofka]

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

и
найдите 10 отличий

function Prepare(s: string): string;
const magic = -42*3.14159;
begin
  if strtofloatdef(s, magic ) = magic then
    result := s
  else
    result := Format('%10.1f', [StrToFloat(Sheet1.Range['C' + IntToStr(i+4)])]);
end;

     StringGrid1.RowCount:= 36;
       for i := 1 to 35 do
    begin
    StringGrid1.Cells[2,i]:= Prepare(Sheet1.Range['C' + IntToStr(i+4)]);

В ответ - invalid variant operation