Tutorial für Konsolenanwendungen?

[Luckie]

Und ein Timer in der Konsole geht so:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  ExtCtrls,
  Classes;

type
  PMethodPointer = ^TMethodPointer;
  TMethodPointer = packed record
    pMethod: Pointer;
    pObject: TObject;
  end;

var
  T: TTimer;
  p: TMethodPointer;
  i: Integer;

procedure NotifyEvent(Self: TMethodPointer; Sender: TObject);
begin
  writeln('yes');
  beep;
end;

begin
  T := TTimer.Create(nil);
  T.Interval := 200; // -> löst alle 200 ms das OnTimer-Event aus
  try
    p.pMethod := @NotifyEvent;
    p.pObject := nil;
    T.OnTimer := TNotifyEvent(p);

    T.Enabled := true; // aktiviert den Timer
    writeln('Warte auf Event: ');
    for i := 1 to 5 do begin
      sleep(500);
      writeln('warte ' + inttostr(i*500) + 'ms...');
      NotifyEvent(p, T);
    end;
    T.Enabled := false;  // deaktiviert den Timer
  finally
    T.Free;
  end;
end.

Entsprechen für alle anderen Komponenten mit Ereignissen.

[Nicodius]

.. unit für timer ist wenn ich mich nicht irre ExtCtrls oder?


/edit edit

[malo]

Mh... gut, ich werd mich später drum kümmern (morgen kann ich ja nich sagen, ist ja schon der nächste morgen ). Demnach: Guten morgen und gute Nacht, ich geh nämlich jetzt schlafen. Danke schonmal für die Antworten!

[malo]

Mein dummer Compiler gibt mir folgende Fehlermeldung

[Fehler] Project2.dpr(39): Undefinierter Bezeichner: 'sleep'

Was zu tun?

[mirage228]

Zitat von malo:

Mein dummer Compiler gibt mir folgende Fehlermeldung

[Fehler] Project2.dpr(39): Undefinierter Bezeichner: 'sleep'

Was zu tun?

Du könntest mal in Deine OH schauen, da steht drin welche Unit von sleep gebraucht wird

mfG
mirage228

[malo]

Zitat von mirage228:

Zitat von malo:

Mein dummer Compiler gibt mir folgende Fehlermeldung

[Fehler] Project2.dpr(39): Undefinierter Bezeichner: 'sleep'

Was zu tun?

Du könntest mal in Deine OH schauen, da steht drin welche Unit von sleep gebraucht wird

mfG
mirage228

Und wenn da nix steht?

[fkerber]

Hi!

Sleep ist in der Unit SysUtils.


Ciao Frederic

[malo]

Zitat von fkerber:

Hi!

Sleep ist in der Unit SysUtils.


Ciao Frederic

Die ist ja schon drin. Geht trotzdem nicht

[fkerber]

Hi!

Was heißt es geht nicht?
Was für Fehler kommen? Falls der oben beschriebene kommt: das kan an sich nicht sein, wenn du SysUtils eingebunden hast.


Ciao Frederic

[malo]

Zitat von fkerber:

Hi!

Was heißt es geht nicht?
Was für Fehler kommen? Falls der oben beschriebene kommt: das kan an sich nicht sein, wenn du SysUtils eingebunden hast.


Ciao Frederic

Dann muss wohl mein Delphi verbuggt sein. Aber ich bin mir 100%ig sicher, dass genau diese Fehlermeldung kommt, obwohl SysUtils eingebunden ist