AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

ungültiger Gleitkommawert?

Offene Frage von "Bummi"
Ein Thema von Eltonmaster · begonnen am 27. Dez 2012 · letzter Beitrag vom 27. Dez 2012
 
Eltonmaster

Registriert seit: 27. Dez 2012
3 Beiträge
 
#1

ungültiger Gleitkommawert?

  Alt 27. Dez 2012, 13:10
Hallo Leute,
Ich hoffe das Thema ist hier richtig (Bin neu hier).


Ich beschäftige mich nun schon rund 2 Monate mit Delphi,
deshalb wollte ich mir einen Notenrechner schreiben, der mir meine Zeugnisnoten errechnet.
Ich habe also mehrere Stunden überlegt und geschrieben.
Jetzt wollte ich es testen und da wird mir angezeigt das der Wert ''' kein gültiger Gleidkommawert ist.
Ich kann mir echt nicht mehr weiterhelfen. Vielleicht könnt ihr es ja. Hoffe auf viele Antworten.

PS.: Hier ist mein ganzes Projekt. Wenn Fragen aufkommen, einfach anschreien.
http://rapidshare.com/files/3739377692/Projekt1.rar
Delphi-Quellcode:
unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit9: TEdit;
    Label9: TLabel;
    Edit10: TEdit;
    Edit11: TEdit;
    Label10: TLabel;
    Label11: TLabel;
    Edit12: TEdit;
    Label12: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label13: TLabel;
    Label14: TLabel;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit8: TEdit;
    Edit15: TEdit;
    Label8: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
  kk1, kk2, kk3, kk4, kk5, kk6, kk7, kk8, kk9, kks, ka1, ka2, ka3 : real;
  kkdurchschnitt : real;
  kadurchschnitt : real;
  notendurchschnitt : real;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;
  kk1, kk2, kk3, kk4, kk5, kk6, kk7, kk8, kk9, kks, ka1, ka2, ka3 : real;
  kkdurchschnitt : real;
  kadurchschnitt : real;
  notendurchschnitt : real;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Edit8.Clear;
Edit9.Clear;
Edit10.Clear;
Edit11.Clear;
Edit12.Clear;
Edit13.Clear;
Edit14.Clear;
Edit15.Clear;
end;

procedure TForm3.Button2Click(Sender: TObject);
var
  kk1, kk2, kk3, kk4, kk5, kk6, kk7, kk8, kk9, kks, ka1, ka2, ka3, kas : real;
  kkdurchschnitt : real;
  kadurchschnitt : real;
  notendurchschnitt : real;
begin
if edit1.text='then edit1.Text:= '0';
if edit2.text='then edit2.Text:= '0';
if edit3.text='then edit3.Text:= '0';
if edit4.text='then edit4.Text:= '0';
if edit5.text='then edit5.Text:= '0';
if edit6.text='then edit6.Text:= '0';
if edit7.text='then edit7.Text:= '0';
if edit8.text='then edit8.Text:= '0';
if edit15.text='then edit15.Text:= '0'; //

                                            //
if edit15.text='0then edit13.Text := '8';
if edit8.text='0then edit13.Text := '7';
if edit7.text='0then edit13.text := '6';
if edit6.text='0then edit13.text := '5';
if edit5.text='0then edit13.text := '4';
if edit4.text='0then edit13.text := '3';
if edit3.text='0then edit13.text := '2';
if edit2.text='0then edit13.text := '1';
if edit1.text='0then edit13.text := '0';
 kk1 := strtofloat(edit1.text);
 kk2 := strtofloat(edit2.text);
 kk3 := strtofloat(edit3.text);
 kk4 := strtofloat(edit4.text);
 kk5 := strtofloat(edit5.text);
 kk6 := strtofloat(edit6.text);
 kk7 := strtofloat(edit7.text);
 kk8 := strtofloat(edit8.text);
 kk9 := strtofloat(edit15.text);
                                        //
if edit9.text='then edit9.Text:= '0';
if edit10.text='then edit10.Text := '0';
if edit11.text='then edit11.Text := '0';
if edit11.text='0then edit14.text := '2';
if edit10.text='0then edit14.text := '1';
if edit9.text='0then edit14.text := '0';
 ka1 := strtofloat(edit9.text);
 ka2 := strtofloat(edit10.text);
 ka3 := strtofloat(edit11.text);

 kas := ka1 + ka2 + ka3;
 kks := kk1+ kk2+ kk3+ kk4+ kk5+ kk6+ kk7+ kk8+ kk9; //
 Label13.Caption := floattostr(kks);
 Label14.Caption := floattostr(kas);
 kkdurchschnitt := kks/ strtofloat(edit13.text);
 kadurchschnitt := kas/ strtofloat(edit14.text);

 notendurchschnitt := kkdurchschnitt*(2/3)+kadurchschnitt*(1/3);
 Edit12.Text := floattostr (notendurchschnitt);
end;

end.
  Mit Zitat antworten Zitat
 

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:52 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz