Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.29;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
1-96209
lex7
2003-09-18 09:33
2003.09.29
Копирование директории


6-96321
Котелок
2003-07-30 05:33
2003.09.29
NMpop3 savetoeml


3-96054
BTR
2003-09-07 18:57
2003.09.29
Упаковка dbf


14-96444
Hatchy
2003-09-09 15:30
2003.09.29
Посоветуйте винчестер...


3-96058
Solaris
2003-08-24 21:54
2003.09.29
проблема с русскими буквами в Database Desktop