Thema: Delphi Eigene Deklaration

Einzelnen Beitrag anzeigen

Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.648 Beiträge
 
Delphi 11 Alexandria
 
#3

Re: Eigene Deklaration

  Alt 19. Mai 2009, 15:05
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.
Sebastian Jänicke
AppCentral
  Mit Zitat antworten Zitat