Подписаться на RSS рассылку
Главная » Статьи по Delphi » Текст и строки » Обратить строку

Обратить строку

Автор: Kwant

function ReverseStr(Source: string): string;
var I, X: Cardinal;
begin
  X := 0;
  for I := Length(Source) downto 1 do
  begin
    X := X + 1;
    Result := Result + Source[I];
    SetLength(Result, X);
  end;
end;

Функция возвращает строку, обратную параметру Source.

Просмотров: 3180

Обсудить на форуме


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта