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:

zusammenfalten · markieren

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

Hallo und willkommen im Forum!

Zuerst mal: Dein Thread-Titel ist absolut nichtsaussagend. Lass Dir mal was besseres und passenderes einfallen!

Zu Deinem Problem:
Du nennst Deine lokalen Variablen genau wie die VCL-Elemente (TLabel). Das ist nicht gut. Lass Dir für das Eine oder das Andere einen anderen, sinnigen Namen einfallen; und sei es nur, dass Du Deinen lokalen Variablen einen Unterstrich (_) voransetzt.

hello

dein problem ist eigentlich einfach erklaert. deine LABEL und VARIABLEN nutzen den gleichen namen.

das funktioniert dann natuerlich nicht.

Hier auch ein herzliches Wilkommen meinerseits

Falls dir nicht weitergeholfen wurde / bzw du es nicht so ganz verstanden hast:

Lösche mal als erstens alle Labels aus der Form !
Anschließend fügst Du wieder soviele du brauchst ein !
Anstelle die Eigenschaft "Name" zu ändern, änderst du "Caption" im ObjectInspector in der IDE !

Somit würde das wie folgt aussehen:

markieren

Code:

Edit1:TEdit;
Edit2:TEdit; ...

Und bei der BerechneClick Rrocedure müsstest du dann nichts mehr ändern

PS: Bitte verpass dem Thread eine anständigen Titel !

MfG und viel Spaß noch mit Delphi

Zitat von mr_emre_d:

Lösche mal als erstens alle Labels aus der Form !

Why?!
Umbenennen reicht doch!

Edit:
ich benutze für VCL-Elemente ganz gerne sog. Prefixe; "sterilisierte" Vornamen vor der eigentlichen Bezeichnung. Ein TLabel würde ich z.B. "lblEinLabel" nennen, ein TButton "btnEinButton" usw.. Eigne Dir mal ähnliches an, dann kann sowas nicht mehr passieren, außerdem sind VCL-Variablen strikt von eigenen getrennt und anhand ihrer Prefixe auf einem Blick erkennbar.

Hey, danke für eure schnellen Antworten ;D.
Fehler sind nun alle weg und Programm Funktioniert so wie gewollt .
Würde gerne das Prog als Anhang hier reinstellen aber mit 11mb doch was zu Groß ;D
Danke euch allen

11MB für ein "Anfängerprogramm" (Da gehe ich jetzt einfach mal, ganz dreist, von aus)?! Whoooo!

Schön, dass es jetzt funktioniert!

Ich nehme an, du programmierst mit Lazarus.

Schau dir Folgendes einmal an:
Exegröße ändern ( 17 )

MfG

Zitat von mr_emre_d:

Ich nehme an, du programmierst mit Lazarus.

Schau dir Folgendes einmal an:
Exegröße ändern ( 17 )

MfG

Richtig und danke, werds mir mal durchlesen .