本文整理自网络,侵删。
演示图
function reverse(s: string): string;var i, num: Integer; st: string;begin num := Length(s); st := ''; for i := num downto 1 do begin st := st + s[i]; end; Result := st;end;
procedure TForm1.Button1Click(Sender: TObject);beginMemo1.Text:=reverse('我是中国人');end;
相关阅读 >>
Delphi 如何使用findfirst搜索不同的文件类型?
Delphi idhttp.post超时导致整个线程停止问题解决
Delphi报警声音 beep、messagebeep 和 windows.beep
更多相关阅读请进入《Delphi》频道 >>