Форум: "Основная";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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],",","."));

---

← →
Hooch   (2003-09-17 07:19) [6]

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

---

← →
Hooch   (2003-09-17 07:20) [7]

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

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c