工具代码备忘

1、处理以逗号分隔的长字符串。

procedure Str_Tools;
var
    TmpList:TStringList;
    IIndex:Integer;
    MUSVOL:String;
begin
    MUSVOL:='0,2,4,6,8,10';
    TmpList:=TStringList.Create;
    try
        while Pos(',',MUSVOL)>0 do
        begin
            IIndex:=Pos(',',MUSVOL);
            TmpList.Add(Copy(MUSVOL,1,IIndex-1));
            Delete(MUSVOL,1,IIndex);
        end;
        TmpList.Add(MUSVOL);
        showmessage(TmpList.Strings[1]);
   finally
        TmpList.free;
   end;
end;
——————————————

获取本地IP地址源码

uses WinSock;
 
function LocalIP: string;
type
  TaPInAddr   =   array   [0..10]   of   PInAddr;
  PaPInAddr   =   ^TaPInAddr;
var
  phe:   PHostEnt;
  pptr:   PaPInAddr;
  Buffer:   array   [0..63]   of   char;
  I:   Integer;
  GInitData:   TWSADATA;
begin
    try
        WSAStartup($101,   GInitData);
        Result := '';
        GetHostName(Buffer,SizeOf(Buffer));
        phe := GetHostByName(buffer);
        if phe <> nil Then
        begin
            pptr := PaPInAddr(Phe^.h_addr_list);
            I := 0;
            while pptr^[I] <> nil do
            begin
                if i=0 then
                  result := StrPas(inet_ntoa(pptr^[I]^))
                else
                  result:=result+ ', '+ StrPas(inet_ntoa(pptr^[I]^));
                Inc(I);
            end;
        end;
    finally
        WSACleanup;
    end;
end；