[F] Programm zum schätzen

[mike1010]

hi,
ich habe von ein paar tagen mit einem buch angefungen delphi zu lernen..
zum problem:

ich habe alles so gemacht wie es im buch stand(ein paar texte variablen-namen geändert)
und es kommt:
[Fehler] Unit1.pas(214): Deklaration erwartet, aber Dateiende gefunden

mein unfertiges programm:
http://rapidshare.com/files/62439754...RAR-Archiv.rar

hofe mir kann jemand helfen und den fehler erklären....

der code der dirn steht falls jemand kein delphi hat aber pascal kann:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Eingabe: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   try
     Eingabe := StrToInt (Edit1.Text);
     if Eingabe = 53434 then Label1.Caption := 'Richtig getippt!';
   except
     Label1.Caption := 'FALSCH!';
end;

end.

mfG
mike

[Nemo.A]

Versuch mal:

procedure TForm1.Button1Click(Sender: TObject);
begin
   try
     Eingabe := StrToInt (Edit1.Text);
     if Eingabe = 53434 then Label1.Caption := 'Richtig getippt!';
   except
     Label1.Caption := 'FALSCH!';
  end;
end;

[Nano]

Oder versuchs mal so

procedure TForm1.Button1Click(Sender: TObject);
begin
   try
     Eingabe := StrToInt (Edit1.Text);
     if Eingabe = '53434' then Label1.Caption := 'Richtig getippt!';
   except
     Label1.Caption := 'FALSCH!';
end;

end.

Du hast nämlcih 53434 nicht als variable also musst du es in '' setzen

[mike1010]

danke danke!
also immer in '' setzen?

mfG
mike

[gORDon_vdLg]

ne es is doch integer, da darf man das nicht. sonst wird es doch ein string!

[Nano]

ne es is doch integer, da darf man das nicht. sonst wird es doch ein string!

???????
Vllt. solltest dir ne andere programmiersprache zulegen
Also ich denke mal 1. funktioniert es
Und 2. bin ich mir 99 % sicher dass die '''' nix mit integer und strings zu tun haben -.-

[gORDon_vdLg]

ne es is doch integer, da darf man das nicht. sonst wird es doch ein string!

???????
Vllt. solltest dir ne andere programmiersprache zulegen
Also ich denke mal 1. funktioniert es
Und 2. bin ich mir 99 % sicher dass die '''' nix mit integer und strings zu tun haben -.-

bevor du sowas sagst solltest du sicher gehen: http://www.gordon-stuff.de/nix/delphi.jpg

udo ey^^

[Gaara]

in dem fall von der frage is das glaub ich so weil edit felder immer als string behandelt werden (deswegen auch immer StrToInt(Edit1.text) wenn man nen taschenrechner macht)

bin mir aber net sicher weil ich delphi netmehr mach.

[gORDon_vdLg]

ja bei edit1.text is klar das man die ' nich braucht weil es ja wie ne variable behandelt wird... aber bei if Eingabe = '53434' then darf man die ' nicht verwenden weil Eingabe vorher als integer deklariert wurde...

[kleiner pogo]

var
Form1: TForm1;
Eingabe: Integer;

Hier deklariert er die VARIABLE (@Gaara es handelt sich nich um ein editfeld sondern um eine Variable) als Integer; somit müssen die '' weggelassen werden......