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:
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 
Martok: Delphi-Tags gesetzt
