从FreePascal文件中读取

时间:2013-03-16 09:12:46

标签: pascal freepascal

所以我的文本文件包含:

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

我必须以下列形式将其输出到FreePascal程序

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

我知道如何从文件中读取,但我不知道如何以普通的形式制作

有人能帮助我吗?我会非常感激。

1 个答案:

答案 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}}