TMemo (FireMonkey)

[value is NULL]

Ich hab mir da jetzt einiges angesehen werde da aber nicht unbedingt schlau :/

zB

Delphi-Quellcode:

type
  TBinFertig = procedure(const Content: String) of object;
 
  TMyOwnThread = class(TThread)
  private
    FBinFertig: TBinFertig;
    procedure SyncBinFertig;
  public
    property BinFertig: TBinFertig read FBinFertig write FBinFertig;
  end;
 
implementation
 
procedure TMyOwnThread.SyncBinFertig;
begin
  if Assigned(FBinFertig)
    then FBinFertig(DasIstDerInhaltDerWebseite);
end;
 
procedure TMyOwnThread.Execute;
begin
  try
    // Download der Seite ...
 
    // Synchronisieren
    Synchronize(SyncBinFertig);
  except
    on e: exception do begin
      // mache hier irgendetwas mit dem Fehler.
    end;
  end;
end;

Wie würde ich hier zB meine "write" funktion einbauen ? Synchronize kann ja nicht mit Parametern umgehen soviel ich weiß oder?

[himitsu]

Zitat:

if Result <> Null then

Das ist immer ungleich NULL.

Du meintest wohl eher NIL, oder besser noch Assigned.


PS: TThread auch das Execute schon mit einem Try-Except abgesichert, da das selten jemand abfängt und wenn eine Exception in irgendinem Thread bis zur Wurzel durchrauscht, dann schießt Windows die Anwendung komplett ab.
TThread synchronisiert die letzten Events auch schon.

OnTerminate anhängen oder DoTerminate überschreiben und darin hat man im FatalException dann die durchgerauschte Exception vom Execute.

[Der schöne Günther]

Wie schon gesagt, die Arbeit mit dem SyncBinFertig brauchst du dir auch nicht mehr zu machen, genau dazu ist schon das OnTerminate -Ereignis da.

Wir können das alles gerne nochmal Schritt für Schritt durchgehen, aber das hat ja dann mit dem (eigentlich gelösten) Problem mit der flackernden Memo nichts mehr zu tun. Da würde ich dann ein neues Thema vorschlagen.

[value is NULL]

Da gebe ich dir recht! Danke habe ich schon erstellt!

LG