Eigene Deklaration

[johannes-h]

Hallo,

ich habe erst kürzlich mit Delphi angefangen.

Jetzt wollte ich mir ein Programm schreiben, das Text aus einer Memo-Komponente ausliest und in eine ini-Satei schreibt. Diese Funktion möchte ich aber 2mal aufrufen:
1. Beim KLicken auf einen Button
2. Beim Beenden des Programmes
Es war auch kein Problem, die entsprechenden Zeilen Quelltext zu schreiben

Delphi-Quellcode:

procedure TFmMain.FormClose(Sender: TObject; var Action: TCloseAction);
var I: integer;
var ini: Tinifile;
begin
  while Metext.Lines.Count < 46 do begin
    metext.Lines.Add(''); end;
  ini := tinifile.Create('C:\ToDoJH.ini');
  try
    for I := 0 to 46  do
      ini.WriteString('ToDoMemo',IntToStr(i),metext.Lines[i]);
  finally
    ini.Free;
  end;
end;

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

Delphi-Quellcode:

procedure TFmMain.Load1Click(Sender: TObject);
var i: integer;
var ini: Tinifile;
begin
  while MeText.Lines.Count < 46 do  begin
         MeText.Lines.Add('');       end;
  ini:=tinifile.Create('c:\ToDojH.ini');
  try
     for i := 0 to 46 do begin
        Metext.Lines[i] := ini.ReadString('ToDoMemo',IntToStr(i),''); end;
  finally
      ini.Free;
  end;
end;

Das wird auf die Dauer sehr unübersichtlich, wenn alles doppelt und dreifach im Quelltext erscheint.

Jetzt habe ich von einem Freund gehört, dass man diesen Teil auch als eingene Metthode deklarieren kann. Wäre nett, falls mit jemand erklären könnte, wie das gemeint war.

Johannes