amyz的博客

暂无签名

  • 博客访问: 7200787
  • 博文数量: 5103
  • 用 户 组: 普通用户
  • 注册时间: 1970-01-01 08:00
个人简介

鏆傛棤浠嬬粛

文章分类

全部博文(5103)

文章存档

2008年(7)

2007年(5096)

我的朋友

分类: IT综合技术

2008-03-22 16:59:40

TList,AnsiString和DynamicArray的妙用 (转)[@more@]

  System::AnsiString LabPath=ExtractFilePath(".");
  TIniFile *LabIni=new TIniFile(LabPath+"LabIni.ini");

void myList::ReadList(AnsiString TS)
{
  System::AnsiString LabPath=ExtractFilePath(".");
  TIniFile *LabIni=new TIniFile(LabPath+"LabIni.ini");

  Form2->AddList();
  for(int i=0;iLabelList->Count;i++)
  {
  TLabel *Lab;
  Lab=(TLabel *)Form2->LabelList->Items[i];
  Lab->Left=LabIni->ReadInteger(TS,"Left"+IntToStr(i), Lab->Left);
  Lab->Top=LabIni->ReadInteger(TS,"Top"+IntToStr(i),Lab->Top);
  }
}

//----------------------------------------------------------------------------
void myList::WriteList(AnsiString TS)
{
  System::AnsiString LabPath=ExtractFilePath(".");
  TIniFile *LabIni=new TIniFile(LabPath+"LabIni.ini");
  Form2->AddList();
  for(int i=0;iLabelList->Count;i++)
  {
  TLabel *Lab;
  Lab=(TLabel *)Form2->LabelList->Items[i];
  LabIni->WriteInteger(TS,"Left"+IntToStr(i), Lab->Left);
  LabIni->WriteInteger(TS,"Top"+IntToStr(i),Lab->Top);
  }
}

file://----------------------------------------------------------------------------------------------------

struct mySEL {
  AnsiString PRUNO;
  int TOT_STK;//总进货
  int STK_PIN;//进货件数
  int STK_PBK;//退货件数
  int STK_PCS;//库存件数
  int STK_SAL;//销售件数
  int STK_PNT;//进货订货件数
  int STK_PONT;//销售订货件数
};
DynamicArraymySELArraymySELArray.Length=Query->RecordCount;
for(Query->First();!Query->Eof;Query->Next())
  {
  if(T){
  mySELArray[i].STK_SAL=Query->FieldbyName("SAL")->AsInteger;
  mySELArray[i].STK_PCS=Query->FieldByName("PCS")->AsInteger;
  mySELArray[i].PRUNO=Query->FieldByName("PRUNO")->AsString;
  }
  else
  {mySELArray[i].STK_PONT=Query->FieldByName("PNT")->AsInteger;
  mySELArray[i].PRUNO=Query->FieldByName("PRUNO")->AsString;
  }
  }


阅读(3168) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~
评论热议
请登录后评论。

登录 注册