讲述如何开发一个控件,很有价值(四)(4)

''''('''':
if (Run 1)^ = ''''*'''' then
begin

if (aTokenState = tsUnknown) then
begin

while (Run^ <> #0) and not ( (Run^ = '''')'''') and ((Run - 1)^ = ''''*'''') ) do inc(Run);

FComment:= csAnsi;
aTokenState := tsComment;

inc(Run);
break;

end

else

begin

aTokenState := tsSymbol;
break;

end;

end;

end;

aTokenState := tsSymbol; inc(Run);

end;

if aTokenState = tsUnknown then aTokenState := tsSymbol;

end;

#39:

begin

aTokenState:= tsString;
FComment:= csNo;

repeat

Case Run^ of
#0, #10, #13: raise exception.Create(''''Invalid string'''');
end;

inc(Run);

until Run^ = #39;

inc(Run);

end;

''''#'''':

begin

aTokenState:= tsString;
while Run^ in [''''#'''', ''''0''''..''''9''''] do inc(Run);

end;

''''$'''':

begin

FTokenState:= tsNumber;
while Run^ in [''''$'''',''''0''''..''''9'''', ''''A''''..''''F'''', ''''a''''..''''f''''] do inc(Run);

end;

else

if Run^ <> #0 then inc(Run);

end;

TokenLen := Run - TokenPtr;
SetString(aTokenStr, TokenPtr, TokenLen);
Result := Run

end; { ConvertReadStream }