一个字符串，中间有几个间断空格如'aaa bb ccc ddd'，怎么得到最后一个空格后的值

Question

Str := 'aaa bb ccc';
i := Length(Str);
while i >=0 do
begin
  if Str[i] ='' then break;
  i := i-1;
end;

Answer 1

s := PChar('aaa bb ccc ddd');
  for i := Length(S)-1 downto 0 do begin
    if S[i]=' ' then begin
      K := i;
      Break;
    end;
  end;
  ReSult := Copy(S,K+1,Length(S)-K);//这就是最后一个空格后的了

Answer 2

function GetLastString(S:String):String;
var i:integer;
begin
  for i:=Length(S) downto 1 do
  begin
    if S[i]=' ' then
    begin
      Result:=Copy(S,i,Length(S)-i+1);
      Break;
    end;
  end;
end;

Answer 3

var
  s, s1: string;
  a: PChar;s := 'aaa bb ccc ddd';
a := StrRScan(PChar(s), ' ');
s1 := StrPos(a+1);

Answer 4

function GetLastString(S:String):String;
var i:integer;
begin
  for i:=Length(S) downto 1 do
  begin
    if S[i]=' ' then
    begin
      Result:=Copy(S,i+1,Length(S)-i);
      Break;
    end;
  end;
end;

Answer 5

好像最后一句敲错一个字母：
var
  s, s1: string;
  a: PChar;s := 'aaa bb ccc ddd';
a := StrRScan(PChar(s), ' ');
s1 := StrPas(a+1);

Answer 6

可以这样实现
var
  i:integer;
  j:integer;
  s,k:string;
begin
  s:='aa bb cc dd"
  for i:=length(s) to 1 do begin
     if s[i]<>'' then begin
         k:=k+s[i];
         exit;
      end;
  end;
   edit1.text:=k;
end;
k就是最后的结果了，给分吧
     
     
    

Answer 7

来迟了，同意chechy(我爱洁洁) 的，最简单

Answer 8

同意chechy(我爱洁洁) 的，最简单

Answer 9

//from
http://kingron.myetang.com首部  function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas
功能  返回在指针字符串Str搜索字符Chr最后一个出现的地址
说明  没有找到则返回空指针
参考  <NULL>
例子  Edit2.Text := StrRScan(PChar(Edit1.Text), '*');
━━━━━━━━━━━━━━━━━━━━━
首部  function LastDelimiter(const Delimiters, S: string): Integer; $[SysUtils.pas
功能  返回最后一个分隔符的位置
说明  LastDelimiter('.', 'kingron.myetang.com') = 16
参考  function SysUtils.StrScan;function SysUtils.ByteType
例子  SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━  

Answer 10

//from
http://kingron.myetang.com首部  function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas
功能  返回在指针字符串Str搜索字符Chr最后一个出现的地址
说明  没有找到则返回空指针
参考  <NULL>
例子  Edit2.Text := StrRScan(PChar(Edit1.Text), '*');
━━━━━━━━━━━━━━━━━━━━━
首部  function LastDelimiter(const Delimiters, S: string): Integer; $[SysUtils.pas
功能  返回最后一个分隔符的位置
说明  LastDelimiter('.', 'kingron.myetang.com') = 16
参考  function SysUtils.StrScan;function SysUtils.ByteType
例子  SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━  

Answer 11

S := 'aaa bb ccc ddd';
Copy(S, LastDelimiter(#32, S), MaxInt);