also müsste der quelltext jetzt so lauten?
Delphi-Quellcode:
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
var dezimalzahl: integer;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
CB64: TCheckBox;
CB32: TCheckBox;
CB16: TCheckBox;
CB8: TCheckBox;
CB128: TCheckBox;
CB4: TCheckBox;
CB2: TCheckBox;
CB1: TCheckBox;
Edit1: TEdit;
Label2: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
if cb128.checked
then begin dezimalzahl:=dezimalzahl+128;
if cb64.checked
then begin dezimalzahl:=dezimalzahl+64 ;
if cb32.checked
then begin dezimalzahl:=dezimalzahl+32;
if cb16.checked
then begin dezimalzahl:=dezimalzahl+16;
if cb8.checked
then begin dezimalzahl:=dezimalzahl+8;
if cb4.checked
then begin dezimalzahl:=dezimalzahl+4 ;
if cb2.checked
then begin dezimalzahl:=dezimalzahl+2;
if cb1.checked
then begin dezimalzahl:=dezimalzahl+1;
end;
end.
außerdem muss das programm ja die dezimalzahl, die sie ausgerechnet hat, ausspucken
sie soll in einem editfeld stehen. Wie schreibe ich das? irgendwas mit inttostr oder so glaub ich.
Und das Programm soll die dezimalzahl wieder auf 0 setzen nach dem rechnen, damit man nicht das programm erst zu machen soll, damit man eine neue zahl eingeben kann.