【控件功能】我来做练习-第53课-取最后一个逗号前得内容

取最后一个逗号前得内容

procedure TForm1.Button1Click(Sender: TObject);
var S,subStr: String;
SL : TStringList;
len: integer;
begin
S := 'fhfgg,gfhf,mllllllllllllln ';

SL   :=   TStringList.create; 
try 
    ExtractStrings([ ', '],[ '   '],pchar(S),SL); 
    subStr   :=   SL.Strings[SL.Count-1]; 
finally 
    SL.Free; 
end; 
len   :=   Length(subStr); 
Delete(S,Length(S)-len,len+1); 
showMessage(S); 

end;

方法2：
function Substr(sSource : string) : string;
var i : integer;
str : string;
begin
str := sSource;
i := pos( ', ',str);
while i <> 0 do
begin
str := copy(str,i + 1,length(str)- i);
i := pos( ', ',str);
end;
str := copy(sSource,1,length(sSource)-length(str)-1);
result := str;
end;