[Error] Unit1.pas(70): ',' or ':' expected but 'BEGIN' found

[pandareos]

hi!
ich habe ein Problem!Ich hoffe ihr könnt mir helfen!
Also habe vor kurzem angefangen mit Delphi zu programmieren!
Ich habe auch ein gleich ein Programm geschrieben!Allerdings funktioniert es nicht!
Folgende Fehlermeldung taucht auf :

[Error] Unit1.pas(70): ',' or ':' expected but 'BEGIN' found

Hier der Code :
__________________________________________________ __________________________________________________ _____________________________

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Label22: TLabel;
    Label23: TLabel;
    Edit14: TEdit;
    Label24: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

var
erz: integer;erzlager,erzstufe,kristall: integer;kristalllager,kristallstufe,credits: integer;creditslager,eismetall: integer;eismetalllager,maguscredits,maguseismetall,regionen,stunden

begin

erzlager := StrToInt(Edit1.Text);
        kristalllager := StrToInt(Edit2.Text);
        creditslager := StrToInt(Edit3.Text);
        eismetalllager := StrToInt(Edit4.Text);
        erzstufe := StrToInt(Edit5.Text);
        kristallstufe := StrToInt(Edit6.Text);
        maguscredits := StrToInt(Edit7.Text);
        maguseismetall := StrToInt(Edit8.Text);
        regionen := StrToInt(Edit14.Text);
        stunden := StrToInt(Edit9.Text);
        erz := ((erzstufe*2)*(stunden*4))+erzlager+4;
        Edit10.Text := IntToStr(erz);
        kristall := ((kristallstufe*2)*(stunden*4))+kristalllager+4;
        Edit11.Text := IntToStr(kristall);
        credits := (((((regionen*5)+10) + (maguscredits))*(stunden*4))+creditslager);
        Edit12.Text := IntToStr(credits);
        eismetall := (maguseismetall*4);
        Edit13.Text := IntToStr(eismetall);
end;

end.

__________________________________________________ __________________________________________________ ____________________________
Ich verwende Dephi 6 Enterprise Edition!
Ich hoffe ihr könnt mir helfen!

könnt mir auch eine mail schicken : [e-mail]
cu pandareos

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[Lefko]

Hallo pandareos! :hi:

Herzlich Willkommen in der DP!
Ich empfehle, die DelphiCode-Tags zu setzen! [ delphi] CODE [ /delphi] (ohne die Leerzeichen!)
du kannst ja deinen ersten Post noch einmal editieren...

Also ich seh da kein begin oder end fehlen :gruebel: [Edith sagt, Lefko ist stulle! :wall: ]


MfG Lefko

[Christian Seehase]

Moin pandareos,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Du hast in der Button1Click Routine hinter der letzten Variablendeklaration vergessen anzugeben, welchen Typ die Variablen haben sollen.

[DelphiDeveloper]

Zitat:

var
erz: integer;erzlager,erzstufe,kristall: integer;kristalllager,kristallstufe,credits: integer;creditslager,eismetall: integer;eismetalllager,maguscredits,maguseismetall ,regionen,stunden

hier liegt dein fehler:
eismetalllager,maguscredits,maguseismetall,regione n,stunden
welcher Datentyp?



wenn man so code schreibt, ist es auch kein wunder das man fehler nicht findet;
so saehe das doch schon besser aus

Code:

var 
erz,erzlager,erzstufe,kristall,kristalllager,kristallstufe,credits,creditslager,eismetall: integer;
eismetalllager,maguscredits,maguseismetall,regionen,stunden: typ?

[pandareos]

danke danke!!

da liegt der Fehler!habe der variable stunden keinen Typ zugeteilt !
Habe das Problem gelöst!Einfach nur "stunden: integer;" hingeschrieben!

Ich muss ja mal sagen, dass diesem Forum einfach nur geil ist!Der Post war gerade ein paar Minuten drin, schon kamen 3 Antworten!
Herzlichen Dank nochmal!


cu pandareos

[pandareos]

achja nochwas!

wie mache ich da jetzt eine Exe draus??

cu pandareos

[pandareos]

schon gelöst!!

vielleicht sollte ich es erst ausprobieren bis ich was poste *gg*


cu pandareos

[kiar]

gute entscheidung :mrgreen:

[Christian Seehase]

Moin pandareos,

stimmt, aber da kann ich noch nachlegen ;-)

Hier gilt die Regel:
Nur eine Frage pro Thread, damit die Übersichtlichkeit gewahrt bleibt.
Danke.