Problem mit OnWork

[Delphi Code Anfänger]

Habe das jetzt so geändert:

Delphi-Quellcode:

TOnWorkEvent = procedure(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer) of object;

[Delphi Code Anfänger]

Hatte vergessen dazuzuschreiben. Es kommt immer noch die gleiche Meldung.

[MrKnogge]

Das "of Object" musst du weglassen. Der Fehler liegt bei dem "const", dass ist zu viel.

[Delphi Code Anfänger]

Habe ich gerade gemacht. Kommt immer noch der selbe Fehler. Zusätzlich kommt auch noch:

E2010 Inkompatible Typen: 'TWorkMode' und 'Integer'

Diese Stelle:

Delphi-Quellcode:

procedure TDownloadThread.DoNotifyWork;
begin
  if Assigned(OnWork) then
    OnWork (Self, FWorkCount);

[Dani]

:twisted: Dir ist klar, dass es WebUpdateThread.TOnWorkEvent und IdComponent.TWorkEvent gibt? Schau jetzt sofort nach, wie IdComponent.TWorkEvent aussieht, denn genau so muss dein InternalWork deklariert sein :mrgreen:

[Delphi Code Anfänger]

Wo finde ich das denn?

[Dani]

Zitat:

Zitat von Dani

IdComponent.TWorkEvent

Unit IdComponent. Klick mal links auf TWorkEvent während du STRG gedrückt hältst (in Delphi).

[Delphi Code Anfänger]

Dann kommt IDComponent.pas nicht gefunden.

[Dani]

Du hast ja gesagt, du verwendest die in Delphi2007 mitgelieferte Version, vielleicht hat es da nur zu DCUs gereicht oder die Quellcode-Ordner sind nicht im Suchpfad. Wahrscheinlich ist es besser, wenn du dir die neueste Version kurz runterlädst und manuell installierst, aber das ist nicht ganz trivial :|

[Delphi Code Anfänger]

Die DCus sind dabei. Was muss ich damit machen?