Оконное приложение дельфи

[Катерина Рыжая]

добрый вечер, вот моя задача:
Даны одномерные массивы C, D. Нужно найти и вывести(в одномерный массив В) множество значений, имеющихся в D, но,которых нет в С и которые не равны А(число А задано). Так же найти сумму найденных значений.


вот текст программы:

procedure TForm1.Button1Click(Sender: TObject);
Var i,n:integer;
begin
n:=StrToInt(Edit1.Text);
StringGrid1.ColCount:=n+1; 
StringGrid1.RowCount:=2;
StringGrid2.RowCount:=2;
StringGrid2.ColCount:=n+1; 
for i:=1 to n do 
StringGrid1.Cells[i,0]:=IntToStr(i);
for i:=1 to n do 
StringGrid2.Cells[i,0]:=IntToStr(i);
end;


procedure TForm1.Button2Click(Sender: TObject);
var i,n:byte; S,A:real;
C:array of real;
D:array of real;
B:array of Real;
begin
n:=StrToInt(Edit1.Text);
SetLength(C,n);
SetLength(D,n);
SetLength(B,n);
StringGrid3.ColCount:=n+1;  
for i:=1 to n do 
if StringGrid1.Cells[i,0]='' then 
C[i-1]:=0 
else
C[i-1]:=StrToFloat(StringGrid1.Cells[0,i]);

if StringGrid2.Cells[0,i]='' then 
D[i-1]:=0 
else
D[i-1]:=StrToFloat(StringGrid2.Cells[0,i]); 

for i:=0 to (n-1) do
begin
S:=0; B[i]:=0; A:=StrToFloat(Edit2.Text);

if(D[i]<>C[i]) and (D[i]<>A) then
  begin
  D[i]:=B[i];
  S:=S+B[i];
  end;
end;

for i:=0 to n-1 do
begin 
StringGrid3.Cells[i,1]:=FloatToStr(B[i]);

end;
 Edit3.Text:=FloatToStr(S);
end;

выдает сообщение ".........is not a valid floating point value...."
в чем проблема?( подскажите, пожалуйста



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

выдает сообщение ".........is not a valid floating point value...."

в какой-то ячейке грида у Вас НЕ число (скорее всего - пустая строка)

обратите внимание, вы записываете числа в гриды по столбцам:

for i:=1 to n do 
StringGrid1.Cells[i,0]:=IntToStr(i);
for i:=1 to n do 
StringGrid2.Cells[i,0]:=IntToStr(i);

а считываете - по сторокам:

for i:=1 to n do 
if StringGrid1.Cells[i,0]='' then 
C[i-1]:=0 
else
C[i-1]:=StrToFloat(StringGrid1.Cells[0,i]);

if StringGrid2.Cells[0,i]='' then 
D[i-1]:=0 
else
D[i-1]:=StrToFloat(StringGrid2.Cells[0,i]);