Methode in Consolenanwendung erstellen

[Hobbycoder]

Hi,

ich habe ein Consolenanwendung. In der erzeuge ich ein Object und möchte nun einem Event des Objects eine Methode zuweisen. Geht nicht, weil ich nur prozeduren habe.
Wie erstellt man in einer Cosolenanwendung eine Methode?

Object:

Delphi-Quellcode:

unit uTestObject;

interface

type
  TOnLog=procedure(Sender: TObject; LogText: string) of object;

  TTestObject=class
  private
    FOnLog: TOnLog;
    procedure DoLog(LogText: string);
  public
    procdure MachWas;
  published
    property OnLog: TOnLog read FOnLog write FOnLog;
  end;

Implementation

proceudre TTestObject.DoLog(LogText: string);
begin
  if Assigned(FOnLog) then
    FOnLog(self, LogText);
end;

procedure TTestObject.MachWas;
begin
  DoLog('TestLogText');
end;

end.

Consolenanwendung:

Delphi-Quellcode:

program CMDTest;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  uTestObject in 'uTestObject.pas';

var
  TestObject: TTestObject;

proceudre LogMsg(Sender: TObject; LogText: string);
begin
  MachIrgendwasMitLogText;
end;

begin
  TestObject:=TTestObject.Create;
  try
    TestObject.OnLog:=LogMsg;   //<---Das wird nicht compiliert: [dcc32 Fehler] CMDTest.dpr(104): E2009 Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'
    TestObject.MachWas;
  finally
    TestObject.free;
  end;
end.

[TiGü]

Delphi-Quellcode:

type
  TOnLog=procedure(Sender: TObject; LogText: string); // of object; -> brauchste hier nicht

Alternative:

Delphi-Quellcode:

type
  TOnLog = reference to procedure(Sender: TObject; LogText: string); // -> geht dann Beides

Zum Weiterlesen: https://www.delphipraxis.net/195042-...procedure.html

[Hobbycoder]

Wenn ich das mache, wie veröffentliche ich dann meine Property bekannt?
[dcc32 Fehler] uTestObject.pas(28): E2188 Published-Eigenschaft 'OnLog' kann nicht vom Typ PROCEDURE sein

[freimatz]

Wozu brauchst du denn published? Das ist doch kein Control - oder?

[Hobbycoder]

Ah...danke für den letzten Hinweis. Jetzt funktioniert's.

Danke TiGü und Freimatz

[himitsu]

Zeiger vom Typ procedure of object nehmen nicht nur Methoden, sondern auch Klassenmethoden an.

Delphi-Quellcode:

type
  TMyClass = class abstract  // abstract muß nicht,aber wenn wir die Instanz eh nie erstellen wollen...
    class procedure DoLog; 
  end;

Niemand verbietet in Konsolenanwendungen Klassen zu benutzen.
Also könntest du dir auch eine Klasse, mit oder ohne Instanz, für deine Hilfsfunktionen (ala DoLog) erstellen.

TestObject.OnLog := TMyClass.LogMsg;
Hier wirklich TMyClass mit T, weil Class-Function und damit keine Instanz nötig,

im Gegensatz zu deinem TTestObject.OnLog/MachWas in Post #1, wo das T falsch ist.

[Hobbycoder]

Zitat von himitsu:

Im Gegensatz zu deinem TTestObject.OnLog/MachWas in Post #1, wo das T falsch ist.

Das war ein Tippfehler. Ich hatte das ganze in einem Beispiel zusammengetippt, um nicht die ganze Unit zu posten. Hab das der Vollständigkeitshalber oben korrigiert.