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
