用到的函数:
function pos(Substr:string; S: string):string; //函数返回子字符串第一次出现在制定字符串中的索引值。
copy() // 复制字符串
delete() //删除字符串中的一部分
思路:利用Pos函数定一个范围,然后再COPY,最后删了这个已经复制的部分,再进行下一个索引,如此循环。
例:
分下列字符串,DELPHI的:
ABCD VAR 1234
这是要拆分的一行字符串, 字符串之间有N个空格这样子.
const
S = 'ABCD VAR 1234';
var
p: integer;
str,rs: string;
begin
rs = S;
p := Pos(' ', rs);
while(p <> 0)
begin
str := Copy(S,p,Length(rs));
Delete(S,1,p);
ListBox1.Items.Add(str);
p := Pos(' ', rs);
end;
end;
例2
在要求用户输入GUID后,{E22ACEBC-DBFB-4F8C-BA76-D24151ECFD52},
我想将它存入TGUID中,但StringToGUID却不能用,那我就想将它转换成几个字符串,“E22ACEBC","DBFB","BA76",
uses StrUtils;
procedure StrToStrings(S: AnsiString; Sep: AnsiString; 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;