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.