delphi 分割文本并定义为不同变量类型

发布网友发布时间：2022-04-27 07:23

共3个回答

热心网友时间：2022-06-28 11:30

function TForm1.ExtractString(const source: string; const delimiter: char; index: integer): string;
var
strList: TStrings;
begin
strList := TStringList.Create;
try
strList.Delimiter := delimiter;
strList.DelimitedText := source;
Result := strList[index];
finally
strList.Free;
end;
end;

使用:
var
IP,Port:string;
begin
IP:=ExtractString('127.0.0.1:8080',':',0);
ShowMessage(IP);
Port:=ExtractString('127.0.0.1:8080',':',1);
ShowMessage(Port);
end;

热心网友时间：2022-06-28 11:31

procere TForm1.myProce(s1:string);
var i:integer;
begin
i:=pos(':',s1);
Form1.idhtp1.ProxyParams.ProxyServer:= Copy(s1, 1, i - 1);
Form1.idhtp1.ProxyParams.ProxyPort := strtoint(Copy(s1, i+1,Length(s1)-i));
end;

热心网友时间：2022-06-28 11:31

前面有人解答了，答案还不错。