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

[Nersgatt]

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    p : integer;
    procedure SagHallo;
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  SagHallo;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  SagHallo;
end;

Procedure TForm2.SagHallo;
begin
  ShowMessage('Hallo');
end;

end.

[jaenicke]

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.

[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 ...

[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;

[TeronG]

psst himitsu lies doch nochmal den ersten Beitrag.... "Metthode deklarieren" nicht "Code verbessern"

[johannes-h]

Hallo,

erst mal vielen Dank dafür. Ich hatte nicht damit gerechnet, dass es so schnell geht.

Ich werde das jetzt entsprechend eurer Hinwiese ändern. Das gleiche funktioiniert dovh auch beim umbennen von Menüpunkten, oder?

Delphi-Quellcode:

private
procedure Deutsch;

...

procedure TFmMain.Deutsch;
begin
Label1.Caption := 'Hallo';
Label2.Caption := 'Auto';
end

Falls nicht, was müsste ich da machen, ich meine Parameter?


Johannes

@Nersgatt
Ich kann alles nachvollziehen, aber nicht, wofür die variable p verwendet/benötigt wird.

//EDIT

Ich habe falsche Quelltextteile unter falschen Namen gepostet ... Sorry,