Moin.
Erstmal habe ich schon gelesen, dass das was ich im Titel geschrieben habe nicht zu gehen scheint.
Mal ein Beispiel für mein Problem: Ich habe in einem Thread in dem z.B. irgendwelche Fehler auftreten können. Jetzt möchte ich meinem Hauptthread je nach aufgetretenem Fehler verschiedene Strings über geben.
Soweit bin ich schon:
Delphi-Quellcode:
type
TInstError = procedure(const Content: String) of object;
TMyOwnThread = class(TThread)
private
FInstError: TInstError;
procedure SyncError;
public
property InstError: TInstError read FInstError write FInstError;
end;
implementation
procedure TMyOwnThread.SyncError;
begin
if Assigned(FInstError)
then FInstError('ErrorString');
end;
procedure TMyOwnThread.Execute;
begin
...
// Error 1
Synchronize(SyncError);
...
// Error 2
Synchronize(SyncError);
...
// Error 3
Synchronize(SyncError);
usw.
end;
procedure Form1.InstError(const Content: String);
begin
RichEditError.Lines.Add(Content);
end;
So müsste ich aber für jeden Fehler einen eigene Methode erstellen welche ich mit Synchronize aufrufe.
Ich finde es schon lästig, dass ich überhaupt eine zusätzlich Methode dafür brauche. Das fördert nicht gerade die Übersichtlichkeit.
Aber wenn ich für jeden String ne eigene Methode brauch werd' ich ja bekloppt
Wie kann ich das eleganter lösen?
Vielen Dank