Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - würfel


D2505 - Di 14.12.10 18:04
Titel: würfel
hallo ich wollte ein einfachen würfel programmieren

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
 
unit Unit1;

interface

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

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

var
  Form1: TForm1;
  Zahl1:
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  randomize;
  Zahl1 := random (100);
  Label1.Caption := FloatToStr(Zahl1);
end;

end.

aber er sagt mir beim ausführen typ erwartet aber implentation gefunden woran liegt das war ja imm automatisch erstellten quellcode drin
mfg


Moderiert von user profile iconNarses: Topic aus Sonstiges (Delphi) verschoben am Di 14.12.2010 um 17:05


Narses - Di 14.12.10 18:07
Moin!

Hast du evtl. hier etwas "vergessen": ;)
user profile iconD2505 hat folgendes geschrieben Zum zitierten Posting springen:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
 
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Zahl1: Integer;
implementation

{$R *.dfm}
cu
Narses


jaenicke - Di 14.12.10 18:16
Naja, eigentlich ist eher das "Zahl1:" dort zu viel. Globale Variablen sollte man der Übersichtlichkeit wegen nach Möglichkeit vermeiden.
Deshalb:

Delphi-Quelltext 
 
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
 
{ ... }
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Zahl1: Integer;
begin
  randomize;
  Zahl1 := random (100);
  Label1.Caption := FloatToStr(Zahl1);
end;
;-)


Martok - Di 14.12.10 18:21
user profile iconjaenicke hat folgendes geschrieben Zum zitierten Posting springen:
Naja, eigentlich ist eher das "Zahl1:" dort zu viel. Globale Variablen sollte man der Übersichtlichkeit wegen nach Möglichkeit vermeiden.

Und wenn wir schon dabei sind, könnte man auch gleich sinnlose Variablen vermeiden und, was wichtiger ist, typrichtig arbeiten:

Delphi-Quelltext 
 
27:
28:
29:
30:
31:
 
{ ... }
procedure TForm1.Button1Click(Sender: TObject);
begin
  randomize;
  Label1.Caption := IntToStr(random(100));
end;
;-)


jaenicke - Di 14.12.10 18:24
Herauskommen tut aber das selbe. :P

Aber du hast ja Recht. ;-)


D2505 - Mi 15.12.10 17:54
danke jetzt tut es mein würfel programm


F34r0fTh3D4rk - Mi 15.12.10 18:09
Ich sehe irgendwie gerade nicht, was das Programm mit einem Würfel zu tun hat. :?
Wenn damit ein Spielwürfel gemeint ist, so ist das nicht ganz richtig, da ein W100 aufgrund seiner Form nicht ganz ideal ist. :mrgreen:


D2505 - Sa 18.12.10 19:33
ja das habe ich schon angepasst
falst du random(100) meinst


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!