正在从文件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;