Du schreibst deinen Quelltext in eine eigene Prozedur und rufst diese auf:
Delphi-Quellcode:
type
TFmMain = class...
...
private
procedure SaveToFile(FileName: String);
end;
implementation
procedure TFmMain.SaveToFile(FileName: String);
var
i: Integer;
ini: TIniFile;
begin
while Metext.Lines.Count < 46 do
begin
metext.Lines.Add('');
end;
ini := tinifile.Create(FileName);
try
for i := 0 to 46 do
ini.WriteString('ToDoMemo', IntToStr(i), metext.Lines[i]);
finally
ini.Free;
end;
end;
procedure TFmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SaveToFile('C:\ToDoJH.ini');
end;
// EDIT:
Wobei ein absolutes Verzeichnis schlecht ist.
An das Verzeichnis deiner Exe kommst du mit ExtractFilePath(ParamStr(0)), das ist zwar auch nicht optimal, aber besser als es direkt unter c: zu legen.