Einzelnen Beitrag anzeigen

Benutzerbild von baumina
baumina

Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#3

AW: Delphi, Erfassung von Daten per StringGrid

  Alt 13. Feb 2014, 15:19
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;
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)
  Mit Zitat antworten Zitat