приведение типов

← →
k_len (2003-09-17 06:39) [0]

Эта строка выдает ошибку
if trim(a1[i-1][1])<>"" then FieldByName("Area").AsFloat :=StrToFloat(a1[i-1][1]);
а1- массив строк, поле "Area"-вещественое. Почему?

← →
Ильш (2003-09-17 06:47) [1]

ОШИБКА КАКАЯ??? Что пишет то?
"!Ошибка!!Ошибка!" ???? или "В этой строке ошибся ты, сын мой!"
Напиши что за ошибка то?
Что за быза пользуешь. Ситуацию обрисуй конкретнее!

← →
k_len (2003-09-17 07:00) [2]

Ошибка в разделителе целой и дробной части, у меня стоит точка, а системный - запт, что сделать чтобы воспринимались оба символа?
Спасибо!!!

← →
_Dllma (2003-09-17 07:11) [3]

Делай так:
s:=a1[i-1][1]; for i:=1 to length(s) do if s[i]="." then s[i]:=","; if trim(s)<>"" then FieldByName("Area").AsFloat :=StrToFloat(s);
Разумеется s:string, i:integer

← →
Думкин © (2003-09-17 07:14) [4]

DecimalSeparator := ".";

← →
Hooch © (2003-09-17 07:18) [5]

if trim(a1[i-1][1])<>"" then FieldByName("Area").AsFloat :=FloatToStr(ReplaceStr(a1[i-1][1],",","."));

ошибся, вернее
ReplaceStr(a1[i-1][1],",",DecimalSeparator));

блин, не высплася что ли :-)

ReplaceStr(a1[i-1][1], "." ,DecimalSeparator));

приведение типов Найти похожие ветки