小弟請教各位大大, 例如 字串 'abc cdef ghi jkl', 小弟想抓每一個空白, 但不想用 pos() 及 字串處理函數來處理(會太慢, 因為此字串很長,Text), 有沒有一個函數可以直接要抓第幾個空白, 例如 pos(substr, mainstr:string,count:integer), 此 count 可以選擇第幾次出現 substr 在 mainstr 中.

提供想法給你

既然內建的Pos不符合效能需求,
長字串儘量不要在記憶體挪動,
用while迴圈自行判斷空白出現位置

或把所有空白替換成',',運用TStringList.CommaText
TStringList類別提供Find等字串強大操作功能

function FastPos(const Substr, S :String;Index :Integer):Integer;
function FastmemPos(const aSource, aFind; const aSourceLen, aFindLen : integer) : Pointer;
asm
push ESI
push EDI
push EBX

mov ESI, aFind
mov EDI, aSource
mov ECX, aSourceLen

mov Result, 0

cmp ECX, aFindLen
jl @TheEnd
cmp aFindLen, 1
jl @TheEnd

sub ECX, aFindLen
inc ECX
Mov Al, [ESI]
jmp @Scasb

@FindNext:
inc EDI
dec ECX
jz @NotFound

@ScaSB:
cmp [EDI], al
jz @CompareStrings
inc EDI
dec ECX
jnz @ScaSB
jmp @NotFound

@CompareStrings:
mov EBX, aFindLen

@CompareNext:
dec EBX
jz @FullMatch
mov Ah, [ESI EBX]
cmp Ah, [EDI EBX]
Jnz @FindNext

Jmp @CompareNext

@FullMatch:
mov Result, EDI
jmp @TheEnd
@NotFound:
mov Result, 0

@TheEnd:
pop EBX
pop EDI
pop ESI
end;
begin
if Index<1 then Index := 1;
Result := Integer(FastmemPos(S[Index], Substr[1],Length(S) - (Index -1),Length(SubStr)));
if Result>0 then Result := Result - Integer(@S[1]) 1;
end;

感謝各位大大的幫忙.

回覆 站務副站長, 小弟已按 將此問題結案 及 選擇 缺席, 但是不能結案, 能否請 副站長 幫忙結案.

沒有搞錯吧? 選缺席表示沒有人的答案符合你的需求,是這樣嗎?

結案的方式: 結案的按鈕左邊有一個ComboBox,選擇答題得分者在按下結案按鈕即可

===================引 用 energybody 文 章===================
回覆 站務副站長, 小弟已按 將此問題結案 及選擇 缺席, 但是不能結案, 能否請 副站長 幫忙結案.