Hallo Leuts.
Ich habe hier mal ein kleines Beispiel das ihr euch ansehen sollt.
Es geht mir nicht um Optimierung, oder sonst was. Ich will eigentlich nur das ihr euch überlegt was das Programm ausgibt.
Dann führt es aus und lasst euch überraschen.
Der witz ist das Hoffentlich niemand so Programmiert. Denn die hier entstehenden Nebeneffeckte sind ja schon heftig.
Delphi-Quellcode:
Unit Unit1;
Interface
Uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
Type
TForm1 =
Class(TForm)
Button1: TButton;
Procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
End;
Var
Form1: TForm1;
x: integer;
Implementation
{$R *.DFM}
Function f: integer;
Begin
x := x + 1;
result := x;
End;
Function g: integer;
Begin
x := x * 2;
result := x;
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
x := 1;
showmessage(inttostr(f + x * g));
End;
End.
Nice Cristmas to all
Corpsman