主页 / 问题 / 1323399
Accepted
Татьяна
Asked:2022-09-01 21:27:48 +0000 UTC2022-09-01 21:27:48 +0000 UTC

复制从行首到最后一个空格的所有内容

  • 772

这是如何将所有内容复制到第一个空格

s:=copy(s,1,pos(' ',s)-1);

这是如何将所有内容复制到第二个空格

s:=copy(s,2,pos(' ',s)-1);

但是如何将所有内容从行首复制到最后一个空格？

也就是说，像这样的行：

str str str 123
str str 555
str 777

输出是：

str str str
str str
str
delphi

1 个回答

  1. Best Answer

    对不起，我已经一百年没有看到活的delphi了。您需要一个函数 LastDelimiter （最后一次出现），通常这样的事情将是

    uses SysUtils;
var
  p:integer;
  str: string;
  str2: string;
   
begin
 str:='111 222 333 444';
 p:=LastDelimiter(' ',str);
 str2:=copy(str,1,p-1);
 
 writeln(str2);
 
end.
    • 1

相关问题