unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, jpeg;
type
TForm1 = class(TForm)
Label1: TLabel;
zaehler: TEdit;
reset: TButton;
zaehler2: TEdit;
Label2: TLabel;
Label3: TLabel;
Image1: TImage;
ListBox: TListBox;
berechnen: TButton;
schliessen: TButton;
ergebnis: TLabel;
Timer: TTimer;
fehler1: TLabel;
fehler2: TLabel;
procedure berechnenClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
a,b: real;
implementation
{$R *.DFM}
procedure TForm1.berechnenClick(Sender: TObject);
begin
a:= StrtoFloat(zaehler.Text);
b:= StrtoFloat(zaehler2.Text);
if ListBox.selected[0] then ergebnis.Caption:= FloattoStr(StrtoFloat(zaehler.text) + StrtoFloat(zaehler2.text));
if ListBox.selected[1] then ergebnis.Caption:= FloattoStr(StrtoFloat(zaehler.text) - StrtoFloat(zaehler2.text));
if ListBox.selected[2] then ergebnis.Caption:= FloattoStr(StrtoFloat(zaehler.text) * StrtoFloat(zaehler2.text));
if ListBox.selected[3] then ergebnis.Caption:= FloattoStr(StrtoFloat(zaehler.text) / StrtoFloat(zaehler2.text));
end;
end.