Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Ох уж эти таблицы !!!...

531
03 декабря 2001 года
gena01
8 / / 20.12.1999
И после всего этого последняя строка в таблицу БД не попадает.Более того - если принудительно заставляю прочитать то мне выдает следующий текст

Project ... raised exception class EStringListError with message "List index out of bounds[755].Process stopped.Use Step or Run to continue.

#include <vcl.h>
#include <string.h>
#include <stdio.h>
#include <cstring.h>
#pragma hdrstop

#include &quot;GUNIX01.h&quot;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource &quot;*.dfm&quot;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1TForm1(TComponent* Owner)
TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1FormCreate(TObject *Sender)
{
String info;
TStringList *MyList=new TStringList;
MyList->LoadFromFile(&quot;c\\ECONOM\\kop&quot;);
ListBox1->Items->AddStrings(MyList);
int fd=ListBox1->Items->Count;
ShowMessage(fd);
for(int k=1;k<fd ;k++)
{ String a=ListBox1->Items->Strings[k];
ShowMessage(a);
String a1=a.SubString(1,11);
String a2=a.SubString(13,4);
String a3=a.SubString(18,4);
String a4=a.SubString(23,10);
String a5=a.SubString(34,10);
String a6=a.SubString(45,10);
String a7=a.SubString(56,10);
String a8=a.SubString(67,10);
Table1->Open();
Table1->Insert();
Table1->FieldByName(&quot;DATE&quot;)->AsString=a1;
Table1->FieldByName(&quot;OSB&quot;)->AsString=a2;
Table1->FieldByName(&quot;FOSB&quot;)->AsString=a3;
Table1->FieldByName(&quot;SUMPL1&quot;)->AsString=a4;
Table1->FieldByName(&quot;PLBUDJ&quot;)->AsString=a5;
Table1->FieldByName(&quot;KOLPL&quot;)->AsString=a6;
Table1->FieldByName(&quot;KOLPLB&quot;)->AsString=a7;
Table1->FieldByName(&quot;KMSF&quot;)->AsString=a8;};}
//--------------------------
Аноним
Цитата:

On 2001-12-03 1445, gena01 wrote
И после всего этого последняя строка в таблицу БД не попадает.Более того - если принудительно заставляю прочитать то мне выдает следующий текст

Project ... raised exception class EStringListError with message &quot;List index out of bounds[755].Process stopped.Use Step or Run to continue.

#include <vcl.h>
#include <string.h>
#include <stdio.h>
#include <cstring.h>
#pragma hdrstop

#include &quot;GUNIX01.h&quot;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource &quot;*.dfm&quot;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1TForm1(TComponent* Owner)
TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1FormCreate(TObject *Sender)
{
String info;
TStringList *MyList=new TStringList;
MyList->LoadFromFile(&quot;c\ECONOM\kop&quot;);
ListBox1->Items->AddStrings(MyList);
int fd=ListBox1->Items->Count;
ShowMessage(fd);
for(int k=1;k<fd ;k++)
{ String a=ListBox1->Items->Strings[k];
ShowMessage(a);
String a1=a.SubString(1,11);
String a2=a.SubString(13,4);
String a3=a.SubString(18,4);
String a4=a.SubString(23,10);
String a5=a.SubString(34,10);
String a6=a.SubString(45,10);
String a7=a.SubString(56,10);
String a8=a.SubString(67,10);
Table1->Open();
Table1->Insert();
Table1->FieldByName(&quot;DATE&quot;)->AsString=a1;
Table1->FieldByName(&quot;OSB&quot;)->AsString=a2;
Table1->FieldByName(&quot;FOSB&quot;)->AsString=a3;
Table1->FieldByName(&quot;SUMPL1&quot;)->AsString=a4;
Table1->FieldByName(&quot;PLBUDJ&quot;)->AsString=a5;
Table1->FieldByName(&quot;KOLPL&quot;)->AsString=a6;
Table1->FieldByName(&quot;KOLPLB&quot;)->AsString=a7;
Table1->FieldByName(&quot;KMSF&quot;)->AsString=a8;};}
//--------------------------


Items индексируются с 0, а не с 1 и k++ на последней записи тебе вываливает эту ошибку.

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог