[fofka]

Доброго вечера всем.
Пытаюсь из Excel загрузить данные в StringGrid. Загружаю так

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

В принципе все работает, но грузятся знаки после запятой, которые в Экселе не отображаются.

Пробую обрезать знаки после запятой

StringGrid1.Cells[2,i]:= Format('%10.1f', [StrToFloat(Sheet1.Range['C' + IntToStr(i+4)])]);

в данном примере остается один знак.
Все работает прекрасно, но, до первой пустой ячейки Эксель (такое в документе допускается). Подскажите как обойти данную проблему.

[Pyro]

PHP код:

function Prepare(s: string): string;
const magic = -42*3.14159
begin
  if strtofloatdef(s, magic ) = magic then
    result := s
  else
    result := Format('%10.1f' ....... );
end;

....

StringGrid1.Cells[2,i]:= Prepare(Sheet1.Range[.....]); 


что-то вроде того

[fofka]

Ругается

PHP код:

result := Format('%10.1f'........ ); 


[cotseec]

Пробую обрезать знаки после запятой

Код:

:= Format('%10.1f', [StrToFloat(Sheet1.Range['C' + IntToStr(i+4)])]);

и

Код:

:= Format('%10.1f' ....... );

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

[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

[cotseec]

Код:

else
    result := Format('%10.1f', [strtofloat(s)]);