怎样将用空格或其他间隔的字符串拆解成子字符串[2条回复]

当前位置：首页

开发技术指南» 文章正文

引言：

摘要：我的机器开机时总是提示scrsvr.exe 出错，按下ok后，紧接着提示win.ini出错，请问各位这是什么原因？ ......

摘要：因为需要pchar作为返回值，所以把一个函数f1封装成f2，如下。完全确定f1的返回值是正确的，调用任何多次不会出现问题。但是连续多次调用f2，会在部分次数里出现返回值错误，继续调用多次，程序会报错。 function f1():tstringlist; begin ...... end; function f2(var output:pchar):integer; var strl:t......

怎样将用空格或其他间隔的字符串拆解成子字符串

有专门的函数吗？

NO.1 作者： outer2000

没有，不过很多人写过的；你可以搜索看看，建议自己写一个；

NO.2 作者： chechy

procedure StrToStrings(S, Sep: string;
const List: TStrings);
var
I, L: Integer;
Left: AnsiString;
begin
Assert(List <> nil);
List.Clear;
L := Length(Sep);
I := Pos(Sep, S);
while (I > 0) do
begin
Left := LeftStr(S, I - 1);
List.Add(Left);
Delete(S, 1, I + L - 1);
I := Pos(Sep, S);
end;
if S <> then
List.Add(S);
end;

·10m大小的文件上传到数据库用什么上传组件比较好；上传到数据库的文件，能否用下载工具下载，大家帮忙，给个解决方案。 »显示摘要«

摘要： 10m大小的文件上传到数据库用什么上传组件比较好；上传到数据库的文件，能否用下载工具下载，例如：网际快车。大家帮忙，给个解决方案。 ......

» 本期热门文章：