Variabeln Problem!

[faux]

Hallo!

Du solltest die Variable nicht in der procedure sondern in der Klasse deklarieren. Also einfach oben bei der Form nach private schreiben (im Interface):

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure Paint(Sender: TObject);
  private
    //*** HIER DIE VARIABLE DEKLARIEREN ***//
    Vrunde: Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

Dann ist sie "immer" verfügbar.

Die Ereignisse kannst du mit einer If-Then-Else - Abfrage machen. Einfacher ginge es mit case.

Bsp:

Delphi-Quellcode:

if Vrunde = 0 then
  Aktion
else if Vrunde = 1 then
  Aktion
else if Vrunde = 2 then
  Aktion
else if Vrunde = 3 then
begin
  Aktionen;
end
else if Vrunde = 4 then
begin
  Aktionen;
  Vrunde := 0;
end;

mit Case:

Delphi-Quellcode:

case Vrunde of
  0:
      Aktion;
  1:
      Aktion;
  2:
      Aktion;
  3:  begin
        Aktionen;
      end;
  4: begin
        Aktionen;
        Vrunde := 0;
     end;
end;

Grüße
Faux