Wir haben die folgende Prozedur erstellt und haben nun nen kleines Problem...
Sobald ich ein Feld weiter gehe, ohne eine Eingabe in einem Edit zu machen, schmeißt er mich raus und sagt:
"ProjectRBG.exe Raised exception class EConvertorError with message '' 'is not avalid integer value'."
Ich verstehe aber dann nicht, wieso er das nicht in allen Edits macht, sondern wieso bei einigen diese Prozedur möglich ist, obwohl sie alle gleich sind.
Danke!
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TFormRBG.EditAusAuf1Exit(Sender: TObject);
begin
if not (TEdit(Sender).text = '') then
begin
if (strtoint(TEdit(Sender).text) = 0) then
begin
TEdit(Sender).text := #0;
ShowMessage ('Keine 0 eingeben!!!')
end;
end;
end; |
Moderiert von 
Narses: Delphi-Tags hinzugefügt
