StringGrid mit Daten füllen und farblich Darstellen

[Blup]

Die Funktion GetTextLength ist unnötig kompliziert (oder künstlerische Freiheit).

Delphi-Quellcode:

var 
  CurPointer: Integer; 
begin 
  CurPointer := DataPointer; 

  while (CurPointer <= Length(Data)) and not IsTerminatingChar(CurPointer) do 
    Inc(CurPointer); 

  Result := CurPointer - DataPointer; 
end;