c++builder怎么导出StringGrid单元格数据，再用Curves画出曲线图？
来源：网友推荐 更新：2025-05-15
c++builder中如何把txt文件读到stringGrid表格中
AnsiString ff[52]={"A","B","C","D","E","F","G",
"H","I","J","K","L","M","N",
"O","P","Q","R","S","T","U",
"V","W","X","Y","Z","AA","AB",
"AC","AD","AE","AF","AG","AH",
"AI","AJ","AK","AL","AM","AN",
"AO","AP","AQ","AR","AS","AT",
"AU","AV","AW","AX","AY","AZ"
};
MessageBox(NULL,"准备将数据库中的数据导出为Excel文件\n导出时间视您的机器配置情况而异\n在此期间，你的系统可能会暂时处于无响应状态，请耐心等候\n单击确定开始导出操作","提示",64+MB_TOPMOST);
int i;
TDateTime DT;
unsigned short Year,Month,Day;
AnsiString ntime,nYear,nMonth,nDay,t1,t2;
ntime=DateTimePicker1->Date.DateString();
DT=StrToDateTime(ntime);
DT.DecodeDate(&Year,&Month,&Day);
nYear = IntToStr(Year);
if(Month<10)
nMonth = "0"+IntToStr(Month);
else
nMonth =IntToStr(Month);
if(Day<10)
nDay = "0"+IntToStr(Day);
else
nDay = IntToStr(Day);
t1=nYear+"年"+nMonth+"月"+nDay+"日";
ntime=DateTimePicker2->Date.DateString();
DT=StrToDateTime(ntime);
DT.DecodeDate(&Year,&Month,&Day);
nYear = IntToStr(Year);
if(Month<10)
nMonth = "0"+IntToStr(Month);
else
nMonth =IntToStr(Month);
if(Day<10)
nDay = "0"+IntToStr(Day);
else
nDay = IntToStr(Day);
t2=nYear+"年"+nMonth+"月"+nDay+"日";
int n;
AnsiString mysql,ss[100];
mysql="select * from NewHorse Where 检测时间 between '"+t1+"' and '"+t2+"'";
n=ListBox2->Items->Count;
for(i=0;i<n;i++)
ss[i]=ListBox2->Items->Strings[i];
try
{
Button5->Enabled = false;
Button6->Enabled = false;//使两个按钮无效
//file://取报表文件CardSend.xls的完整目录名
AnsiString ExcelFileName = GetCurrentDir()+"\\trpt\\NewBook.xls";
if(!FileExists(ExcelFileName))
{
Application->MessageBox("报表模板文件不存在,无法打开！","错误",MB_ICONSTOP|MB_OK);
return;
}
//file://建立Excel的Ole对象Ex
try
{
Ex = Variant::CreateObject("Excel.Application");
}
catch(...)
{
Application->MessageBox("无法启动Excel","错误",MB_ICONSTOP|MB_OK);
return;
}
//file://设置Excel为不可见
Ex.OlePropertySet("Visible",false);
//file://打开指定的Excel报表文件。报表文件中最好设定只有一个Sheet。
Ex.OlePropertyGet("WorkBooks").OleProcedure("Open",ExcelFileName.c_str());
Wb = Ex.OlePropertyGet("ActiveWorkBook");
Sheet = Wb.OlePropertyGet("ActiveSheet");//获得当前默认的Sheet
//file://清空Excel表，这里是用循环清空到第300行。对于一般的表格已经足够了。
AnsiString strRowTemp;
AnsiString strRange;
int iCols,iRows;//记录列数和行数
/*从第三行开始，到第300行止。一般第一行是表标题，第二行是副标题或者制表日期。*/
for(iRows=3;iRows<1500;iRows++)
{ //file://假设只有6列。
for (iCols = 1;iCols < n+1; iCols++)
{
//file://清空行
Sheet.OlePropertyGet("Cells",iRows,iCols).OlePropertySet("Value","");
}
//file://去掉表格边框
strRange = "A"+IntToStr(iRows)+":"+ff[n-1]+IntToStr(iRows);//获取操作范围
ERange = Sheet.OlePropertyGet("Range",strRange.c_str());
EBorders = ERange.OlePropertyGet("Borders");//获取边框对象
EBorders.OlePropertySet("linestyle",xlNone);
}
AnsiString strPtrDate,strYear,strMonth,strDay; //file://存放当前日期，作为制表日期
DateSeparator = '-';
ShortDateFormat = "yyyy/m/d";//设置为年/月/日格式
strPtrDate = DateToStr(Date());//取当前日期
if(strPtrDate.SubString(3,1)=="-")
{
strYear = "20"+strPtrDate.SubString(1,2);
strPtrDate = strPtrDate.SubString(6,strPtrDate.Length()-3);
strMonth = strPtrDate.SubString(1,strPtrDate.Pos("-")-1);
strDay =strPtrDate.SubString(strPtrDate.Pos("-")+1,strPtrDate.Length()-strPtrDate.Pos("-"));
}
else
{
strYear = strPtrDate.SubString(1,4);
strPtrDate = strPtrDate.SubString(6,strPtrDate.Length()-5);
strMonth = strPtrDate.SubString(1,strPtrDate.Pos("-")-1);
strDay =strPtrDate.SubString(strPtrDate.Pos("-")+1,strPtrDate.Length()-strPtrDate.Pos("-"));
}strPtrDate = strYear+"年"+strMonth+"月"+strDay+"日";
AnsiString strData = "新建建筑物检测报告清单";//报表标题
//file://将报表标题置于第一行第一列。在此之前，应将报表文件的标题格式设定好。
Sheet.OlePropertyGet("Cells",1,1).OlePropertySet("Value",strData.c_str());
//file://将制表日期置于表格第二行的右侧。
Sheet.OlePropertyGet("Cells",2,n).OlePropertySet("Value",strPtrDate.c_str());
iRows = 3;//在第三行放置表格的列名
for(i=0;i<n;i++)
Sheet.OlePropertyGet("Cells",iRows,i+1).OlePropertySet("Value",ss[i].c_str());
//file://画表格边框，在A3：F3之间取范围
strRange = "A"+IntToStr(iRows)+":"+ff[n-1]+IntToStr(iRows);
ERange = Sheet.OlePropertyGet("Range",strRange.c_str());
EBorders = ERange.OlePropertyGet("Borders");
EBorders.OlePropertySet("linestyle",xlContinuous);
EBorders.OlePropertySet("weight",xlThin);
EBorders.OlePropertySet("colorindex",xlAutomatic);
iRows++;
//file://从数据库中取数据(略)，假设数据集放入Query1中。
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(mysql);
ADOQuery1->Open();//打开数据集
//file://循环取数
while(!ADOQuery1->Eof)
{
//file://循环取字段的数据放到Excel表对应的行列中
for(iCols=1;iCols<n+1;iCols++)
{
strRowTemp = ADOQuery1->FieldByName(ss[iCols-1])->AsString;
Sheet.OlePropertyGet("Cells",iRows,iCols).OlePropertySet("Value",strRowTemp.c_str());
}
//file://画该行的表格边框
strRange = "A"+IntToStr(iRows)+":"+ff[n-1]+IntToStr(iRows);
ERange = Sheet.OlePropertyGet("Range",strRange.c_str());
EBorders = ERange.OlePropertyGet("Borders");
EBorders.OlePropertySet("linestyle",xlContinuous);
EBorders.OlePropertySet("weight",xlThin);
EBorders.OlePropertySet("colorindex",xlAutomatic);
iRows++;
ADOQuery1->Next();
}//while结束
Wb.OleProcedure("Save");//保存表格
Wb.OleProcedure("Close");//关闭表格
Ex.OleFunction("Quit");//退出Excel
//file://定义目标文件名
AnsiString DestinationFile = GetCurrentDir()+"\\report\\NewBook.xls";
//file://将刚刚修改的Excel表格文件table.xls拷贝到report目录下
if(!CopyFile(ExcelFileName.c_str(),DestinationFile.c_str(),false))
{
Application->MessageBox("复制文件操作失败,Excel文件可能正在使用中！","错误",MB_ICONSTOP|MB_OK);
return;
}
Application->MessageBox("成功完成报表保存！\n可以按\'查看Excel数据表\'按钮进行报表工作","提示",MB_ICONINFORMATION|MB_OK);
Button6->Enabled = true;
Button5->Enabled=true;
}//try结束
catch(...)
{
Application->MessageBox("操作Excel表格失败！","错误",MB_ICONSTOP|MB_OK);
Wb.OleProcedure("Close");
Ex.OleFunction("Quit");
Button5->Enabled = true;
Button6->Enabled=false;
}
钦南区内眼：HBuilder 使用教程
卞祥17837813700： 使用HBuilder新建项目 依次点击文件新建选择Web项目(按下Ctrl+N,W可以触发快速新建(MacOS请使用Command+N,然后左键点击Web项目))如上图，请在A处填写新建项目的名称，B处填写(或选择)项目保存路径(更改此路径HBuilder会记录，下次默认使用更改后的路径)，C处可选择使用的模板(可点击自定义模板,参照打开...
钦南区内眼：c++builder RichEdit问题
卞祥17837813700： String st2=RichEdit2->Text;\/\/这是取到刚才输入的。String S=st2.SubString(st2.Length(),1);\/\/最后一个 strcpy(a,S.c_str()); \/\/把字符串转换成字符型char char i=a[0];Label3->Caption=i;String linkelem=H.show(time1-1); \/\/对应链表中的数 strcpy(b,linkelem.c_str...
钦南区内眼：用C++Builder编写去掉字符串左右两边空格的问题。不要使用已有的函数...
卞祥17837813700： } while ((st < len) && (str [ len - 1] <= ' ')) { len--;} return ((st > 0) || (len < count)) ? str.substr(st, len) : str;} str.substr(st, len) 这个意思您能理解吧，不让用自己复制一下这段字符串就完了。
钦南区内眼：AutoPlay Menu Builder V5.2雨盟版是干什么的
卞祥17837813700： AutoPlay Menu Builder 是一个功能强大的光盘自动运行菜单制作工具。在它的 帮助下，您不需要具备任何专业的编程知识，只需要经过简单的鼠标拖放和点击就可 以轻松制作出漂亮的自动运行菜单程序。通过自动运行菜单，您可以完成诸如运行程 序、打开文档、播放影片、浏览网页、撰写邮件等许多操作。本软...
钦南区内眼：请问各位大师 谁能给我讲一下 各种文件的后缀是怎么定义的 有什么规律...
卞祥17837813700： DUN Microsoft拔号网络导出文件 DV 数字视频文件(MIME) DWD DiamondWare数字化文件 DWG AutoCAD工程图文件;AutoCAD或Generic CADD老版本的绘图格式 DXF 可进行互交换的绘图文件格式,二进制的DWG格式的文本表示;数据交换文件 DXR Macromedia Director受保护(不可编辑)电影文件 D64 Commodore的64位模拟磁盘图像文件 EDA ...
钦南区内眼：电脑里的文件怎么识别
卞祥17837813700： ASD Microsoft Word的自动保存文件;Microsoft高级流媒体格式 microsoft advanced st reaming format,ASF 的描述文件;可用NSREX打开 Velvet Studio例子文件 ASE Velvet Studio采样文件 ASF Microsoft高级流媒体格式文件 ASM 汇编语言源文件,Pro\/E装配文件 ASO Astound Dynamite对象文件 ...
钦南区内眼：HBuilder使用教程
卞祥17837813700： div也可以通过代码块生成如输入divc回车回车回车,输入helloworld如下图 向下,回车 使用CSS选择器语法来快速开发HTML和CSS(支持emmet)输入div#page>div.logo+ul#navigation>li*2>a,按下tab生成代码如下图 HBuilder集成了emmet功能,可以通过CSS选择器语法来快速开发HTML和CSS,如想深入了解emmet请移步http:...
钦南区内眼：HBuilder使用教程入门篇
卞祥17837813700： 使用HBuilder新建项目 依次点击文件→新建→选择Web项目(按下Ctrl+N,W可以触发快速新建(MacOS请使用Command+N,然后左键点击Web项目))如上图，请在A处填写新建项目的名称，B处填写(或选择)项目保存路径(更改此路径HBuilder会记录，下次默认使用更改后的路径)，C处可选择使用的模板(可点击自定义模板,参照...
你好！
1、先打开 txt 文件
2、根据需要按行和分隔符，读取 txt 数据
3、将数据写入 stringGrid 并显示
procedure TForm1.FormCreate(Sender: TObject);var i,j:Integer;begin for i:=0 to 5 do for j:=0 to 50 do StringGrid1.Cells[i,j]:=IntToStr(100); StringGrid1.Options:=StringGrid1.Options+[goEditing];end;procedure TForm1.StringGrid1Click(Sender: TObject);begin StringGrid1.EditorMode:=True;end; 查看原帖>>
下面是个例子，不过是数据库的，你适当修改一下就可以用了！AnsiString ff[52]={"A","B","C","D","E","F","G",
"H","I","J","K","L","M","N",
"O","P","Q","R","S","T","U",
"V","W","X","Y","Z","AA","AB",
"AC","AD","AE","AF","AG","AH",
"AI","AJ","AK","AL","AM","AN",
"AO","AP","AQ","AR","AS","AT",
"AU","AV","AW","AX","AY","AZ"
};
MessageBox(NULL,"准备将数据库中的数据导出为Excel文件\n导出时间视您的机器配置情况而异\n在此期间，你的系统可能会暂时处于无响应状态，请耐心等候\n单击确定开始导出操作","提示",64+MB_TOPMOST);
int i;
TDateTime DT;
unsigned short Year,Month,Day;
AnsiString ntime,nYear,nMonth,nDay,t1,t2;
ntime=DateTimePicker1->Date.DateString();
DT=StrToDateTime(ntime);
DT.DecodeDate(&Year,&Month,&Day);
nYear = IntToStr(Year);
if(Month<10)
nMonth = "0"+IntToStr(Month);
else
nMonth =IntToStr(Month);
if(Day<10)
nDay = "0"+IntToStr(Day);
else
nDay = IntToStr(Day);
t1=nYear+"年"+nMonth+"月"+nDay+"日";
ntime=DateTimePicker2->Date.DateString();
DT=StrToDateTime(ntime);
DT.DecodeDate(&Year,&Month,&Day);
nYear = IntToStr(Year);
if(Month<10)
nMonth = "0"+IntToStr(Month);
else
nMonth =IntToStr(Month);
if(Day<10)
nDay = "0"+IntToStr(Day);
else
nDay = IntToStr(Day);
t2=nYear+"年"+nMonth+"月"+nDay+"日";
int n;
AnsiString mysql,ss[100];
mysql="select * from NewHorse Where 检测时间 between '"+t1+"' and '"+t2+"'";
n=ListBox2->Items->Count;
for(i=0;i<n;i++)
ss[i]=ListBox2->Items->Strings[i];
try
{
Button5->Enabled = false;
Button6->Enabled = false;//使两个按钮无效
//file://取报表文件CardSend.xls的完整目录名
AnsiString ExcelFileName = GetCurrentDir()+"\\trpt\\NewBook.xls";
if(!FileExists(ExcelFileName))
{
Application->MessageBox("报表模板文件不存在,无法打开！","错误",MB_ICONSTOP|MB_OK);
return;
}
//file://建立Excel的Ole对象Ex
try
{
Ex = Variant::CreateObject("Excel.Application");
}
catch(...)
{
Application->MessageBox("无法启动Excel","错误",MB_ICONSTOP|MB_OK);
return;
}
//file://设置Excel为不可见
Ex.OlePropertySet("Visible",false);
//file://打开指定的Excel报表文件。报表文件中最好设定只有一个Sheet。
Ex.OlePropertyGet("WorkBooks").OleProcedure("Open",ExcelFileName.c_str());
Wb = Ex.OlePropertyGet("ActiveWorkBook");
Sheet = Wb.OlePropertyGet("ActiveSheet");//获得当前默认的Sheet
//file://清空Excel表，这里是用循环清空到第300行。对于一般的表格已经足够了。
AnsiString strRowTemp;
AnsiString strRange;
int iCols,iRows;//记录列数和行数
/*从第三行开始，到第300行止。一般第一行是表标题，第二行是副标题或者制表日期。*/
for(iRows=3;iRows<1500;iRows++)
{ //file://假设只有6列。
for (iCols = 1;iCols < n+1; iCols++)
{
//file://清空行
Sheet.OlePropertyGet("Cells",iRows,iCols).OlePropertySet("Value","");
}
//file://去掉表格边框
strRange = "A"+IntToStr(iRows)+":"+ff[n-1]+IntToStr(iRows);//获取操作范围
ERange = Sheet.OlePropertyGet("Range",strRange.c_str());
EBorders = ERange.OlePropertyGet("Borders");//获取边框对象
EBorders.OlePropertySet("linestyle",xlNone);
}
AnsiString strPtrDate,strYear,strMonth,strDay; //file://存放当前日期，作为制表日期
DateSeparator = '-';
ShortDateFormat = "yyyy/m/d";//设置为年/月/日格式
strPtrDate = DateToStr(Date());//取当前日期
if(strPtrDate.SubString(3,1)=="-")
{
strYear = "20"+strPtrDate.SubString(1,2);
strPtrDate = strPtrDate.SubString(6,strPtrDate.Length()-3);
strMonth = strPtrDate.SubString(1,strPtrDate.Pos("-")-1);
strDay =strPtrDate.SubString(strPtrDate.Pos("-")+1,strPtrDate.Length()-strPtrDate.Pos("-"));
}
else
{
strYear = strPtrDate.SubString(1,4);
strPtrDate = strPtrDate.SubString(6,strPtrDate.Length()-5);
strMonth = strPtrDate.SubString(1,strPtrDate.Pos("-")-1);
strDay =strPtrDate.SubString(strPtrDate.Pos("-")+1,strPtrDate.Length()-strPtrDate.Pos("-"));
}strPtrDate = strYear+"年"+strMonth+"月"+strDay+"日";
AnsiString strData = "新建建筑物检测报告清单";//报表标题
//file://将报表标题置于第一行第一列。在此之前，应将报表文件的标题格式设定好。
Sheet.OlePropertyGet("Cells",1,1).OlePropertySet("Value",strData.c_str());
//file://将制表日期置于表格第二行的右侧。
Sheet.OlePropertyGet("Cells",2,n).OlePropertySet("Value",strPtrDate.c_str());
iRows = 3;//在第三行放置表格的列名
for(i=0;i<n;i++)
Sheet.OlePropertyGet("Cells",iRows,i+1).OlePropertySet("Value",ss[i].c_str());
//file://画表格边框，在A3：F3之间取范围
strRange = "A"+IntToStr(iRows)+":"+ff[n-1]+IntToStr(iRows);
ERange = Sheet.OlePropertyGet("Range",strRange.c_str());
EBorders = ERange.OlePropertyGet("Borders");
EBorders.OlePropertySet("linestyle",xlContinuous);
EBorders.OlePropertySet("weight",xlThin);
EBorders.OlePropertySet("colorindex",xlAutomatic);
iRows++;
//file://从数据库中取数据(略)，假设数据集放入Query1中。
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(mysql);
ADOQuery1->Open();//打开数据集
//file://循环取数
while(!ADOQuery1->Eof)
{
//file://循环取字段的数据放到Excel表对应的行列中
for(iCols=1;iCols<n+1;iCols++)
{
strRowTemp = ADOQuery1->FieldByName(ss[iCols-1])->AsString;
Sheet.OlePropertyGet("Cells",iRows,iCols).OlePropertySet("Value",strRowTemp.c_str());
}
//file://画该行的表格边框
strRange = "A"+IntToStr(iRows)+":"+ff[n-1]+IntToStr(iRows);
ERange = Sheet.OlePropertyGet("Range",strRange.c_str());
EBorders = ERange.OlePropertyGet("Borders");
EBorders.OlePropertySet("linestyle",xlContinuous);
EBorders.OlePropertySet("weight",xlThin);
EBorders.OlePropertySet("colorindex",xlAutomatic);
iRows++;
ADOQuery1->Next();
}//while结束
Wb.OleProcedure("Save");//保存表格
Wb.OleProcedure("Close");//关闭表格
Ex.OleFunction("Quit");//退出Excel
//file://定义目标文件名
AnsiString DestinationFile = GetCurrentDir()+"\\report\\NewBook.xls";
//file://将刚刚修改的Excel表格文件table.xls拷贝到report目录下
if(!CopyFile(ExcelFileName.c_str(),DestinationFile.c_str(),false))
{
Application->MessageBox("复制文件操作失败,Excel文件可能正在使用中！","错误",MB_ICONSTOP|MB_OK);
return;
}
Application->MessageBox("成功完成报表保存！\n可以按\'查看Excel数据表\'按钮进行报表工作","提示",MB_ICONINFORMATION|MB_OK);
Button6->Enabled = true;
Button5->Enabled=true;
}//try结束
catch(...)
{
Application->MessageBox("操作Excel表格失败！","错误",MB_ICONSTOP|MB_OK);
Wb.OleProcedure("Close");
Ex.OleFunction("Quit");
Button5->Enabled = true;
Button6->Enabled=false;
}
卞祥17837813700： 使用HBuilder新建项目 依次点击文件新建选择Web项目(按下Ctrl+N,W可以触发快速新建(MacOS请使用Command+N,然后左键点击Web项目))如上图，请在A处填写新建项目的名称，B处填写(或选择)项目保存路径(更改此路径HBuilder会记录，下次默认使用更改后的路径)，C处可选择使用的模板(可点击自定义模板,参照打开...
卞祥17837813700： String st2=RichEdit2->Text;\/\/这是取到刚才输入的。String S=st2.SubString(st2.Length(),1);\/\/最后一个 strcpy(a,S.c_str()); \/\/把字符串转换成字符型char char i=a[0];Label3->Caption=i;String linkelem=H.show(time1-1); \/\/对应链表中的数 strcpy(b,linkelem.c_str...
卞祥17837813700： } while ((st < len) && (str [ len - 1] <= ' ')) { len--;} return ((st > 0) || (len < count)) ? str.substr(st, len) : str;} str.substr(st, len) 这个意思您能理解吧，不让用自己复制一下这段字符串就完了。
卞祥17837813700： AutoPlay Menu Builder 是一个功能强大的光盘自动运行菜单制作工具。在它的 帮助下，您不需要具备任何专业的编程知识，只需要经过简单的鼠标拖放和点击就可 以轻松制作出漂亮的自动运行菜单程序。通过自动运行菜单，您可以完成诸如运行程 序、打开文档、播放影片、浏览网页、撰写邮件等许多操作。本软...
卞祥17837813700： DUN Microsoft拔号网络导出文件 DV 数字视频文件(MIME) DWD DiamondWare数字化文件 DWG AutoCAD工程图文件;AutoCAD或Generic CADD老版本的绘图格式 DXF 可进行互交换的绘图文件格式,二进制的DWG格式的文本表示;数据交换文件 DXR Macromedia Director受保护(不可编辑)电影文件 D64 Commodore的64位模拟磁盘图像文件 EDA ...
卞祥17837813700： ASD Microsoft Word的自动保存文件;Microsoft高级流媒体格式 microsoft advanced st reaming format,ASF 的描述文件;可用NSREX打开 Velvet Studio例子文件 ASE Velvet Studio采样文件 ASF Microsoft高级流媒体格式文件 ASM 汇编语言源文件,Pro\/E装配文件 ASO Astound Dynamite对象文件 ...
卞祥17837813700： div也可以通过代码块生成如输入divc回车回车回车,输入helloworld如下图 向下,回车 使用CSS选择器语法来快速开发HTML和CSS(支持emmet)输入div#page>div.logo+ul#navigation>li*2>a,按下tab生成代码如下图 HBuilder集成了emmet功能,可以通过CSS选择器语法来快速开发HTML和CSS,如想深入了解emmet请移步http:...
卞祥17837813700： 使用HBuilder新建项目 依次点击文件→新建→选择Web项目(按下Ctrl+N,W可以触发快速新建(MacOS请使用Command+N,然后左键点击Web项目))如上图，请在A处填写新建项目的名称，B处填写(或选择)项目保存路径(更改此路径HBuilder会记录，下次默认使用更改后的路径)，C处可选择使用的模板(可点击自定义模板,参照...
