Главная страницаОбратная связьКарта сайта

Перевернуть строку

Автор: ___Nikolay
WEB-сайт: http://delphiworld.narod.ru

// Перевернуть строку
function ReverseString(s: string): string;
var
  i: integer;
begin
  Result := "";
  if Trim(s) <> "" then
    for i := Length(s) downto 1 do
      Result := Result + s[i];
end;

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


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Перевернуть строку", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info