RiverSoftAVG Products Help

Delphi

public 
  function First: Boolean; virtual; 
 

The following example uses the TGParser class to parse a string of numbers and add the numbers up (delimiters are spaces):

Delphi

var
   Parser: TGParser;
 begin
   Parser := TGParser.Create( '10.5 123 40.3 56 70.1 89.2' );
   try
      result := 0;
      if Parser.First then
        repeat
           result := Result + StrToFloat(Parser.Token);
        until not Parser.Next;
   finally
      Parser.Free;
   end;
 end;

Reference

•GParser.TGCustomParser.Last

•GParser.TGCustomParser.Next

•GParser.TGCustomParser.Previous

•GParser.TGCustomParser.Text

•TGCustomParser

•GParser