Hallo Delphi Spezialisten,

beginne mit der HTL in Wien und habe mit der Programmierung von Delphi 3 Probleme. Mit einem Mausklick auf den Button RECHNE" sollte im GESAMTFELD der Betrag erscheinen. Leider klappt dies bei mir nicht. Wo liegt der Fehlerteufel begraben, bitte um Hilfe bzw. um Denkanstöße.
Danke Roman

zusammenfalten · markieren

Delphi-Quellcode:

unit Roman_U;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Panel1: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Panel2: TPanel;
    Label9: TLabel;
    Edit7: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.Button1Click(Sender: TObject);
   Const
     n = 6;
   var
      Element: array[1..6] of real;
      i: integer; Summe: real;

 begin
  Element[1]:= StrToFloat(Edit1.text);
  Element[2]:= StrToFloat(Edit2.text);
  Element[3]:= StrToFloat(Edit3.text);
  Element[4]:= StrToFloat(Edit4.text);
  Element[5]:= StrToFloat(Edit5.text);
  Element[6]:= StrToFloat(Edit6.text);
  Summe:= 0;
  for i:= 1 to 6 do summe := summe + Element[i];

 end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Application.terminate;
end;

end.

[edit=Admin]Code in Delphi-Tags eingefügt. Künftig bitte selber machen. Mfg, Daniel[/edit]

woran liegt es denn?
Also "summe" lässt du ja auch garnicht anzeigen...

Zitat von bigroman:

markieren

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
Application.terminate;
end;

Aua,
mach das doch lieber mit Form1.Close

MfG Benjamin

Moin,

hab mal kurz Deine Zip-Datei runtergeladen.

1) Ich würde nur das Projekt, welches Probleme aufweist, uploaden.

2) Hier mal'n Ausschnitt aus Roman_u (hab's nach ein bisschen Suchen gefunden) :

markieren

Delphi-Quellcode:

 for i:= 1 to n do summe:= summe+Element[1];
  edt_Edit7.text:= FloatToStrf(Edit7,fffixed,8,2)
  end;

Dein Fehler (der übrigens im Quellcode in Deinem Post nicht existiert) liegt im
summe := summe + Element[1]; Es sollte eher Element[i] heissen.

Der gleiche Fehler kommt auch im unit Körpergewicht vor.

3) Ich würde StrToFloat() immer in ein try...except...end einbinden.

Tschüss,
lutz