KetPress를 이용해서
begin
edit2.Text;
barco := TStringList.Create;
if key = #13 then
try
barco.Add(edit2.Text);
end;
barco.SaveToFile('C:/TEST.ini');
finally
FreeAndNil(barco);
end;
이렇게 하나의 값이 ini파일로 저장했습니다..
이렇게 하면 하나의 값만 저장이 되는데..
하나의 값 밑으로 값을 저장하고 싶습니다.
어떻게 해야하는지 몰라서 질문합니다
고수님들의 답변이 꼭 필요합니다.
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
barco: TStringList;
begin
if key = #13 then
begin
barco := TStringList.Create;
barco.LoadFromFile('C:/TEST.ini');
try
barco.Add(edit1.Text);
barco.SaveToFile('C:/TEST.ini');
finally
FreeAndNil(barco);
end;
end;
end;
<!--CodeE-->