text档存取Edit问题

[qoror]

请问要怎样把Edit1和Edit20的值存起来！
要如何加入到下面的程式码里面？

void __fastcall TForm1::Button1Click(TObject *Sender)
{ // 保存
if(C_YITF!=true) // true=自动存取指定文件，false=弹出对话框由用户选择
{
SaveDialog1->DefaultExt="txt"; // 预设文件扩展名
//SaveDialog1->FileName=ADOQuery1->FieldByName("iFile_Name")->AsString; // 预设要保存的文件名
//SaveDialog1->Filter="网址文件 .WEB|*.web"; // 显示的文件类型
if(SaveDialog1->Execute()!=true){
return; // 打开文件保存对话框，如果选择了取消就返回
}
C_QFTW=SaveDialog1->FileName; // 取得文件全路径
}

// 这里为了方便我们一次建立足够数量的行，为了使建立的速度足够快，这里使用了一些小技巧
int T_WAYO=K_QUSR->ColCount; // 取得StringGrid控件的总列数
int T_AFRV=K_QUSR->RowCount;
int tSize=C_QENS+T_WAYO*T_AFRV; // 要获得的行数，第一个100行我们保留下来，需要时放入一些说明和版权信息等
wchar_t *buffer1 = new wchar_t[tSize+1];
for(int n=0;n<tSize;n++){
buffer1[n]='\n';
}
buffer1[tSize]='\0';

K_GRAP->Clear(); // 清空
K_GRAP->Text=static_cast<String>(buffer1); // 注意：Add的话只能加一行
//K_GRAP->Strings[1]="111111111111";

delete [] buffer1;
//delete buffer1;
buffer1=NULL;

for(int I=0;I<T_AFRV;I++)
{
for(int J=0;J<T_WAYO;J++)
{
K_GRAP->Strings[C_QENS+I*T_WAYO+J]=K_QUSR->Cells[J][I]; // 此处会把包含换行符的文本作为一行处理
}
}
K_GRAP->Strings[11]=IntToStr(T_AFRV); // 行数
K_GRAP->Strings[12]=IntToStr(T_WAYO); // 列数
K_GRAP->SaveToFile(C_QFTW); // 保存文件
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{ // 读取数据并写入StringGrid控件的单元格
if(C_YITF!=true) // true=自动存取指定文件，false=弹出对话框由用户选择
{
//OpenDialog1->Options << ofAllowMultiSelect; // 打开文件多选属性
OpenDialog1->Options >> ofAllowMultiSelect; // 关闭文件多选属性
////OpenDialog1->DefaultExt=".dat"; // 自动添加的扩展名
OpenDialog1->Filter=
//"文本 文件 (*.txt;*.h;*.cpp)|*.txt;*.h;*.cpp"
//"|"
"所有文件 (*.*)|*.*" // 显示的文件类型
;

////OpenDialog1->FilterIndex=2; // 值从1开始，表示选择的文件格式
OpenDialog1->InitialDir=ExtractFilePath(ExpandFileName(Application->ExeName)); // 默认打开的目录，第一次运行时打开程序所在的目录，第一次打开目录时好用
//OpenDialog1->FileName=""; // 清空“文件名：”文本框
if(OpenDialog1->Execute()!=true)
{
return; // 打开文件选择对话框
}
////Memo1->Lines->LoadFromFile(OpenDialog1->FileName); // 把文件读取到Memo控件中
C_QFTW=OpenDialog1->FileName;
}
K_GRAP->Clear();
K_GRAP->LoadFromFile(C_QFTW); // 载入文件

int T_AFRV=StrToInt(K_GRAP->Strings[11]); // 取得StringGrid控件的总列数
int T_WAYO=StrToInt(K_GRAP->Strings[12]);
K_QUSR->ColCount=T_WAYO;
K_QUSR->RowCount=T_AFRV;

for(int I=0;I<T_AFRV;I++)
{
for(int J=0;J<T_WAYO;J++)
{
K_QUSR->Cells[J][I]=K_GRAP->Strings[C_QENS+I*T_WAYO+J];
}
}
}

[xjq2003]

Edit1和Edit20的值 保存到文件里吗？

try
	{
		int port,brd;

		TIniFile *ini;
		ini=new TIniFile(".//SAS_Config.ini");
		if(Trim(Axle2Edit->Text)!="")
		ActualWeight[0]=StrToInt(Axle2Edit->Text);
		ini->WriteInteger("实际车重","ActualWeight0",ActualWeight[0]);

		 delete ini;
	}
	catch(...)
	{
		//
	}

 读取
try
	{
		int port,brd;

		TIniFile *ini;
		ini=new TIniFile(".//SAS_Config.ini");
		if(Trim(Axle2Edit->Text)!="")
		//ActualWeight[0]=StrToInt(Axle2Edit->Text);
		ActualWeight[0]=ini->ReadInteger("实际车重","ActualWeight0",0);

		 delete ini;
	}
	catch(...)
	{
		//
	}

[qoror]

[qoror]

对 我想把Edit1->Text 和Edit20->Text 直保存起来 然后加入到我上面保存和读取得程序代码里面!! 请问要怎么加进来@@? 可以麻烦直接帮我写入到我的程序代码里面吗?

[qoror]

抱歉 发现有小地方弄错 成功了 void __fastcall TForm1::Button41Click(TObject *Sender) { // 保存 if(C_YITF!=true) // true=自?存取指定文件，false=?出??框由用??? { SaveDialog1->DefaultExt="txt"; // ??文件?展名 //SaveDialog1->FileName=ADOQuery1->FieldByName("iFile_Name")->AsString; // ??要保存的文件名 //SaveDialog1->Filter="网址文件 .WEB|*.web"; // ?示的文件?型 if(SaveDialog1->Execute()!=true){ return; // 打?文件保存??框，如果??了取消就返回 } C_QFTW=SaveDialog1->FileName; // 取得文件全路? } // ?里?了方便我?一次建立足??量的行，?了使建立的速度足?快，?里使用了一些小技巧 int T_WAYO=K_QUSR->ColCount; // 取得StringGrid控件的?列? int T_AFRV=K_QUSR->RowCount; float xl=StrToFloat(Edit1->Text); float yw=StrToFloat(Edit20->Text); int tSize=C_QENS+T_WAYO*T_AFRV; // 要?得的行?，第一?100行我?保留下?，需要?放入一些?明和版?信息等 wchar_t *buffer1 = new wchar_t[tSize+1]; for(int n=0;n<tSize;n++){ buffer1[n]='\n'; } buffer1[tSize]='\0'; K_GRAP->Clear(); // 清空 K_GRAP->Text=static_cast<String>(buffer1); // 注意：Add的?只能加一行 //K_GRAP->Strings[1]="111111111111"; delete [] buffer1; //delete buffer1; buffer1=NULL; for(int I=0;I<T_AFRV;I++) { for(int J=0;J<T_WAYO;J++) { K_GRAP->Strings[C_QENS+I*T_WAYO+J]=K_QUSR->Cells[J][I]; // 此??把包含?行符的文本作?一行?理 } } K_GRAP->Strings[11]=IntToStr(T_AFRV); // 行? K_GRAP->Strings[12]=IntToStr(T_WAYO); // 列? K_GRAP->Strings[13]=FloatToStr(xl); // 列? K_GRAP->Strings[14]=FloatToStr(yw); // 列? K_GRAP->SaveToFile(C_QFTW); // 保存文件 }

[qoror]

谁能帮帮忙@@