Исключение класса EConvertError с сообщением что is not valid floating point value

10.06.2006, 23:02. **Показов** 8683. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Delphi

const
  G1=100;
type
  GG=array[1..G1, 1..G1] of extended;
var
  n:integer;
  Form1: TForm1;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
StringGrid1.ColCount:=n;
StringGrid1.RowCount:=n;
StringGrid2.ColCount:=n;
StringGrid2.RowCount:=n;
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
var
i, j, z, f, g:integer;
t:extended;
a:GG;
begin
n:=StrToInt(Edit1.Text);
for i:=1 to n do
for j:=1 to n do
a[i, j]:=StrToFloat(StringGrid1.Cells[i, j]);

На этом месте программы вылитает ошибка, всё два раза перепроверил, но не могу понять в чём ошибкиа, извените за ламерский вопрос, зараннее благодарен.
Ошибка : Исключение класса EConvertError с сообщением что " is not valid floating point value. Ошибка похожа на ту, когда пытаешся сделать StrTOInt и считываешь, пустату или пробел..... но я заполнил всё числами.

@DannerDOS · 01.01.2010, 16:35

Вообщем: В данном примере тип массива не соответствует типу задаваемых значений...

@verzer · 01.01.2010, 18:27

проблема может быть в разделителе целой и дробной части
по идее, по-умолчанию он должен браться из региональных настроек винды. а сменить можно так:

Delphi

1	DecimalSeparator := '.';

Добавлено через 2 минуты
ещё есть такие полезные не порождающие исключений функции как TryStrToFloat и StrToFloatDef

@DannerDOS Programmer 40 / 40 / 6 Регистрация: 07.04.2009 Сообщений: 187
	01.01.2010, 16:35	2
	Вообщем: В данном примере тип массива не соответствует типу задаваемых значений... 0

	01.01.2010, 18:27