5,379
社区成员
发帖
与我相关
我的任务
分享
str := 'W GT, - Ws t,YU';
我用Stringlist分隔str
strlist.Delimiter := ',';
strlist.CommaText := str;
处理后,不但逗号的给分开了,空格也给分开了,我只要逗号分开就好,怎么搞
现在结果:
W
GT
-Wt
t
YU
我要的结果:
W GT
-Ws t
YU
procedure TForm1.Button1Click(Sender: TObject);
var
sl: TStrings;
i: integer;
begin
sl:= TStringList.Create;
ExtractStrings([','],[' '],'W GT, - Ws t,YU',sl);
for i := 0 to sl.Count - 1 do
begin
// 针对 sl.Strings[i] 做一些事
// ......
end;
Memo1.Lines:=sl;
sl.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
sl: TStrings;
i: integer;
begin
sl:= TStringList.Create;
ExtractStrings([','],[' '],'W GT, - Ws t,YU',sl);
for i := 0 to sl.Count - 1 do
begin
// 针对 sl.Strings[i] 做一些事
// ......
Memo1.Lines:=sl;
end;
sl.Free;
end;
procedure SplitStr(Str, Str_Div: string; var List: TStringList);
var
I : Integer;
S: string;
begin
List.Clear;
for I := 1 to Length(WideString(Str)) do
begin
if WideString(Str)[I] <> WideString(Str_Div) then
S := S + WideString(Str)[I]
else
begin
List.Append(S);
S := '';
end;
end;
List.Append(S);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
i:integer;
begin
str := 'W GT, - Ws t,YU';
i:=pos(',',str);
while i>0 do begin
memo1.Lines.Add(copy(str,1,i-1));
delete(str,1,i);
i:=pos(',',str);
end;
memo1.Lines.Add(str);
end;