Eigene Deklaration

[soulies]

Delphi-Quellcode:

procedure TFmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  
    for I := 0 to 46  do
      ini.WriteString('ToDoMemo',IntToStr(i),metext.Lines[i]);
  
end;

Zitat:

Genau die selbe Methode rufe ich auch über einen Button auf:

Delphi-Quellcode:

procedure TFmMain.Load1Click(Sender: TObject);
begin
  
     for i := 0 to 46 do begin
        Metext.Lines[i] := ini.ReadString('ToDoMemo',IntToStr(i),''); end;
  
end;

doch nicht gleich ...