Datensätze im DBGrid farbig hinterlegen!

[Treffnix]

NofStr ist eine Function und kein String. Steht doch mit in eddys Source.

Zitat:

Delphi-Quellcode:

[..]
{liefert 0 ... n zurück, wenn s in sarr gefunden wurde, -1, wenn nicht} 
function NofStr( s : string; sarr : array of string) : integer; 
var 
  erg, i : integer; 
begin 
  erg := -1; 
  s := uppercase(s); 
  for i := 0 to high(sarr) do begin 
    if s = uppercase(sarr[i]) then begin 
      erg := i; 
      break; 
    end; 
  end; 
  Result := erg; 
end;

Wenn du das so übernommen hast musst du die Function nur noch entweder im Interface-Teil deiner Unit Eintragen function NofStr( s : string; sarr : array of string) : integer; oder über die andere Funktion verschieben, in der der Aufruf stattfindet.