delphi ExtractClassName 字符串处理函数

function ExtractClassName(const S: String): String;

var

I, L, K1, K2: Integer;

begin

L := Length(S);

result := '';

K1 := 0;

K2 := 0;

for I:= L downto 1 do

if S[I] = '.' then

if K2 = 0 then

K2 := I

else

begin

K1 := I;

result := Copy(S, K1 + 1, K2 - K1 - 1);

Exit;

end;

result := Copy(S, K1 + 1, K2 - K1 - 1);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

showmessage(ExtractClassName('www.delphitop.com')); //结果 delphitop

end;

推荐分享