f1book

[nexzis]

делаю задачу вывод значений из f1book куда нибудь
столкнулся с проблемой : нажимаю вывод - выводит ,НО выводит только 1 число дальше ставит какую то палочку .как это исправить?



procedure TForm1.F1SelChange(Sender: TObject);
var
c:array[1..6,1..3] of real;
an, am: integer;
r1,c1,r2,c2:integer;



begin
f1book1.GetSelection(0,r1,c1,r2,c2) ;

end;



procedure TForm1.Button5Click(Sender: TObject);
var i,j:integer; s:string ;
begin
s:='';
an:=r2-r1+1; am:=c2-c1+1;

//setlength(c,an,am);
for i:=1 to an do begin
for j:=1 to am do begin
{for i:=0 to an-1 do begin
for j:=0 to am-1 do begin}
c[i,j]:=F1book1.NumberRC[r1+i,c1+j];
s:=s+floattostr(c[i,j])+#9;
end;
s:=s+#13;
end;
memo1.text:=S;

end;
end.

[nexzis]

с помощью какой команды выводить на ф1бук?