TList,AnsiString和DynamicArray的妙用 (转)

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;
  }
  }


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-1001315/,如需转载,请注明出处,否则将追究法律责任。

转载于:http://blog.itpub.net/10752019/viewspace-1001315/

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
©️2021 CSDN 皮肤主题: 编程工作室 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值