[woc131]

Всем привет,при работе с stringgrid вылезает ошибка. Задача: есть заполненная таблица stringgrid1 (куча строк в один столбец), нужно вытаскивать значения из строк и вставить в массив,чтоб потом с массивом работать.
код :

PHP код:

procedure TForm1.Button4Click(Sender: TObject);
var 
            a:array [0..360] of extended;     
            found: boolean; 
            i: integer; 
begin
  a[i]:= StrTofloat(StringGrid1.Cells[0,y]);        //здесь ошибку выдает
  obr := no3/l3;
  found := FALSE; 
  i := 1;
end; 


когда начинает считывать таблицу, то при нажатии выводит ошибку. Что может быть не так ? Если надо приведу код полностью. Просто все работает, кроме Button4Click. Заранее спасибо

[dr. F.I.N.]

1. А чему равно i перед выполнением a[i]:= StrTofloat(StringGrid1.Cells[0,y]);? Уверены, что значение в пределах 0-360?
2. А у Вас точно числовое значение в ячейке StringGrid1.Cells[0,y]?

[woc131]

1. там ведь строка есть ? или ее надо в начале писать ?
Да , значения 0.001..6.28. Сам задавал в таблицу )
2. да там значения :

PHP код:

0,001
0,002
0,003
.....
6,28 


Где может быть ошибка ?
Кстати

PHP код:

z:= strtofloat(  stringgrid1.cells[0, 2]  ) 


работает и потом с z можно спокойно работать. а вот в массив не записывается.

[Nikitiy_II]

А какую ошибку то выдает?

И попробуй инициализировать i

[woc131]

А что значит инициализировать i ?
Ошибка на скриншоте.

[Страдалецъ]

Ну вот дельфи и ругается на пустое значение в ячейке. Не может он пустоту в число преобразовать. Вот так попробуйте:

Код:

a[i]:= StrToFloatDef(StringGrid1.Cells[0,y],0);  

[woc131]

Огромное спасибо, все вышло! А можно еще вопрос. Код:

PHP код:

procedure TForm1.Button5Click(Sender: TObject);
begin
  repeat
    if 
(no1/l1+
(ne2*no2/sqrt(no2*no2*sin(a[i])*sin(a[i])+ne2*ne2*cos(a[i])*cos(a[i])))/l2) = obr  then  // вот здесь при вычислении ошибка
      found := TRUE
    else
      i := i + 1;
  until found= TRUE;   //or (i > SIZE) ;

begin


    if found then
    ShowMessage('результат найден ')//+ IntToStr(i) +  + 'Поиск успешен.')

  else
    ShowMessage('результат не найден');

end; 


Ошибка в расчете выражения для массива.
Это продолжение кода. На сколько я понял проблема в том что недопустимая операция с массивом a[i] что можно здесь сделать ?

[woc131]

Кто нибудь , помогите

[Nikitiy_II]

Или разделитель точка стоит, или у тебя не все переменные одного типа

[woc131]

Переделал вот так

PHP код:

procedure TForm1.Button5Click(Sender: TObject);
var a1,a2,a3,a4,a5:extended;
begin
    a1:=no1/l1;
    a2:=no2*no2*sin(a[i])*sin(a[i]);
    a3:=ne2*ne2*cos(a[i])*cos(a[i]);
    obr:=Round((a1+(ne2*no2/sqrt(a2+a3))/l2)*10000 / 10000);//округляем до 10000-ых.
  repeat
 if obr = g then  // g- константа =1,0000
      found := TRUE
    else
      i := i + 1;
begin
    if found then
    ShowMessage('совпадение есть')

  else
    ShowMessage('совпадения нет');
end; 


.Все работает, считает, перебирает. Но в конце выдает что совпадений нет... странно... вроде формат числа такой же - 0,0000 . а в массиве сам в ручную нашел значение 1,0000. т.е. должно совпасть а выдает что нет совпадений... Почему так может быть?

[woc131]

Никто не знает в чем дело ?

[cotseec]

похоже, что

Код:

...
obr: integer;
...

т.е.

Код:

obr:=Round((a1+(ne2*no2/sqrt(a2+a3))/l2)*10000 / 10000);

(функция Round дает на выходе тип integer)
дает obr=1, а 1<>1,0000, чтобы все получилось, надо либо

Код:

const
g=1;

либо

Код:

if ((obr+step) >= g) and ((obr-step) <= g) then  // g- константа =1,0000
      found := TRUE;;

где

Код:

...const
step=0.001;// (0.001 для примера) шаг допуска 
...

[woc131]

Все равно не выходит
Сначала сделал так :

PHP код:

procedure TForm1.Button5Click(Sender: TObject);
const step=0.0001;
var a1,a2,a3,a4,a5:extended;
begin
i:=1;
    a1:=c1/l1;
    a2:=с2*с2*sin(a[i])*sin(a[i]);     //no
    a3:=b2*b2*cos(a[i])*cos(a[i]);   //ne
    obr:=Round((a1+(b2*с2/sqrt(a2+a3))/l2)*10000 / 10000) ;    

  repeat

  if ((obr+step) >= g) and ((obr-step) <= g) then   // g:=1.1107
     found := TRUE

    else
      i := i + 1; 


пишет что не находит ничего, хотя ясно что он просто видит допустим два числа 1,1111 и 1,1111 и не опознает их как идентичные. Подумал что просто массив а пустой , хотя я его заполняю из stringgrid :

PHP код:

a[i]:= StrToFloatDef(StringGrid1.Cells[0,y],1); 


но если изменить код :

PHP код:

procedure TForm1.Button5Click(Sender: TObject);
const step=0.0001;
var a1,a2,a3,a4,a5:extended;
begin
for i:=1 to 62799 do


  repeat
     a1:=no1/l1;
    a2:=no2*no2*sin(a[i])*sin(a[i]);
    a3:=ne2*ne2*cos(a[i])*cos(a[i]);
    obr:=Round((a1+(ne2*no2/sqrt(a2+a3))/l2)*10000 / 10000) ;   
    statictext5.Caption:='= '+ floattostr(obr);
  if ((obr+step) >= g) and ((obr-step) <= g) then  // g:=1,1107
      found := TRUE 


то вообще виснет. В чем может быть проблема ?