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