Correct. Das OnTest Event im Beispiel übernimmt die Aufgabe von TThread.Execute. Ich möchte nicht jedes Mal TThread.Execute für jede neue Aufgabe überschreiben, sondern im OnTest Event den Ablauf und die Ergebnisse festlegen und bevor der Thread Free ist die Ergebnisse ausgeben.
Irgendwie habe ich das Gefühl, dass du eher anonyme Threads brauchst...
TThread ist dafür da, dass du dort die Aktionen implementierst und nur Parameter mitgibst und ggf. Ergebnisse abholst. Deine Beschreibung klingt nun eher danach, dass du bestimmte Funktionen einfach im Thread ausführen möchtest. Das geht dann eher so:
Delphi-Quellcode:
type
TOnSuccess = reference to procedure(const AResult: string);
TOnFailure = reference to procedure(const AErrorMessage: string);
function RunDownload(AUrl: string): string;
begin
end;
function Filter(var AResults: string; AFilterParam: string): Boolean;
begin
Result := True;
end;
procedure ExecuteXyz(AUrl, AParam: string; AOnSuccess: TOnSuccess; AOnFailure: TOnFailure);
begin
TThread.CreateAnonymousThread(procedure
var
Results: string;
begin
Results := RunDownload(AUrl);
if Filter(Results, AParam) then
TThread.Queue(nil, procedure
begin
AOnSuccess(Results);
end)
else
TThread.Queue(nil, procedure
begin
AOnFailure('Fehler xyz');
end)
end).Start;
end;
procedure TForm273.Button1Click(Sender: TObject);
begin
ExecuteXyz('http://www.example.com', '',
procedure(const AResult: string)
begin
ShowMessage(AResult);
end,
procedure(const AErrorMessage: string)
begin
ShowMessage('Fehler:' + sLineBreak + AErrorMessage);
end);
end;
Ohne mehr Details kann ich aber schlecht konkretere Ratschläge geben. Oft helfen dabei auch Generics weiter, aber das kommt darauf an, welche Aktionen durchgeführt werden und wo diese sich unterscheiden.