Eigene Deklaration

[himitsu]

wie wäre es so?

Delphi-Quellcode:

procedure TFmMain.FormClose(Sender: TObject; var Action: TCloseAction);
var I: Integer;
  ini: TIniFile;
begin
  ini := tinifile.Create('C:\ToDoJH.ini');
  try
    ini.WriteInteger('ToDoMemo', 'count', Metext.Lines.Count);
    for i := 0 to Metext.Lines.Count - 1 do
      ini.WriteString('ToDoMemo', IntToStr(i), metext.Lines[i]);
  finally
    ini.Free;
  end;
end;

procedure TFmMain.Load1Click(Sender: TObject);
var i: Integer;
  ini: TIniFile;
begin
  ini := tinifile.Create('c:\ToDojH.ini');
  try
    i := ini.ReadInteger('ToDoMemo', 'count', 0);
    for i := 0 to i - 1 do
      Metext.Lines.Add(ini.ReadString('ToDoMemo', IntToStr(i), ''));
    end;
  finally
    ini.Free;
  end;
end;