Delphi字符串逆序這是壹本書輸出書a這是？

function ReverseStr(const sourceStr:string):string；

定義變量

tmpLst:TStringlist；

I:整數；

開始

嘗試

tmplst := TStringlist。創建；

tmplst。分隔符:=“”；

tmplst。delimited text:= sourceStr；

結果:=“”；

for i := tmplst。Count - 1下降到0 do

開始

result:= result+tmplst[I]+' '；

結束；

最後

tmpLst。免費；

結束；

結束；

呼叫方法

定義變量

s:字符串；

開始

s := '這是壹本書'；

s:= reverse str(s)；//書甲這是

結束；