添加到INI文件中 |
尚未結案
|
vclphi
一般會員 發表:28 回覆:39 積分:13 註冊:2003-03-06 發送簡訊給我 |
我曾提了个问题,名为“对INI文件的操作 ”,后经Wnhoo兄指点,问题解决了。原文见"http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31053"。
现我想通过TComboBox对INI文件进行操作,即ComboBox1KeyDown,则
关键字:=ComboBox1.Text,加入到INI文件中,且INI文件的关键字只10项,新加入的在第一项,将第十一项删除。我的代码如下:
//STAT1.INI
[System]
VESA=1
ScreenMode=VM_800X600X256
SystemCharSize=16
CurrentGroup=WORD
MainTitle1=ok
MainTitle=1987 uses INIFILES;
procedure listTitle1;
procedure FormCreate(Sender: TObject);
procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); procedure TForm1.listTitle1;
var filename:string;
i:integer;
breedno:tstringlist;
inifile:TINIFILE;
begin
comboBox1.Clear;
//取得文件路径
filename:=ExtractFilePath(paramstr(0)) 'stat1.ini';
inifile:=TInifile.Create(filename);
breedno:=tstringlist.create;
inifile.ReadSection('System',breedno);
for i:=0 to breedno.Count-1 do
combobox1.items.add(breedno.Strings[i]);
breedno.Free ;
inifile.Free ;
end; procedure TForm1.FormCreate(Sender: TObject);
begin
listTitle1;
end; procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
filename:string;
inifile:TINIFILE;
begin
if key=VK_Return then
begin
comboBox1.Clear;
//取得文件路径
filename:=ExtractFilePath(paramstr(0)) 'stat1.ini';
inifile:=TInifile.Create(filename);
inifile.WriteString ('System',combobox1.Text,' ');
inifile.UpdateFile ;
inifile.Free ;
listTitle1;
end;
end; 但无法将ComboBox1.Text加入到INI文件中,且即便添加成功,也是加为最后一项,如何加为第一项?
|
turboted
版主 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
|
vclphi
一般會員 發表:28 回覆:39 積分:13 註冊:2003-03-06 發送簡訊給我 |
|
turboted
版主 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
|
vclphi
一般會員 發表:28 回覆:39 積分:13 註冊:2003-03-06 發送簡訊給我 |
|
turboted
版主 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
|
vclphi
一般會員 發表:28 回覆:39 積分:13 註冊:2003-03-06 發送簡訊給我 |
问题我自己解决了。
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
filename:string;
inifile:TINIFILE;
i:integer;
breedno:tstringlist;
begin
if key=VK_Return then
begin
//取得文件路径
filename:=ExtractFilePath(paramstr(0)) 'stat1.ini';
inifile:=TInifile.Create(filename);
breedno:=tstringlist.create;
inifile.ReadSection('System',breedno);
for i:=0 to breedno.Count-1 do
inifile.DeleteKey('System',breedno.Strings[i]);
inifile.WriteString ('System',combobox1.Text,' ');
for i:=0 to 8 do
begin
inifile.WriteString('System',breedno.Strings[i],' ');
combobox1.items.add(breedno.Strings[i]);
end;
inifile.UpdateFile ;
inifile.Free ;
listTitle1;
end;
end;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |