RiverSoftAVG Products Help

Delphi

public
  property Text: String read FText write SetText;
 

The following example uses the TGParser class to parse a string of numbers and add the numbers up (delimiters are spaces). Note that this example didn't have to use TokenCount, it could have used the return value from the Next method to determine if it is finished:

Delphi

var
   i: Integer;
   Parser: TGParser;
 begin
   Parser := TGParser.Create( '10.5 123 40.3 56 70.1 89.2' );
   try
     result := 0;
     for i := 0 to Parser.TokenCount - 1 do
     begin
       Parser.Next;
       result := Result + StrToFloat(Parser.Token);
     end;
   finally
     Parser.Free;
   end;
 end; 

Reference

•GParser.TGCustomParser.First

•GParser.TGCustomParser.Last

•GParser.TGCustomParser.Next

•GParser.TGCustomParser.Previous

•TGCustomParser

•GParser