Question

delphi 如何截取一行字符串里面第二个空格之前的内容？

Answer 1

老版本的Delphi里没有PosEx函数，可以用循环的方式处理：
function TfrmText.GetSubStr(Str: string): string;
var
I, Counter: Integer;
begin
Counter := 0;
for I:=1 to Length(Str) do
begin
if Str[I] = ' ' then Inc(Counter);
if Counter = 2 then Break;
end;
Result := Copy(Str, I, MaxInt);
end;

Answer 2

按一般的方法，重要的是查找空格的位置
第一个空格可以用N := Pos(' ', str)
第二个空格可以用PosEx(' ', str, N);

result := Copy(str, 1, PosEx(' ', str, Pos(' ', str)-1));

PosEx要引用StrUtils

Answer 3

function TfrmText.GetSubStr(Str: string): string;
Result :=copy(Delete(str,1,pos(' ',str)),1,pos(' ',Delete(str,1,pos(' ',str)))－1)

end;