Delphi, Erfassung von Daten per StringGrid

[baumina]

Mein Vorschlag wäre folgender :

Delphi-Quellcode:

var
  StartNr : Integer;

begin
  try
    StartNr := StrToInt(trim(Startnummer.text)); // Leerstellen rausnehmen und in Zahl umwandeln
  except
    StartNr := 0;
  end; 

  if Startnr < 200 then
  begin
    Listbox.font.color:= clblue;
  end;
  if ((StartNr > 199) and (StartNr < 500)) then // auf Klammern achten
  begin
    Listbox.font.color:= clyellow;
  end;
  if StartNr > 599 then
  begin
    Listbox.font.color:= clred;
  end;