Threadklasse mit Event aktualisiert nicht

[jaenicke]

Zitat von Inspur1:

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.