急急急!!!!!!!!!!!!!!!(100分)

  • 主题发起人 主题发起人 fengsi
  • 开始时间 开始时间
F

fengsi

Unregistered / Unconfirmed
GUEST, unregistred user!
愿望:
有一个文件 Test.ini,有一个控件 Memo。
Test.ini 文件的格式为(“*”不算):
******************************
[Genenal]
XXX
YYY
...
[Important]
Line1=HelpMeHelpMeHelpMe
Line2=KillMeKillMeKillMe
Line3=SaveMeSaveMeSaveMe
LineX=ABCDEFGHIJKLMNOPQR
...
******************************

现在!Now!
只有两个按钮。编辑 Button1 的 OnClick 事件,使 Memo 控件分行显示“Line1=”后面的内容直到“LineX=”。然后编辑 Button2的 OnClick 事件,将 Memo 控件的分行内容写入 Test.ini。
问题:
怎样过滤掉“[Genenal]”、“Line1=”之类的字段而使“HelpMe”、“KillMe”、“SaveMe”分行显示在 Memo 控件中?
写入文件时,怎样将分行内容分别写入“LineX=”后面?
请各位大虾附上详细的代码!感恩不尽!

BTW:有人说用什么ini之类的,我不懂。要求越简单越好,越快越好,越..................(抽筋了)
 
用控件。ahm;
 
最好用语句实现。
 
首先要在单元的uses部分加入inifiles
var myIni:TIniFile;
begin
try
MyIni:=TInifile.Create('c:/windows/win.ini');
finally
MyIni.readSectionValues('desktop',memo1.Lines);
end;
MyIni.Free;
end;
写入时直接用WriteString方法就能满足你的需求。
看一下Delphi关于此的帮助,很好解决的。以上代码你只要稍做修改即可。
 
对不起,写错了,正确的代码如下:
var myIni:TIniFile;
begin

MyIni:=TInifile.Create('c:/windows/win.ini');
try
MyIni.readSectionValues('desktop',memo1.Lines);
finally
MyIni.Free;
end;

end;
 
我来补充个写吧
var
pc:tinifile;
begin
pc:=tinifile.create('email.ini');
pc.writestring(s,'Host',edit1.text);
pc.writestring(s,'Email',edit2.text);
pc.writestring(s,'Name',edit3.text);
pc.writestring(s,'Port','110');
pc.free;
end;
 
没什么好说的了,Tinifile就是操作ini文件用的,
只不过现在人家已经淘汰这种做法,转而存取注册表了。
inifile应该是windows3时代的东西
 
多人接受答案了。
 
后退
顶部