Taschenrechner Problem! Hilfe bitte!

Abend,

habe grade angefangen Delphi zu lernen nun habe ich nach einem Workshop ein Taschen Rechner erstellen wollen. Blos das geht nicht so wie ich es möchte....

Hier der Quelltext:

Code:

---

using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;

namespace Projekt1
{
        /// <summary>
        /// Zusammenfassende Beschreibung für WinForm.
        /// </summary>
        public class WinForm : System.Windows.Forms.Form
        {
                /// <summary>
                /// Erforderliche Designer-Variable.
                /// </summary>
                private System.ComponentModel.Container components = null;
                private System.Windows.Forms.TextBox zahl1;
                private System.Windows.Forms.TextBox zahl2;
                private System.Windows.Forms.Label label1;
                private System.Windows.Forms.Label label2;
                private System.Windows.Forms.Label label3;
                private System.Windows.Forms.Label label4;
                private System.Windows.Forms.Label label5;
                private System.Windows.Forms.Button button1;

                public WinForm()
                {
                        //
                        // Erforderlich für die Unterstützung des Windows-Form-Designer
                        //
                        InitializeComponent();

                        //
                        // TODO: Konstruktorcode nach dem Aufruf von InitializeComponent hinzufügen
                        //
                }

                /// <summary>
                /// Ressourcen nach der Verwendung bereinigen
                /// </summary>
                protected override void Dispose(bool disposing)
                {
                        if (disposing)
                        {
                                if (components != null)
                                {
                                        components.Dispose();
                                }
                        }
                        base.Dispose(disposing);
                }

                #region Vom Windows Form-Designer erzeugter Code
                /// <summary>
                /// Erforderliche Methode zur Unterstützung des Designers -
                /// ändern Sie die Methode nicht mit dem Quelltext-Editor
                /// </summary>
                private void InitializeComponent()
                {
                        this.zahl1 = new System.Windows.Forms.TextBox();
                        this.zahl2 = new System.Windows.Forms.TextBox();
                        this.label1 = new System.Windows.Forms.Label();
                        this.label2 = new System.Windows.Forms.Label();
                        this.label3 = new System.Windows.Forms.Label();
                        this.label4 = new System.Windows.Forms.Label();
                        this.label5 = new System.Windows.Forms.Label();
                        this.button1 = new System.Windows.Forms.Button();
                        this.SuspendLayout();
                        //
                        // zahl1
                        //
                        this.zahl1.Location = new System.Drawing.Point(40, 56);
                        this.zahl1.Name = "zahl1";
                        this.zahl1.Size = new System.Drawing.Size(80, 20);
                        this.zahl1.TabIndex = 0;
                        this.zahl1.Text = "";
                        //
                        // zahl2
                        //
                        this.zahl2.Location = new System.Drawing.Point(168, 56);
                        this.zahl2.Name = "zahl2";
                        this.zahl2.Size = new System.Drawing.Size(80, 20);
                        this.zahl2.TabIndex = 2;
                        this.zahl2.Text = "";
                        //
                        // label1
                        //
                        this.label1.Location = new System.Drawing.Point(40, 40);
                        this.label1.Name = "label1";
                        this.label1.Size = new System.Drawing.Size(80, 16);
                        this.label1.TabIndex = 3;
                        this.label1.Text = "Zahl1";
                        //
                        // label2
                        //
                        this.label2.Location = new System.Drawing.Point(168, 40);
                        this.label2.Name = "label2";
                        this.label2.Size = new System.Drawing.Size(80, 16);
                        this.label2.TabIndex = 4;
                        this.label2.Text = "Zahl2";
                        //
                        // label3
                        //
                        this.label3.Location = new System.Drawing.Point(136, 56);
                        this.label3.Name = "label3";
                        this.label3.Size = new System.Drawing.Size(16, 16);
                        this.label3.TabIndex = 5;
                        this.label3.Text = "+";
                        //
                        // label4
                        //
                        this.label4.Location = new System.Drawing.Point(40, 88);
                        this.label4.Name = "label4";
                        this.label4.Size = new System.Drawing.Size(64, 24);
                        this.label4.TabIndex = 6;
                        this.label4.Text = "Ergebnis:";
                        //
                        // label5
                        //
                        this.label5.Location = new System.Drawing.Point(120, 88);
                        this.label5.Name = "label5";
                        this.label5.Size = new System.Drawing.Size(64, 24);
                        this.label5.TabIndex = 7;
                        this.label5.Text = "- keins -";
                        //
                        // button1
                        //
                        this.button1.Location = new System.Drawing.Point(40, 120);
                        this.button1.Name = "button1";
                        this.button1.Size = new System.Drawing.Size(208, 32);
                        this.button1.TabIndex = 8;
                        this.button1.Text = "Rechnen";
                        //
                        // WinForm
                        //
                        this.AutoScaleBaseSize = new System.Drawing.Size(5, 13);
                        this.ClientSize = new System.Drawing.Size(284, 264);
                        this.Controls.Add(this.button1);
                        this.Controls.Add(this.label5);
                        this.Controls.Add(this.label4);
                        this.Controls.Add(this.label3);
                        this.Controls.Add(this.label2);
                        this.Controls.Add(this.label1);
                        this.Controls.Add(this.zahl2);
                        this.Controls.Add(this.zahl1);
                        this.Name = "WinForm";
                        this.Text = "WinForm";
                        this.ResumeLayout(false);
                }
                #endregion

                /// <summary>
                /// Der Haupteintrittspunkt für die Anwendung.
                /// </summary>
                [STAThread]
                static void Main()
                {
                        Application.Run(new WinForm());
                }
                private void button1_Click(object sender, System.EventArgs e)
                {
                        var
                        zahl1, zahl2, ergebnis, integer;
                        begin
                        zahl1:=StrToInt(zahl1.Text);
                        zahl2:=StrToInt(Zahl2.Text);
                        ergebnis:=zahl1+zahl2;
                        label5.Caption:=IntToStr(ergebnis);
                        end;
                        end.
                }
        }
}

---

Hier der Workshop:
http://www.delphi-treff.de/tutorials...echner/page/1/

Bitte helft mir ich bin total neu. :oops: Und das Programmieren fällt mir momentan schwer da ich eigentlich nur Grafisch gut auskommen kann und mich auch an den Text - Teil gewöhnen möchte. Ich hoffe ihr könnt mir helfen :)

Wenns noch ginge dann könntet ihr bitte erklären bzw. sagen warum und was ihr geändert habt. Wäre sau cool :)

Gruß
DJ_Mic

Was genau funktioniert denn nicht wie du es möchtest?

Ja ich kanns nicht kompilen da bringt er hier den Fehler:

private void button1_Click(object sender, System.EventArgs e)
{
---> var
zahl1, zahl2, ergebnis, integer;
begin
zahl1:=StrToInt(zahl1.Text);
zahl2:=StrToInt(Zahl2.Text);
ergebnis:=zahl1+zahl2;
label5.Caption:=IntToStr(ergebnis);
end;
---> end.
}
}
}

Zwischen den 2 Pfeilen. Also wenn man auf den Button Rechnen klickt sollte er ja die 2 Zahlen zusammen rechnen die man angegeben hat aber da hat er ja beim kompilen irgendein Problem...

Zitat:

---

private void button1_Click(object sender, System.EventArgs e)
{
var zahl1, zahl2, ergebnis : integer;
begin
zahl1:=StrToInt(zahl1.Text);
zahl2:=StrToInt(Zahl2.Text);
ergebnis:=zahl1+zahl2;
label5.Caption:=IntToStr(ergebnis);
end;
}

---

zur Erklärung: Integer bezeichnet den Datentyp unter welchem die Variablen deklariert werden sollen, deshalb immer erst die gewünschten Variablen mit Kommata aufzählen und dann den Datentyp hinter einen Doppelpunkt schreiben.

Er sagt der Doppelpunkt wöäre fallsch...

Code:

---

                        zahl1, zahl2, ergebnis : integer;

---

Hilfe ^^

hast du deinen Quelltext an die "anweisungen" für dein Formular angehangen, irgendwie sieht das nämlich komisch aus ^^
der Quelltext muss in die Unit1

Sorry, mir fällt jetzt erstmal der Kaudawelsch auf...
Da ich nun keine Lust habe dir jedes Detail einzelnd zu erklären, sieh dir bitte den Beispielcode an:
http://www.delphi-treff.de/tutorials...echner/page/6/
Diesen kannst du mit deinem vergleichen und dann dürften dir die Fehler ins Auge springen.

edit: Heißt es eigentlich der oder das Kaudawelsch? Hmmm.. :P

Code:

---

private void button1_Click(object sender, System.EventArgs e)
      {
--->  var
        zahl1, zahl2, ergebnis, integer; //wurde ja schon gesagt
        begin
        zahl1:=StrToInt(zahl1.Text); //macht das sinn? du sagst damit, dass zahl1 einmal ein int und einmal ein String ist (bzw ein editfeld?) 2 Variablen dürfen nie den selben namen haben
        zahl2:=StrToInt(Zahl2.Text); //hier ist zahl2 großgeschrieben (das Z, keine ahnung obs ein fehler ist, ich sehe deine form ja net)
        ergebnis:=zahl1+zahl2;
        label5.Caption:=IntToStr(ergebnis);
        end;
--->  end.
      }
  }
}

---

Meine Sachen sind als Kommentare im Code

das soll Delphi sein? Sieht eher nach C aus^^

~Move~

Das ist kein C, sondern ein komischer Mischmasch. Die Prozedur (die übrigens auch falsch deklariert wurde) ist in Delphi geschrieben.
@Momo: Du zählst ihm Fehler auf, die keine Fehler sind! Er benutzt auch nie einen String als Integer. := ist in Delphi eine Zuweisung. StrToInt(); wandelt einen String in einen Integer-Wert um, damit man mit ihm rechnen kann, was Darti401 nunmal vor hat. Außerdem haben keine der Variablen den gleichen Namen! Delphi ist es übrigens auch die Groß- und Kleinschreibung egal.

@Darti401: Du machst ein großes Wirrwarr! Überdenke nochmal was du da tust!