if-Anweisungs Problem eines Anfängers

[Die Muhkuh]

Hi,


vielleicht machste in Onchage das:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var zahla: string;
    zahlz,laenge: integer;
begin
  zahla := Edit1.Text;
  laenge := length(zahla);
  if laenge<>0 then
   begin
   try
     zahlz := StrToInt(zahla[laenge]);
   except on EConvertError do
   begin
     ShowMessage('Bitte nur Zahlen eingeben.');
     Edit1.SetFocus;
     Edit1.Text := '';
     Exit;  //Kann nach meiner Meinung auch weggelassen werden
   end;
   end;
  if zahlz mod 2 = 1 then
  begin
    Edit1.Color:=clRed;
  end
  else
    Edit1.Color:=clBlue;
{****************************************}
if Edit1.Text = '' then
  Edit1.Color := clWhite;
{****************************************} 

end;

[edit=Luckie]Delphi-Tags ergänzt. Spider? Wie lange bist du schon hie rim Forum? Mfg, Luckie[/edit]
@Luckie: Die Tags hab ich grad selber gesetzt

edit: Code formatiert