从文件 FreePascal 中读取

Question

所以我的文本文件包含：

Harry Potter and the Deathly Hallows###J. K. Rowling###2007

而且我必须以如下形式输出到 FreePascal 程序

J.K.Rowling "Harry Potter and the Deathly Hallows" 2007 year

我知道如何从文件中读取，但我不知道如何使它像以前的表单一样

有人可以帮助我吗？非常感谢。

Answer 1

如果 freepascal 中的 TStringList 与 Delphi 中的相同，那么这样就可以解决问题：

function SortedString( const aString : String) : String;
var
  sList : TStringList;
begin
  Result := '';
  sList := TStringList.Create;
  try
    sList.LineBreak := '###';
    sList.Text := aString;
    if (sList.Count = 3) then
    begin
      Result := sList[1] + ' "' + sList[0] + '" ' + sList[2] + ' year';
    end;
  finally
    sList.Free;
  end;
end;

---

更新，正如 @TLama 所评论的，freepascal TStringList 没有 LineBreak 属性。

试试这个（在 StrUtils 中使用 ReplaceStr）：

function SortedString(const aString : String) : String;
var
  sList : TStringList;
begin
  Result := '';
  sList := TStringList.Create;
  try 
    sList.Text := ReplaceStr(aString,'###',#13#10);
    if (sList.Count = 3) then
    begin
      Result := sList[1] + ' "' + sList[0] + '" ' + sList[2] + ' year';
    end;
  finally
    sList.Free;
  end;
end;