procedure EditWinIni;
var FileName: string; { storage for file name }
begin FileName := 'c:\Program Files\MyProgram\MyFile.ini' { set the file name }
with Form1.Memo1.Lines do begin
LoadFromFile(FileName); { load from file }
SaveToFile(ChangeFileExt(FileName, '.bak')); { save into backup file }
end;
end;
Hiç yorum yok:
Yorum Gönder