13,825
社区成员
发帖
与我相关
我的任务
分享
//---------------------------------------------------------------------------
unsigned long long __fastcall StringToInt(String Str0)
{
unsigned long long tmp = 0;
for(int i=1,j=Str0.Length()-1; i<=Str0.Length(); ++i,--j)
{
if (Str0[i] == '1')
{
tmp += pow(2,j);
}
}
return tmp;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
unsigned long long int **num;
String Str0,value;
TStringList *List0;
List0 = new TStringList();
List0->LoadFromFile("D:\\测试文件.txt");
if (List0->Count == 0)
{
delete List0;
return;
}
num = new unsigned long long *[List0->Count];
for(int i=0; i<List0->Count; i++)
{
num[i] = new unsigned long long[3];
value = List0->Strings[i];
Str0 = value.SubString(1,64);
value.Delete(1,64);
num[i][0] = StringToInt(Str0);
Str0 = value.SubString(1,64);
value.Delete(1,64);
num[i][1] = StringToInt(Str0);
Str0 = value.SubString(1,64);
value.Delete(1,64);
num[i][2] = StringToInt(Str0);
}
//-----释放内存
for(int i=0; i<List0->Count; i++)
{
ShowMessage(num[i][0]);
ShowMessage(num[i][1]);
ShowMessage(num[i][2]);
delete[] num[i];
}
delete[] num;
delete List0;
}
//---------------------------------------------------------------------------
unsigned __int64 j=0;
for(int i=0;i<64;i++)
{
if(str[i+1]=='1')
j++;
if(i<63)
j*=2;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *MyList = new TStringList ;
MyList->LoadFromFile("C:\\3860.txt") ;
if(MyList->Count>1)
Memo1->Lines->Add(MyList->Strings[0]) ; //第一行的数据
delete MyList ;
}