For-Schleife als Template mit Prozedur als Parameter?

[HolgerX]

Hmm..

Ich würd es so machen (old school, D6)

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    function DoWas(AStrings : TStrings; AIndex : integer):boolean;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
type
  TExecuteStrings = function(AStrings : TStrings; AIndex : integer):boolean of Object;
  TExecuteList = function(AList : TList; AIndex : integer):boolean of Object;

procedure ExecuteList(AStrings : TStrings; AFunc : TExecuteStrings);overload;
var
  i : integer;
begin
  for i := 0 to AStrings.Count-1 do
    if AFunc(AStrings,i) then break;
end;

procedure ExecuteList(AList : TList; AFunc : TExecuteList);overload;
var
  i : integer;
begin
  for i := 0 to AList.Count-1 do
    if AFunc(AList,i) then break;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  s : TStringList;
begin
  s := TStringList.Create;
  try
    s.Add('Test1');
    s.Add('Test2');
    s.Add('Test3');
    ExecuteList(s, DoWas);
  finally
    s.Free;
  end;
end;

function TForm1.DoWas(AStrings: TStrings; AIndex: integer): boolean;
begin
  ShowMessage(AStrings[AIndex]);
  Result := AStrings[AIndex] = 'Test2';
end;

Da ich der Übergebenden Funktion auch die Liste selber mitgebe (nicht nur den Index), kann die Funktion direkt mit der richtigen Liste arbeiten.

Im Beispiel oben ist nur zwischen TList und TStrings unterschieden.

Wenn Du vorhast (wie z.B. in Lua möglich) eine Funktion zu übergeben, welche unterschiedliche Anzahl/Typen an Parameter hat, dann dürfte dies schwierig werden, vor allem, da deine Loop-Funktion nicht wüste, was an welcher Stelle im Funktionsaufruf übergeben werden muss.