Ох уж эти таблицы !!!...
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 "GUNIX01.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1TForm1(TComponent* Owner)
TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1FormCreate(TObject *Sender)
{
String info;
TStringList *MyList=new TStringList;
MyList->LoadFromFile("c\\ECONOM\\kop");
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("DATE")->AsString=a1;
Table1->FieldByName("OSB")->AsString=a2;
Table1->FieldByName("FOSB")->AsString=a3;
Table1->FieldByName("SUMPL1")->AsString=a4;
Table1->FieldByName("PLBUDJ")->AsString=a5;
Table1->FieldByName("KOLPL")->AsString=a6;
Table1->FieldByName("KOLPLB")->AsString=a7;
Table1->FieldByName("KMSF")->AsString=a8;};}
//--------------------------
Цитата:
On 2001-12-03 1445, gena01 wrote
И после всего этого последняя строка в таблицу БД не попадает.Более того - если принудительно заставляю прочитать то мне выдает следующий текст
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 "GUNIX01.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1TForm1(TComponent* Owner)
TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1FormCreate(TObject *Sender)
{
String info;
TStringList *MyList=new TStringList;
MyList->LoadFromFile("c\ECONOM\kop");
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("DATE")->AsString=a1;
Table1->FieldByName("OSB")->AsString=a2;
Table1->FieldByName("FOSB")->AsString=a3;
Table1->FieldByName("SUMPL1")->AsString=a4;
Table1->FieldByName("PLBUDJ")->AsString=a5;
Table1->FieldByName("KOLPL")->AsString=a6;
Table1->FieldByName("KOLPLB")->AsString=a7;
Table1->FieldByName("KMSF")->AsString=a8;};}
//--------------------------
Items индексируются с 0, а не с 1 и k++ на последней записи тебе вываливает эту ошибку.