我的CPU為什麼會100%呀，代碼正确也不行 看下面的代碼： Function CompareTwoString(AText,SubText:string):boolean; begin if ansiSame(leftstr(AText,length(SubText)),SubText) then result:=True else result:=False; end; 目的是比較AText的開始部分與subText一樣就TRUE； 對于比較3-5M的文件就會使CPU100%，這應該怎麼辦呀？ IMPROVE FOREVER

試試  Function CompareTwoString(Const AText,SubText:string):boolean; 也可試試將 Const 改 Var 看看時間有沒分別。

還是不行呀，一樣的CPU100%呀 另外有沒有用WORLD外理的解決方法呀 IMPROVE FOREVER

Try this one..    

Function CompareTwoString(const AText,SubText:string):boolean;
begin
    Result := (PosEx(SubText,AText)=1);
end;

Are you sure most cpu time is spent on this function?

這個POSEX是干什麼的呀？ 我用我上面的代碼，我的電腦就會停止反應呀！ I'm sure of that. IMPROVE FOREVER

Quoted from Delphi help:    function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer; C syntax: extern PACKAGE int __fastcall PosEx(const AnsiString SubStr, const AnsiString S, unsigned Offset = 1); Description PosEx returns the index of SubStr in S, beginning the search at Offset. If Offset is 1 (default), PosEx is equivalent to Pos. PosEx returns 0 if SubStr is not found, if Offset is greater than the length of S, or if Offset is less than 1. If you are aiming at case insensitive compare, then PosEx is a good choice, otherwise I think you need to do a little bit more work... >>

William. Thanks! You are so lovely! Using the 'posex',i've done it successfully! IMPROVE FOREVER