Guten Tag,
ich habe mich jetzt man dran gesetzt und versucht ein bisschen Delphi zu lernen. Mein erstes Projekt war ein Taschenrechner. Leider funktioniert der Code nicht und ich wüsste gerne warum.
Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label2: TLabel;
Label3: TLabel;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Zahl, Zahl2, ergebnis: integer;
Zahl3: String;
n: Integer;
z: Integer;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
Repeat
if n = 10 then
Zahl := StrToInt(Edit1.Text);
Zahl2 := StrToInt(Edit2.Text);
ergebnis:=Zahl+Zahl2;
Zahl3 :=IntToStr(ergebnis);
ShowMessage(Zahl3);
if n = 20 then
Zahl := StrToInt(Edit1.Text);
Zahl2 := StrToInt(Edit2.Text);
ergebnis:=Zahl-Zahl2;
Zahl3 :=IntToStr(ergebnis);
ShowMessage(''+Zahl3);
z := 0
until z <= 1;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Label2.Caption:='+';
n := 10
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Label2.Caption:='-';
n := 20
end;
end.
Was willst du mit dem "repeat ... until z <= 1" machen? Ein Taschenrechner der Plus und Minus rechnet braucht das nicht.
Wenn du in Delphi Codeblöcke haben möchtest, dann musst du sie mit "begin ... end" einschließen.
Zum Beispiel:
Code:
if n = 10 then
begin
Zahl := StrToInt(Edit1.Text);
Zahl2 := StrToInt(Edit2.Text);
ergebnis:=Zahl+Zahl2;
Zahl3 :=IntToStr(ergebnis);
ShowMessage(Zahl3);
end;
Ja, bin ja gerade erst am Anfang. Hab einfach bisschen ausprobiert. Hast du ein gutes Tutorial für mich? Oder ein Programm das sie einfach verwirklichen lässt?
procedure TForm1.rb_divisionClick(Sender: TObject);
begin
bo_division := true ;
Nen Tut hatte ich leider nicht was etwas getaugt hatte aber konnte einiges durch rumprobieren lernen und habe einen Bekannten, Buddy die zur Stelle sind mit Rat und tat.
Das kann ich eher empfehlen als nen Tut.
Hoffe das hilft.
ps: sry das es net richtig eingerückt ist xD
"Das einzig erleuchtende an Religionen ist ein brennender Tempel in der Nacht!"
procedure TForm1.rb_divisionClick(Sender: TObject);
begin
bo_division := true ;
Nen Tut hatte ich leider nicht was etwas getaugt hatte aber konnte einiges durch rumprobieren lernen und habe einen Bekannten, Buddy die zur Stelle sind mit Rat und tat.
Das kann ich eher empfehlen als nen Tut.
Hoffe das hilft.
ps: sry das es net richtig eingerückt ist xD
Wie kann ich den Source-Code in Delphi einfach reinpasten? Wenn ich C&P mache sagt er immer das ihm die ganzen Forms und so fehlen. Muss ich die selber erstellen?
Ich bin auch nicht so für Tutorials deswegen wollte ich ja wissen was für ein Programm ich coden soll.
Einfach C&P geht leider nicht, wenn du willst kann ich dir das auch schicken.
Nein, ist schon okay. Möchte das ja selber schaffen.
Also ich habe jetzt einen neuen Taschenrechner gemacht. Mit 4 RadioButtons für die Rechenarten. Und ein Button um die Rechnung zu lösen. Jetzt möchte ich das wenn einer der RadioButtons gedrückt wird das sich einfach nur eine Variable ändert:
Code:
procedure TForm1.RadioButtonAdditionClick(Sender: TObject);
begin
rechenoperator:=+;
und dann einfach beim klicken auf den "Gleich" Button benutzt wird: