如题
解决方案 »
- mdb库数据写到sql中 写不进去 看看代码哪里的毛病 谢谢
- 有没有在用TGS Diagram Studio的?进来交流一下吧
- 求一个简单的算法,不难,懒得想了,主要是散分
- 十万火急***关于ado 的批更新问题
- 200分不手软!! 如何让 TCppWebBrowser 控件在显示网页后平面化,去掉它的边框!
- delphi+Oracle+ADO,对一条既包含文本、又包含视频、图像字段的记录能否一次性的插入或者修改,提供源码者最好!谢谢!
- 为什么Assigned(Form2) 不是Nil?
- 高手手请进!文本文件数据库表的问题??????
- 在用qrrichtext赋值打印的时候,后面总是要空行,如何去掉这些空行
- 如何在弹出消息框后关闭窗口?
- Delphi 2006代码编辑器没有光标?
- 如何用sql语句动态改变access数据库的字段名?
procedure TForm1.Button1Click(Sender: TObject);//生成文本文件
var
_ss: tstringlist;
begin
_ss:= TStringList.Create;
_ss.Add('aaaa');
_ss.Add('BBB');
_ss.SaveToFile('c:\ab.txt');
_ss.Free;
end;
///////////////////////
procedure TForm1.Button3Click(Sender: TObject);//变成ini文件
var
_ss: tstringlist;
_inifile: TIniFile;
i: integer;
begin
_ss:= TStringList.Create;
_inifile:= tinifile.Create('c:\ab.ini');
_ss.LoadFromFile('c:\ab.txt');
for i:=0 to _ss.Count-1 do
begin
_inifile.WriteString(_ss.Strings[i],_ss.Strings[i],_ss.Strings[i]);
end;
_inifile.Free;
_ss.Free;
end;