Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Инвертировать

Автор: Artem91 15.7.2007, 13:14

Можно как-нибудь инвертировать строку(прочитать её задом наперед) не используя цикл??? Может для этого есть какая-нибудь спец функция?

Автор: dumb 15.7.2007, 14:09

ReverseString

Автор: Burka 15.7.2007, 14:16

называется рекурсия

Код


function P(Str:string):string;
 var sss,s1:string;
begin
sss:=copy(str, 1,1);
if length(str)<>0 then
 s1:=p(copy(str, 2,length(str)-1))
 else exit;

result:=s1+sss;
end;

Набросал по-быстрому.