Taschenrechner?

[Namenloser]

Das liegt daran, dass du das Formular geöffnet hast, Du musst aber die Datei mit der Endung .DPR oder besser .BDSPROJ öffnen, da Delphi mit einer einzigen Unit /einem einzigen Formular recht wenig anfangen kann, wie ich in meinen vorigen Posts zu erklären versucht habe.

[Kallypey]

Dankeschön :P

Falls irgendwer intresse hat, nen einfachen Taschenrechner mit + und - zu haben kann sich den downloaden *gg*

[Luckie]

Sehr schön. :P

Bleib dran, mach weiter so. :thumb:

[Namenloser]

Nicht schlecht für den Anfang :wink:

Der nächste Schritt wäre dann Mal und Geteilt.

[Kallypey]

Habs gerade mal damit probiert allerdings makiert der mir immer ne' Zeile rot und "meckert" rum :?
ICh hab erstmal verschiedene Varianten versucht aber nichts hilft... Welche Zeichen muss für mal und geteilt einsetzen?

PS: "zahl1 := StrToFloat(Edit1.Text);" macht der mir immer rot.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  zahl1, zahl2, ergebnis: Integer;
begin
  zahl1 := StrToInt(Edit1.Text);
  zahl2 := StrToInt(Edit2.Text);
  ergebnis := zahl1 + zahl2;
  Label4.Caption := IntToStr(ergebnis);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  zahl1, zahl2, ergebnis: Integer;
begin
  zahl1 := StrToFloat(Edit1.Text);
  zahl2 := StrToFloat(Edit2.Text);
  ergebnis := zahl1 * zahl2;
  Label4.Caption := FloatToStr(ergebnis);

end;

end.

[mkinzler]

Deklariere Zahl1 usw. mal als Extended.

[Kallypey]

Zitat:

Zitat von mkinzler

Deklariere Zahl1 usw. mal als Extended.

Sorry das ich frage aber was ist ein "Extended"?

[hanselmansel]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  zahl1, zahl2, ergebnis: Extended;  //<-- Extended-Datentyp
begin
  zahl1 := StrToFloat(Edit1.Text);
  zahl2 := StrToFloat(Edit2.Text);
  ergebnis := zahl1 * zahl2;
  Label4.Caption := FloatToStr(ergebnis);

end;

end.

[Klaus01]

Zitat:

Zitat von Kallypey

Zitat:

Zitat von mkinzler

Deklariere Zahl1 usw. mal als Extended.

Sorry das ich frage aber was ist ein "Extended"?

Extended
Range: 3.6 x 10^–4951 .. 1.1 x 10^4932
Significant Digits: 19–20
Size in Bytes: 10

findet man auch in der Delphi Hilfe.

Grüße
Klaus

[Namenloser]

Extended ist ein Variablentyp, der auch Kommas unterstützt. Integer kann nur ganze Zahlen aufnehmen.
(Integer kannst du auch divideren, allerdings erhälst du dann ein gerundetes Ergebnis. Um ein Integer zu dividieren verwende den Operator "div". Den rest der Division bekommst du durch "mod".)

edit: Extended ist der Datentyp mit den meisten Nachkommastellen. es gibt noch:

Real (Wird kaum noch verwendet),
Single und
Double (Verwende ich meistens)