For-Schleife als Template mit Prozedur als Parameter?

[Delphi.Narium]

Anderer Ansatz: 'nen Nachfahren von List (was auch immer das jetzt genau ist) bauen. Für 'ne TStringList sinngemäß sowas (mit Delphi 7 probiert und funktioniert):

Delphi-Quellcode:

unit Unit1;

interface

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

type
  tLoopFunc = Function(AString : String) : Boolean;

type
  tForLoopList = class(TStringList)
  private
    { Private-Deklarationen }
  public
    function DoLoop(AProc : tLoopFunc) : Boolean;
  end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function DieEigentlicheArbeit(AString : String) : Boolean;
begin
  if aString = 'x' then begin
    // mach noch was ...
    Result := True;
  end else Result := False;
end;

function DieAndereArbeit(AString : String) : Boolean;
begin
  if aString = 'x' then begin
    // mach noch was ....
    ShowMessage('Eine Zeile mit x');
    Result := True;
  end else Result := False;
end;

function tForLoopList.DoLoop(AProc : TLoopFunc) : Boolean;
var
  i : Integer;
begin
  Result := False;
  if Not Assigned(AProc) then Exit;
  for i := 0 to Self.Count - 1 do begin
    Result := AProc(Self[i]);
    if Result then Break;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sl : tForLoopList;
begin
  sl := tForLoopList.Create;
  // irgendwie jetzt für Inhalt in sl sorgen.
  // sl.LoadFromFile('x.txt');
  sl.Add('x');
  case sl.DoLoop(DieEigentlicheArbeit) of
    true  : sl.DoLoop(DieAndereArbeit);
    false : ShowMessage('war nix');
  end;
  // Ergbenis eventuell abspeichern?
  // sl.SaveToFile('x.txt');
  sl.Free;
end;

end.

[LTE5]

Das mit dem Nachfahren wird nix denn DieEigentlicheArbeit ist immer eine andere und dafür Prozeduren zu erstellen lohnt sich nicht.

[Delphi.Narium]

Und hier

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
 ForLoop(
   procedure(i: Integer)
  begin
   ShowMessage(i.ToString);
  end);
end;

hast Du innerhalb von ForLoop( ... ); keine Procedure geschrieben?

Es ist demnach also ein wesentlicher Unterschied, ob man obiges schreibt oder sinngemäß

Delphi-Quellcode:

procedure Machwas(i: Integer);
begin
 ShowMessage(i.ToString);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 List.ForLoop(Machwas);
end;

Bei so 'nem Einzeiler mag das ja nicht viel ausmachen, wenn Machwas (und die weiteren Prozeduren) aber etwas komplexer werden, könnte die Methode mit dem Nachfahren auch irgendwann mal deutlich übersichtlicher werden. (Und ist ggfls. auch noch in anderen Programmen einfach mal so eben verwendbar.)

[LTE5]

Ich finde es durch den Nachfahren deutlich unübersichtlicher.
Ich brauche ja keinen Nachfahren sondern einfach nur den Prozedurkopf an einer Stelle im Code statt an x verschiedenen.
Und genau das habe ich jetzt.