// Tokenizer input file setlength(TokenTypes, 3); // White space setlength(TokenTypes[0].Chars, 1); TokenTypes[0].Name := 'whitespace'; TokenTypes[0].Chars[0].Charset := #9, #10, #13, #32; TokenTypes[0].Chars[0].Repeat := False; // Identifier setlength(TokenTypes[1].Chars, 2); TokenTypes[1].Name := 'identifier'; TokenTypes[1].Chars[0].Charset := 'a'..'z', '_'; TokenTypes[1].Chars[0].Repeat := False; TokenTypes[1].Chars[1].Charset := 'a'..'z', '0'..'9', '_'; TokenTypes[1].Chars[1].Repeat := True; // Plus setlength(TokenTypes[2].Chars, 1); TokenTypes[2].Name := 'plus'; TokenTypes[2].Chars[0].Charset := '+'; TokenTypes[2].Chars[0].Repeat := False;