string - 如何将字符串中的服务器名称与端口号分开？

Question

如果有一个像 smtp.gmail.com:587 这样的邮件服务器字符串，我如何解析它以将“smtp.gmail.com”保存在一个字符串变量中，并将“587”保存在另一个字符串变量中？

Answer 1

function SplitAtChar(const Str: string; const Chr: char;
  out Part1, Part2: string): boolean;
var
  ChrPos: integer;
begin
  result := true;
  ChrPos := Pos(Chr, Str);
  if ChrPos = 0 then
    Exit(false);
  Part1 := Copy(Str, 1, ChrPos - 1);
  Part2 := Copy(Str, ChrPos + 1, MaxInt);
end;

使用示例:

var
  p1, p2: string;
begin
  if SplitAtChar('smtp.gmail.com:587', ':', p1, p2) then
  begin
    ShowMessage(p1);
    ShowMessage(p2);
  end;