µ±Ç°Î»Ö㺱à³ÌÎĵµ >> DELPHI >> DELPHI×Ö·û´®·Ö¸îº¯Êý

ËùÊôÀà±ð£ºDELPHI
ÍƼöÖ¸Êý£º¡ï¡ï¡ï¡ï
ÎĵµÈËÆø£º700
±¾ÖÜÈËÆø£º2
·¢²¼ÈÕÆÚ£º2006-8-29

DELPHIûÓÐ×Ô¼ºµÄ×Ö·û´®·Ö¸îº¯Êý£¬ËùÒÔÖ»ÄܳÌÐòÔ±×Ô¼ºÐ´ÁË£¬ÍøÉÏËÑÁ˺ö൫ÊÇÕæÕýºÃÓõÄûÓм¸¸ö£¬ 
ÏÂÃæÕâ¸öÊÇÎÒÔÚÍøÉÏÕÒµ½Ð޸ĺóÁ˵ģ¬¸öÈ˸оõËã·¨²»´í£¬ËùÒÔ¾ÍÌùÁËÉÏÀ´¡£ 


function SplitString(Source, Deli: string ): TStringList;stdcall; 
var 
EndOfCurrentString: byte; 
StringList:TStringList; 
begin 
StringList:=TStringList.Create; 
while Pos(Deli, Source)>0 do 
begin 
EndOfCurrentString := Pos(Deli, Source); 
StringList.add(Copy(Source, 1, EndOfCurrentString - 1)); 
Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString); 
end; 
Result := StringList; 
StringList.Add(source); 
end;