Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 3 381 • TDictionary Custom Sort 5 603 • Fast Watermark Sources 5 357 • 3D Designer 7 785 • Sik Screen Capture 5 657 • Patch Maker 6 146 • Айболит (remote control) 6 159 • ListBox Drag & Drop 5 044 • Доска для игры Реверси 93 937 • Графические эффекты 6 325 • Рисование по маске 5 372 • Перетаскивание изображений 4 554 • Canvas Drawing 4 921 • Рисование Луны 4 668 • Поворот изображения 4 205 • Рисование стержней 2 963 • Paint on Shape 2 197 • Генератор кроссвордов 3 041 • Головоломка Paletto 2 391 • Теорема Монжа об окружностях 3 170 • Пазл Numbrix 2 080 • Заборы и коммивояжеры 2 720 • Игра HIP 1 700 • Игра Go (Го) 1 620 • Симулятор лифта 1 938 • Программа укладки плитки 1 672 • Генератор лабиринта 2 102 • Проверка числового ввода 1 797 • HEX View 2 052 • Физический маятник 1 794

Главная

Исходники (более 1 300 примеров)

Компоненты

HabLance - биржа фриланса

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

Автор: ___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;