使用SplitString來拆解字串內多於空白會產生錯誤
各位前輩及版主大人：
想請教一下我有一個字串內容為如下
S:= #0' INPUT g_zyw01 g_zyw02 WITHOUT DEFAULTS FROM zyw01 zyw02 ';
但是使用卻會產生L=0的結果，我欲取得的結果是8
L := SplitString(S, Delimiter);
Result := L.Count;
不知道錯誤在哪裡，希望各位給予解答，Debug好久！

function SplitString(S, Delimiter: string): TStringList;
begin
// ¤À³Î¦r¦ê
Result := TStringList.Create;
// Result.Text := StringReplace(S, Delimiter, #13, [rfReplaceAll]);
Result.Text := StringReplace(S, Delimiter, #13, [rfReplaceAll, rfIgnoreCase]);
end;

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！

補充

// 如下我希望取出來的分割數量是3，而非5
ShowMessage(IntToStr(GetSplitStringItemCount('A B C', ' ')));

function GetSplitStringItemCount(S, Delimiter: string): Integer;
var
L: TStringList;
i: Integer;
NewStr: string;
begin
L := SplitString(S, Delimiter);
Result := L.Count;
end;
function SplitString(S, Delimiter: string): TStringList;
begin
Result := TStringList.Create;
Result.Text := StringReplace(S, Delimiter, #13, [rfReplaceAll]);
end;
我曾經改寫如下，但是取出的數量變成0，不知道該如何改正，
才能將字串內多餘的空白視為一個
function GetSplitStringItemCount(S, Delimiter: string): Integer;
var
L: TStringList;
i: Integer;
NewStr: string;
begin
if Delimiter = ' ' then
begin
NewStr := '';
for i := 0 to Length(S) do
begin
if ((i > 0) and (s[i - 1] = ' ') and (s[i] = ' ')) then
begin
NewStr := NewStr '';
end
else
begin
NewStr := NewStr s[i];
end;
end;
s := NewStr;
end;
L := SplitString(S, Delimiter);
Result := L.Count;
end;

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！

簡單處理一下, 將空白字串的項目移除




for I := Result.Count-1 downto 0 do
if Trim(Result[I]) then Result.Delete(I);

編輯記錄