用程序很简单啊


procedure SpliteStr(const S: string; var S1, S2: string);
var
lWS: WideString;

I: Integer;
begin
S1 := '';
S2 := '';

lWS := S;
for I := 1 to Length(lWS) do
if Length(string(lWS[I])) = 1 then
S1 := S1 + lWS[I]
else
S2 := S2 + lWS[I]
end;