Taschenrechner Problem! Hilfe bitte!

[Darti401]

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:

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/vcl/ein-kleiner-rechner/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

[Tomo]

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

[Darti401]

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...

[LudenJupp]

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;
}

[terrorzwerg]

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.

[Darti401]

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


zahl1, zahl2, ergebnis : integer;


Hilfe ^^

[terrorzwerg]

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

[LudenJupp]

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/vcl/ein-kleiner-rechner/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

[Tomo]

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

[K1ngC0bra]

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

~Move~

[LudenJupp]

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!