Auslöser

[maximus Caesar]

Hallo!
Wenn jetzt z.B. eine Taste der Tastatur gedrückt wird, dann kann man ja dem Programm sagen, das es dann eine Prozeudre ausführen soll.
Wenn ich jetzt z.B. eine Variable vom Typ Integer habe, und diese einen bestimmten Wert erreicht oder übersteigt, ist es dann auch möglich, eine prozedur auszuführen, ohne dass ich andauernd im Hintergrund einen Timer oder was anderes laufen habe, das den Wert überprüft?

[jim_raynor]

Nein das geht nicht. Du müsstest eine Funktion machen, über die der Integer gesetzt wird. Dann könntest du dort die Prüfung machen und eine Callback-Prozedur aufrufen.

[TeronG]

Was erhöht denn deinen Integer? Eine externe Quelle oder ne Procedure in deinem Programm?

[dataspider]

Hi Maximus,
wenn es eine Integer Variable aus deinem Code ist, dann mach doch daraus ein Property mit einer Write - Methode. Da kannst du vor dem Setzen der Variablen entsprechend reagieren oder deine Procedure ausführen.
Gruß, Frank

[maximus Caesar]

Zitat von dataspider:

Hi Maximus,
wenn es eine Integer Variable aus deinem Code ist, dann mach doch daraus ein Property mit einer Write - Methode. Da kannst du vor dem Setzen der Variablen entsprechend reagieren oder deine Procedure ausführen.
Gruß, Frank

Wie mach ich das?

Die Integervariable wird inerhalb des Programms bestimmt

[TeronG]

Zitat von maximus Caesar:

Die Integervariable wird inerhalb des Programms bestimmt

Wenn das nur an einer Stelle geschieht prüfe dort ... ansonsten würd ich auf maximus verweisen.
(object erstelle unso .. )
EDIT: hilfe dazu: Property --> read, write

[dataspider]

Wie mache ich das...
Statt einer Integer Variablen MyInteger die Variante mit Property:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    FMyInteger: Integer;
    procedure SetMyInteger(const Value: Integer);
    { Private-Deklarationen }
  public
    property MyInteger: Integer read FMyInteger write SetMyInteger;
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SetMyInteger(const Value: Integer);
begin
  if (FMyInteger <> Value) then
  begin
    // oder vorher procedure
    // if CheckValueOK(Value) then
    //   FMeineInteger := Value
    if Value <= 10000 then
      FMyInteger := Value
    else
      ShowMessage('Nur bis 10000 gestattet...');
  end;
end;

end.

Gruß, Frank

[maximus Caesar]

Danke!