Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Читаю информ из файла в виде STRING!!!! [D7, Paradox]

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

Соловьев (2004-06-30 15:35:00) [1]
StrToInt64

backham 23 (2004-06-30 15:33:00) [2]
на STRtoINT ругается говорит что выходит за пределы ..32768

Соловьев (2004-06-30 15:32:00) [3]

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

и сюда тоже

Sandman25 (2004-06-30 15:30:00) [4]
или
Qvisa.Params[3].AsString := id_v

Соловьев (2004-06-30 15:29:00) [5]

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

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

backham 23 (2004-06-30 15:26:00) [6]
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:19:00) [7]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »