如何得到文本中的连续两个单字？？？

Question

如何得到文本中的连续两个单字
截取.txt中一小段文本，如：你/n  我/n  他/n  他们/w  你们/w  爱/v  我们/w  你/n  和/n  我/n
所谓单字就是指汉字前面有空格，后面有‘/’，如文本中的你/n  我/n  他/n，连续单字就是你/n  我/n，我/n  他/n，  你/n  和/n，和/n  我/n
要求得到‘你我 我他 爱你’，请问如何实现？好像挺难的

Answer 1

var
  Str, str1: WideString;
  I: Integer;
begin
  Str := '你/n  我/n  他/n  他们/w  你们/w  爱/v  我们/w  你/n  和/n  我/n ';
  for I := 1 to Length(Str) do
  begin
    if (Ord(Str[I]) >= 0) and  (Ord(Str[I]) <= 127) then
      Continue;
    str1 := str1 + Str[I];
  end;
  Caption := str1;
end;这样的? 

Answer 2

使用StringReplace函数！
Delphi syntax:
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;例如：var
  Flags: TReplaceFlags;
  oldSTR, newSTR: string;
begin
  Flags := [rfReplaceAll];  //全部替换
  oldSTR := '你/n  我/n，我/n  他/n，  你/n  和/n，和/n  我/n';
  newSTR := StringReplace(oldSTR,'/n', '', Flags);  //第一参数：原字符串，第二参数：要替换的字符，第三参数：替换成的支付
end;