Здравствуйте, Гость
Среда, 08.02.2012
Обратить строку
Автор: 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.
Просмотров: 1108
On-line статистика:
Онлайн всего: 3
Гостей: 2
Пользователей: 1
Статистика:
Copyright © 2008-2012 Программирование на Delphi для начинающих и не только
Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам
Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации
Хостинг от uCoz