ini파일을 만들어 사용하려고하는데 밑의소스와 같이하면 각항목이 새로생기는것이

아니라 추가가 되더군요.

예를들어 [제품단가]에있는 '공책' 값이변경되어서 변경된값을 넣으면

전에있던 '공책'항목이 지워지지를 않고 지금넣는 '공책'항목이 추가가 되더군요'

Ini파일자체를 지우지않고 변경된항목을 지우고 새로넣는 방법은 없나요?

답변 부탁드립니다.



==============================소스==========================================

procedure TPoomok_Add_Form2.Button2Click(Sender: TObject);

var angIni1 : TIniFile; i:integer;

begin //angIni1.DeleteKey('Out_DanKa','');

angIni1 := TIniFile.Create('C:angang1.Ini');

with angIni1 do

begin

//WriteString('DanKa', 'Edit1', Edit1.Text);

for i := 0 to Poomok_Add_ListBox1.Items.Count -1 do

begin

WriteString('In_DanKa', Poomok_Add_ListBox1.Items.Strings[i],'1');

WriteString('Out_DanKa', Poomok_Add_ListBox1.Items.Strings[i],'1');

end;

end;

angIni1.Free;

WritePrivateProfileString(nil, nil, nil, 'C:angang1.Ini');

Close;

end;