Einzelnen Beitrag anzeigen

diavy

Registriert seit: 11. Apr 2012
54 Beiträge
 
#1

Problem bei Erstellen von banaler GUI

  Alt 13. Jul 2012, 19:21
Nabend zusammen.

Bisher habe ich mich ausschlißlich mit der Konsole beschäftigt. Nun soll jedoch das GUI folgen, und ich habe gleich beim ersten Versuch ein Problem. Die Struktur eines GUI-Codes wurde kaum/nicht erklärt(in dem Kurs in dem ich mich vorarbeite), mein Fehler stammt also wohl daher.

Delphi-Quellcode:
unit moyenne;

interface

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

type
  TfrmMain = class(TForm)
    edtA: TEdit;
    edtB: TEdit;
    btnCalculer: TButton;
    lblMoy: TLabel;
    procedure btnCalculerClick(Sender: TObject);
    {procedure FormCreate(Sender: TObject);  }
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;
implementation

{$R *.dfm}

procedure TfrmMain.btnCalculerClick(Sender: TObject);
var aux1,aux2:integer;
MOY:real;
begin
aux1:=StrToInt(edtA.Text);
aux2:=StrToInt(edtB.Text);
MOY:=(aux1+aux2)/2;
lblMoy.Caption:=FloatToStr(MOY);
end;
end.
Wär nett wenn mir wer helfen könnte.

mfg
diavy
  Mit Zitat antworten Zitat