Entwickler-Ecke

Sonstiges (Delphi) - EConvertError


tilli19222 - Fr 03.12.10 22:38
Titel: EConvertError
Hallo,

ich sitze nun seit über einer Stunde an der selben Fehlermeldung. Mein Programm soll Ablaufdaten (es geht nur um das Jahr) verschieder Dinge überprüfen und die Label abgelaufener Sachen rot einfärben. Ein Button dient zum schließen, einer zur Übernahme des Datums aus der Systemzeit und einer zum Überprüfen. Allerdings tritt immer die folgene Fehlermeldung auf,
kann mir jemand helfen?


---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt MA.exe ist eine Exception der Klasse EConvertError aufgetreten. Meldung: ''' ist kein gültiger Integerwert'. Prozeß wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------

Was ich bisher geschrieben habe:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
var
Form1: TForm1;
Monataktuell, Jahraktuell, KM1, KM2, KJ1, KJ2 : integer;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Monataktuell := StrToInt(EditMaktuell.text);
Jahraktuell := StrToInt(EditJaktuell.text);
KM1 := StrToInt(EditKM1.text);
KM2 := StrToInt(EditKM2.text);
KJ1 := StrToInt(EditKJ1.text);
KJ2 := StrToInt(EditKJ2.text);

if Jahraktuell - KJ1 = 0 then Label2.Color := red;


end;

procedure TForm1.Button3Click(Sender: TObject);
begin
EditJaktuell.text := FormatDateTime('yyyy', now);
end;

end.


Moderiert von user profile iconMartok: Delphi-Tags gesetzt


haentschman - Fr 03.12.10 22:43

Hallo und willkommen hier...

die Fehlermeldung resultiert aus einem leeren EditFeld. Du hast 6 Edits. Wenn eines davon leer ist, kann die Funktion StrToInt (im Button2Click) keinen Integer erzeugen.

:wave:


tilli19222 - Fr 03.12.10 22:46

Man merkt es sehr wenn man schon länger nicht mehr programmiert hat und aus der Routine raus ist!
Vielen Dank!