Читаю информ из файла в виде STRING!!!!

← →
backham 23 (2004-06-30 15:16) [0]

Читаю из Текстого файла число состоящего из 20 цифр как строку(STRING.....) вот только проблемма ...пытаюсь запихать его в таблицу(PARADOX) Tabl1.......а не знаю как в качестве ПАРАМЕТРА подсунуть в Query..... другие параметры проходят ...А вот этот ну никак ...ПОДСКАЖИТЕ пожалуйста

← →
Соловьев © (2004-06-30 15:19) [1]

> ПОДСКАЖИТЕ пожалуйста

как делаешь? приведи код

← →
backham 23 (2004-06-30 15:26) [2]

while not EOF(f) do begin
Readln(f,s);
fam:=copy(s,1,(Pos(",", S)-1));
delete(s,1,Pos(",", S));
name:=copy(s,1,(Pos(",", S)-1));
delete(s,1,Pos(",", S));
otch:=copy(s,1,(Pos(",", S)-1));
delete(s,1,Pos(",", S));
ID_v:=copy(s,1,(Pos(",", S)-1));
delete(s,1,Pos(",", S));
ID_val:=copy(s,1,(Pos(",", S)-1));
delete(s,1,Pos(",", S));
Qvisa.Params[0].asstring:=fam;
Qvisa.Params[1].asstring:=name;
Qvisa.Params[2].asstring:=otch;
Qvisa.Params[3].AsInteger:=id_v;!!!!!!!!!!!!!!!!
Qvisa.Params[4].AsSmallInt:=id_val;
Qvisa.Params[5].AsWord:=summa;
QVisa.ExecSQL;

CloseFile(F);

← →
Соловьев © (2004-06-30 15:29) [3]

> Qvisa.Params[3].AsInteger:=id_v;!!!!!!!!!!!!!!!!

Qvisa.Params[3].AsInteger:=StrToInt(id_v);

← →
Sandman25 © (2004-06-30 15:30) [4]

или
Qvisa.Params[3].AsString := id_v

← →
Соловьев © (2004-06-30 15:32) [5]

> Qvisa.Params[4].AsSmallInt:=id_val;
> Qvisa.Params[5].AsWord:=summa;

и сюда тоже

← →
backham 23 (2004-06-30 15:33) [6]

на STRtoINT ругается говорит что выходит за пределы ..32768

StrToInt64

Читаю информ из файла в виде STRING!!!! Найти похожие ветки