所以我的文本文件包含:
Harry Potter and the Deathly Hallows###J. K. Rowling###2007
我必须以下列形式将其输出到FreePascal程序
J.K.Rowling "Harry Potter and the Deathly Hallows" 2007 year
我知道如何从文件中读取,但我不知道如何以普通的形式制作
有人能帮助我吗?我会非常感激。
答案 0 :(得分: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;
相同,那么这就可以解决问题:
TStringList
更新,正如@TLama所评论的那样,freepascal LineBreak
没有ReplaceStr
属性。
尝试这样做(在StrUtils中使用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;
):
{{1}}