Problem mit einer Funktion!

Katzenstreu · Beiträge: 39 Windows XP Professional

Hallo,

ich habe in den folgenden Code (markiert durch Schrägstriche) meine zwei Kommentare geschrieben.

Warum gibt diese Funktion (result:=s*s) immer 0 aus?

markieren

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:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:

unit Unit1;

interface

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

type
 TQuadrat1 = class
 x,y,s:integer;
 Quad:TRect;
 constructor Create (xx,yy,ss:Integer);
 procedure Erscheinen;
 procedure Bewegen;
 procedure Verschwinden;
 end;




  TForm1 = class(TForm)
    B_Erscheinen: TButton;
    B_Bewegen: TButton;
    B_Verschwinden: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure B_ErscheinenClick(Sender: TObject);
    procedure B_BewegenClick(Sender: TObject);
    procedure B_VerschwindenClick(Sender: TObject);



  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  x,xx,y,yy,s,ss:Integer;
  Quadrat1:TQuadrat1;
implementation



{$R *.dfm}

constructor TQuadrat1.Create(xx,yy,ss:Integer);
begin
x:=xx;
y:=yy;
s:=ss;
end;

procedure TQuadrat1.Erscheinen;
begin

 Quad:=Rect(x,y,x+s,y+s);
 Form1.Canvas.Pen.Color:=ClBlack;
 Form1.Canvas.Rectangle(Quad);
end;

procedure TQuadrat1.Bewegen;
var i:Integer;
begin
 for i:=x to Form1.ClientWidth-s-x do
  begin
   Quad:=Rect(i-1,y,i-1+s,y+s);

   Form1.Canvas.Pen.Color:=Form1.Color;
   Form1.Canvas.Rectangle(Quad);

   Quad:=Rect(i,y,i+s,y+s);

   Form1.Canvas.Pen.Color:=ClBlack;
   Form1.Canvas.Rectangle(Quad);

   Sleep(2);
  end;
end;

procedure TQuadrat1.Verschwinden;
begin
 Form1.Canvas.Pen.Color:=Form1.Color;
 Form1.Canvas.Rectangle(Quad);
end;


function a:real;
begin
result:=s*s;                        // a = s * s
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Quadrat1:=TQuadrat1.Create(90,10,50);
 Form1.Edit1.Text:=FloatToStr(a);   // a soll ins Edit-Fenster geschrieben werden!
end;




procedure TForm1.B_ErscheinenClick(Sender: TObject);
begin
 Quadrat1.Erscheinen;
end;

procedure TForm1.B_BewegenClick(Sender: TObject);
begin
 Quadrat1.Bewegen;
 end;

procedure TForm1.B_VerschwindenClick(Sender: TObject);
begin
 Quadrat1.Verschwinden;
end;

end.

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt

Einloggen, um Attachments anzusehen!

Marco D. · Verfasst: So 04.06.06 16:09

markieren

Delphi-Quelltext

1:
2:
3:
4:

function (a:real) : real;
begin
result:=s*s;                        // a = s * s
end

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

Katzenstreu · Beiträge: 39 Windows XP Professional

Marco D. hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:

function (a:real) : real;
begin
result:=s*s;                        // a = s * s
end

habst nun genau so gemacht.

[Fehler] Unit1.pas(91): Bezeichner erwartet, aber '(' gefunden
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Aber dann kommt der obige Fehler

. Da muss noch was falsch sein

.

Ironwulf · Beiträge: 733 Erhaltene Danke: 2

du musst deine function noch irgendwo in den interface teil reinsetzen

markieren

Delphi-Quelltext

1:	function a:real

Marco D. · Verfasst: So 04.06.06 16:19

'a' soll der Name sein? :gruebel:

Ja stimmt, ich dachte das wäre ein Parameter :autsch:

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

Katzenstreu · Beiträge: 39 Windows XP Professional

Danke dir

.

So gehts teilweise:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function Flaeche(a:real):real;
begin
result:=s*s;
end;

procedure TForm1.FormCreate(Sender: TObject);
var a:real;
begin
 Quadrat1:=TQuadrat1.Create(90,10,50);
 Form1.Edit1.Text:=FloatToStr(a);
end;

Aber nur wenn ich a lokal als Variable festlege. Außerdem ist s*s (hier 50*50) nicht 1,19964452980341E-315 sondern eher 2500!

MfG
Tim

Ironwulf · Beiträge: 733 Erhaltene Danke: 2

a ist der funktionsname, es werden keine parameter mit an die funktion übergeben

Katzenstreu · Beiträge: 39 Windows XP Professional

Auch wenn ich für result:=0 setzte ist das Ergebis irgendetwas hoch -315!

markieren

Delphi-Quelltext

1:
2:
3:
4:

function Flaeche(a:real) : real;
begin
result:=0;                      
end

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

und wie heißt deine funktion jetzt :shock:

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Katzenstreu · Beiträge: 39 Windows XP Professional

Born-to-Frag hat folgendes geschrieben:

und wie heißt deine funktion jetzt :shock:

Sorry. Oben hab ichs gemacht, beim letzten Post nicht.

Korregiere gelich den oberen Post.

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

also bei mir funktionierts..

zeig doch mal den kompletten source wenn es nicht zu viel ist

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Katzenstreu · Beiträge: 39 Windows XP Professional

Born-to-Frag hat folgendes geschrieben:

also bei mir funktionierts..

zeig doch mal den kompletten source wenn es nicht zu viel ist

Bitteschön: www.delphi-forum.de/download.php?id=3484

Einloggen, um Attachments anzusehen!

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  x,xx,y,yy,s,ss:Integer;


implementation

..

constructor TQuadrat1.Create(xx,yy,ss:Integer);

Naja, du hast einmal local xx,yy,ss und global. das ist schonmal schlecht

und dann sollte es auch klar sein, warum ein falsches ergebnis herrauskommt

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Katzenstreu · Beiträge: 39 Windows XP Professional

Born-to-Frag hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  x,xx,y,yy,s,ss:Integer;


implementation

..

constructor TQuadrat1.Create(xx,yy,ss:Integer);

Naja, du hast einmal local xx,yy,ss und global. das ist schonmal schlecht

und dann sollte es auch klar sein, warum ein falsches ergebnis herrauskommt

Okay. Habe nun eineige doppelte Deklarationen entfernt. Trotzdem gehts noch nicht!

markieren

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:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:

unit Unit1;

interface


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

type
 TQuadrat1 = class
 Quad:TRect;
 constructor Create (xx,yy,ss:Integer);
 procedure Erscheinen;
 procedure Bewegen;
 procedure Verschwinden;
 end;




  TForm1 = class(TForm)
    B_Erscheinen: TButton;
    B_Bewegen: TButton;
    B_Verschwinden: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure B_ErscheinenClick(Sender: TObject);
    procedure B_BewegenClick(Sender: TObject);
    procedure B_VerschwindenClick(Sender: TObject);



  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  x,y,s:Integer;
  Quadrat1:TQuadrat1;
implementation



{$R *.dfm}

constructor TQuadrat1.Create(xx,yy,ss:Integer);
begin
x:=xx;
y:=yy;
s:=ss;
end;

procedure TQuadrat1.Erscheinen;
begin

 Quad:=Rect(x,y,x+s,y+s);
 Form1.Canvas.Pen.Color:=ClBlack;
 Form1.Canvas.Rectangle(Quad);
end;

procedure TQuadrat1.Bewegen;
var i:Integer;
begin
 for i:=x to Form1.ClientWidth-s-x do
  begin
   Quad:=Rect(i-1,y,i-1+s,y+s);

   Form1.Canvas.Pen.Color:=Form1.Color;
   Form1.Canvas.Rectangle(Quad);

   Quad:=Rect(i,y,i+s,y+s);

   Form1.Canvas.Pen.Color:=ClBlack;
   Form1.Canvas.Rectangle(Quad);

   Sleep(2);
  end;
end;

procedure TQuadrat1.Verschwinden;
begin
 Form1.Canvas.Pen.Color:=Form1.Color;
 Form1.Canvas.Rectangle(Quad);
end;


function Flaeche(a:real):real;
begin
result:=s*s;
end;

procedure TForm1.FormCreate(Sender: TObject);
var a:real;
begin
 Quadrat1:=TQuadrat1.Create(90,10,50);
 Form1.Edit1.Text:=FloatToStr(a);
end;




procedure TForm1.B_ErscheinenClick(Sender: TObject);
begin
 Quadrat1.Erscheinen;
end;

procedure TForm1.B_BewegenClick(Sender: TObject);
begin
 Quadrat1.Bewegen;
 end;

procedure TForm1.B_VerschwindenClick(Sender: TObject);
begin
 Quadrat1.Verschwinden;
end;






end.

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

also ich versteh jetzt nicht genau was die Funktion Flaeche() soll. Man muss einen Parameter angeben der aber in der Funktion nicht benutzt wird? Warum?

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Marc. · Verfasst: So 04.06.06 17:30

Ein Funktion sprichst du über ihren Namen an.
Also muss es lauten Form1.Edit1.Text:=FloatToStr(flaeche(s));

Katzenstreu · Beiträge: 39 Windows XP Professional

NoTVerYEvilPzYchO hat folgendes geschrieben:

Ein Funktion sprichst du über ihren Namen an.
Also muss es lauten Form1.Edit1.Text:=FloatToStr(flaeche(s));

Gleichmal testen

Katzenstreu · Beiträge: 39 Windows XP Professional

Warum muss hinter funcrtion z.B. (a:real) stehen?

Ich benutze a doch garnicht. Das sagt mit Delphi auch. Aber nun läuft das Programm!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function Flaeche(a:real):real;
begin
result:=s*s;
end;

procedure TForm1.FormCreate(Sender: TObject);
var a:real;
begin
 Quadrat1:=TQuadrat1.Create(90,10,50);
 Form1.Edit1.Text:=FloatToStr(Flaeche(s*s));
end

Marc. · Verfasst: So 04.06.06 17:41

wenn du keine parameter angibst, kannst du dir in dem Fall theoretisch die Funktion auch sparen und

markieren

Delphi-Quelltext

1:	Form1.Edit1.Text:=FloatToStr(s*s);

schreiben

Katzenstreu · Beiträge: 39 Windows XP Professional

NoTVerYEvilPzYchO hat folgendes geschrieben:

wenn du keine parameter angibst, kannst du dir in dem Fall theoretisch die Funktion auch sparen und

markieren

Delphi-Quelltext

1:	Form1.Edit1.Text:=FloatToStr(s*s);

schreiben

Ja, könnte ich. Aber unser Lehrer möchte die Funktionen einführen. Auch wenns in diesem Beispiel sinnlos ist.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme