Скачать: CL | DM;

Читаю информ из файла в виде 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

---

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

StrToInt64

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c