combox에서 해당 아템을 txt화일에 추가 삭제하는 루틴입니다

추가는 되는데

삭제가 tstringlist를 잘못썼는지 txt 에서 지워지지가 않습니다

님들 바쁘시더라도 이것좀 봐주시겠어요?



procedure TForm1.cbKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

var

i : integer;

txtfile : textfile;

List: TStringList;



begin

case key of

13: begin // 추가

assignfile(txtfile, ExtractFilePath(Application.ExeName) + 'dbkind.txt');

if fileexists(ExtractFilePath(Application.ExeName) + 'dbkind.txt') then

append(txtfile);

writeln(txtfile,cb.text);

closefile(txtfile);



cb.Items.Add(cb.text);

cb.Refresh;

end;



46: begin // 삭제

i := cb.ItemIndex ;

cb.Items.Delete(i);







List := TStringList.Create;

try

list.LoadFromFile(ExtractFilePath(Application.ExeName) + 'dbkind.txt');

list.Delete(i);

finally

List.Free;

end;

end;

end;

end;