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:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    RadiusEdit: TEdit;
    FlaecheEdit: TEdit;

    Label1: TLabel;
    Label2: TLabel;
    RechnenButton: TButton;
    procedure RechnenButtonClick(Sender: TObject);
    function Kreisflaeche(Radius:Real) : Real;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function Kreisflaeche(Radius:Real) : Real;
begin
  Result:=Pi*Radius*Radius;
end;

procedure TForm1.RechnenButtonClick(Sender: TObject);
begin
 Kreisflaeche;
 FlaecheEdit.Text:=FloatToStr(Result)
end;

end.					

1:
2:
3:
4:

Function Kreisflaeche(Radius:Real):Real;
Begin
Result:=Pi * Radius * Radius;
End;					

1:
2:
3:
4:

Procedure TForm1.RechnenButtonClick(Sender: TObject);
Begin
FlaecheEdit.Text:=FloatToStr(Kreisfläche(StrToFloat(Eingabefeld.Text)));    
End;					

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

function Kreisflaeche(Radius:Real) : Real;         //soweit richtig
begin
Result:=Pi*sqr(Radius);           //sqr (square) zum quadrieren von Radius
end;

procedure TForm1.RechnenButtonClick(Sender: TObject);
begin
//Kreisflaeche;                                      //falsch eine function kann nich wie eine procedure aufgerufen werden
FlaecheEdit.Text:=FloatToStr(Kreisfläche(Parameter{Radius});//so gehts richtig
end;					

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:

type TKlasse1 = Class
         private
            procedure Tuwas;
         public
     end;

    TKlasse2 = Class
         public
            procedure Tuwas;
     end;

implementation


procedure TKlasse1.Tuwas;
begin
  showmessage('eins');
end;

procedure TKlasse2.Tuwas;
begin
  With TKlasse1.Create do
  begin
      TuWas;
      Free;
  end;
  showmessage('Zwei');
end;					

1:
2:
3:
4:
5:

dialogs := TDialogs.Create;
dialogs.showMessage('Hallo was geht ab');

sysUtils := tSysUtils.Create;
caption := sysUtils.IntToStr(200*3);					

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:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ErgebnisEdit: TEdit;
    OkButton: TButton;
    Label1: TLabel;
    ErgebnisPanel: TPanel;
    procedure OkButtonClick(Sender: TObject);
    function Vergleich(Eingabe:Integer) : String;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function Vergleich(Eingabe:Integer) : String;
begin
  if Eingabe=6
    then Result:='Das war richtig.'
    else Result:='Das war leider falsch.'
end;

procedure TForm1.OkButtonClick(Sender: TObject);
begin
  ErgebnisPanel.Caption:=Vergleich(StrToInt(ErgebnisEdit.Text))
end;

end.