Delphi Problem

Stimmt, Werte darf man Variablen nur innerhalb von Funktionen und
Prozeduren zuweisen (und natürlich innerhalb des Hauptprogramms). Die
von Enrico erwähnte Methode ist eine Initialisierung und muß
unmittelbar bei der Deklaration erfolgen.

Schon mal danke für die Antworten. Es funktioniert jetzt auch so weit.
Aber wenn ich eine if Anweisung einbaue:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var zahl:Integer=0;

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
zahl:=1;
end;

if zahl=1 then close;         //diese zeile hat das problem

end.

Fehler:
Declaration expected but 'if' found.

Muss ich noch eine unit einbinden um if zu benutzen oder irgendwie eine
hauptprozedur erstellen? Oder genauer gesagt: Wo schreibt man das
Hauptprogramm hin?

Mfg Xenon

Du mußt keine Unit einbinden, sondern die If-Anweisung in eine Prozedur
packen. So wie du es jetzt hast, steht die außerhalb. Also besser ist:


...

procedure TForm1.Button2Click(Sender: TObject);
begin
  zahl := 1;
  if zahl = 1 then Close;
end;

...

Wie kann ich denn eine Hauptprozedur erstellen? Ich habe eigentlich vor,
dass dort 6 if blöcke sind und diese immer wieder abgefragt werden. Wenn
man dann den Button drückt bleibt er stehen und zb eine 4 wird
angezeigt. Also ein Würfel. Daher muss das if irgendwo anders stehen
nur wo? Also das Hauptprogramm.

Die "Hauptprozedur" erstellt Delphi automatisch. Um sie anzusehen mußt
du "Projekt" -> "Quelltext ansehen" oder so ähnlich auswählen
(Menu).

Ich würde ein Würfel aber mit der Random-Funktion realisieren.

Ok Dankeschön schonmal!

Wie kann ich die Random-Funktion denn benutzen?

Mfg Xenon

Infos siehe Delphi-Hilfe.

Danke!
Dann werd ich mich mal darüber informieren.

Tolles Forum einfach! Für jedes Problem ne Lösung ^^

Mit folgendem Trick kommst du einfach ans Ziel:
1. In der Delphi Hilfe schauen, da ist normal ein Beispiel drin
2. www.delphipraxis.net durchsuchen (durchsuchen != thread eröffnen)
3. Google befragen
4. erst jetzt ein Thread aufmachen

Ah und einmal einen minimal kleinen Blick in ein Delphi-Tutorial
werfen.

Was hast du für ein Problem, wenn ich ein Thread eröffne?
Davon abgesehen habe ich schon viele tutorials durchgesehen aber keine
Antworten gefunden, weil ich an die C Programmierung gewöhnt bin und
daher nie das Hauptprogramm suchen musste.

Hallo,
Ich hab noch eine Frage...

procedure eins;
begin
label1.caption := 'X';
end;

Die Prozedur habe ich oben deklariert. Wenn ich label1.caption :=
'X';
in die Prozedur eines Buttons eingebe meldet der Compiler kein Problem
aber in dieser Prozedur sagt er: Undeclared Identifier: 'label1' .#
Was ist das Problem?

Das kann nicht gehen, da Prozedur "eins" nicht Bestandteil deiner
Form1-Klasse ist. Also deshalb:

procedure TForm1.eins;
begin
  label1.caption := 'X';
end;


Aber nicht vergessen, diese Prozedur auch "oben" bei der
Klassendeklaration anzugeben:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure eins;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

...

Wow!

Jetzt geht es, Danke!!!

Langsam verstehe ich Delphi...

So ich habe den Würfel nun fertig ^^

Er ist im Anhang.

Glückwunsch !