function TCnInputHelper.ParsePosInfo: Boolean;
const
csParseBlockSize = 40 * 1024;
csParseBlockAdd = 80;
var
Stream: TMemoryStream;
View: IOTAEditView;
StartPos, CurrPos: Integer;
Element, LineFlag: Integer;
P: PChar;
EditorContent:IOTAEditorContent;
AOLEStream:TOleStream;
ASize:Integer;
Origin:string;
begin
Result := False;
View := CnOtaGetTopMostEditView;
if not Assigned(View) then Exit;
EditorContent:= View.Buffer as IOTAEditorContent;
AOLEStream:=TOleStream.Create(EditorContent.Content); //这里可以直接进入源码,不知道是否与buffer读取一样
try
CurrPos := CnOtaGetCurrPos(View.Buffer);
if View.CursorPos.Line > csMaxProcessLines then
begin
// CnOtaEditPosToLinePos 在大文件时会很慢，此处直接使用线性位置来计算
StartPos := Max(0, CurrPos - csParseBlockSize);
AOLEStream.Position:=StartPos;
ASize:=CurrPos +csParseBlockAdd-StartPos;
SetString(Origin, nil, ASize);
AOLEStream.Read(Pointer(Origin)^, ASize);
FPosInfo := ParsePasCodePosInfo(Origin, CurrPos-StartPos, False);
EditControlWrapper.GetAttributeAtPos(CnOtaGetCurrentEditControl,
View.CursorPos, False, Element, LineFlag);
case Element of
atComment:
if not (FPosInfo.PosKind in [pkComment, pkCompDirect]) then
FPosInfo.PosKind := pkComment;
atString:
FPosInfo.PosKind := pkString;
end;
end
else
begin
Stream:=TMemoryStream.Create;
AOLEStream.Position:=0;
Stream.LoadFromStream(AOLEStream);
//CnOtaSaveCurrentEditorToStream(Stream, False, False);
FPosInfo := ParsePasCodePosInfo(PChar(Stream.Memory), CurrPos, True);
end;
finally
FreeMemory(AOLEStream);
if Assigned(Stream) then
Stream.Free;
end;
{$IFDEF DEBUG}
with FPosInfo do
CnDebugger.LogMsg(
'TokenID: ' + GetEnumName(TypeInfo(TTokenKind), Ord(TokenID)) + #13#10 +
'AreaKind: ' + GetEnumName(TypeInfo(TCodeAreaKind), Ord(AreaKind)) + #13#10 +
'PosKind: ' + GetEnumName(TypeInfo(TCodePosKind), Ord(PosKind)) + #13#10 +
'LineNumber: ' + IntToStr(LineNumber) + #13#10 +
'LinePos: ' + IntToStr(LinePos) + #13#10 +
'LastToken: ' + GetEnumName(TypeInfo(TTokenKind), Ord(LastNoSpace)) + #13#10 +
'Token: ' + Token);
{$ENDIF}
SymbolListMgr.GetValidCharSet(FirstSet, CharSet, FPosInfo);
Result := not (FPosInfo.AreaKind in [akUnknown, akEnd]) and not
(FPosInfo.PosKind in [pkUnknown, pkString]);
end;
别外，我把刚对跟贴的放在下面，以便引起关注:
回复 用源码制作的新版cnwizards,,好像助手的速度提高很多
我再补充一句，我刚对给周总留言时无意中想到了toolsAPI里有一句话建义使用共享内存，而我无意中使用了共享内存，所以没有慢下来，别外fastMM也使用了共享内存，
原toolsapi.pas里活是这样的
{ OTA Prefix - Open Tools API
Accessing these interfaces only requires that the user use the Borlndmm.dll via
sharemem. }
