Einzelnen Beitrag anzeigen

Teladorn

Registriert seit: 17. Okt 2008
3 Beiträge
 
#1

Brauche Hilfe bei einem Rechner Programm ( erledigt )

  Alt 17. Okt 2008, 23:18
Hallo liebes Forum.

Falls das hier das falsche Forum ist Entschuldige ich mich schonmal, wusste nicht wo ich mein Problem sonst Posten sollte .
Nunja..
Habe vor kurzem Angefangen mich mit Delphi zu Befassen. Wollte nun ein Rechner Programmieren nach diesem Tutorial: Tutorial.
Nun ich bin bis zum Schritt 6 gekommen ( Vergleich des Quelltextes ).
Da mein Code sich etwas von diesem Unterscheidet dachte ich mir das ich mal bei Euch nach Hilfe Suche.

Mein Code sieht wie folgt aus:

Delphi-Quellcode:
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Berechnen: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Anlage: TLabel;
    Ergebnis: TLabel;
    Label1: TLabel;
    Zinsen: TLabel;
    Laufzeit: TLabel;
    procedure BerechnenClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BerechnenClick(Sender: TObject);
var
   anlage, zinsen, laufzeit, ergebnis: integer;
begin
   anlage := StrToInt(Edit1.Text);
   zinsen := StrToInt(Edit2.Text);
   laufzeit := StrToInt(Edit3.Text);
   ergebnis := Anlage * Zinsen / 100 + Anlage * Zinsen / 100 * Laufzeit;
   Label1.Caption := IntToStr(ergebnis);
end;

initialization
  {$I unit1.lrs}

end.
Nun ist allerdings der Fehler wenn ich den Rechner Testen will dieser:
Zitat:
unit1.pas(41,4) Error: Duplicate identifier "Anlage"
unit1.pas(41,4) Hint: Identifier already defined in unit1.pas at line 20
unit1.pas(41,12) Error: Duplicate identifier "Zinsen"
unit1.pas(41,12) Hint: Identifier already defined in unit1.pas at line 23
unit1.pas(41,20) Error: Duplicate identifier "Laufzeit"
unit1.pas(41,20) Hint: Identifier already defined in unit1.pas at line 24
unit1.pas(41,30) Error: Duplicate identifier "Ergebnis"
unit1.pas(41,30) Hint: Identifier already defined in unit1.pas at line 21
unit1.pas(46,38) Error: Incompatible types: got "Extended" expected "LongInt"
unit1.pas(55) Fatal: There were 5 errors compiling module, stopping
Hoffe ihr könnt mir Helfen.
Achja, benutze zum Programmieren das Programm Lazarus falls das Helfen könnte.
Gruß Sascha
  Mit Zitat antworten Zitat