Thema: Delphi TMemo (FireMonkey)

Einzelnen Beitrag anzeigen

value is NULL

Registriert seit: 10. Sep 2010
249 Beiträge
 
#9

AW: TMemo (FireMonkey)

  Alt 28. Jan 2014, 12:46
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?
  Mit Zitat antworten Zitat