Negativ beispiel zum ansehn ;)

[Corpsman]

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