Недавно добавленные исходники
• Animation Loaders 1 052 • DeLiKaTeS Tetris (Тетрис) 5 987 • TDictionary Custom Sort 7 921 • Fast Watermark Sources 7 581 • 3D Designer 10 821 • Sik Screen Capture 8 159 • Patch Maker 8 346 • Айболит (remote control) 8 397 • ListBox Drag & Drop 7 253 • Доска для игры Реверси 101 499 • Графические эффекты 8 453 • Рисование по маске 7 819 • Перетаскивание изображений 6 412 • Canvas Drawing 6 798 • Рисование Луны 6 732 • Поворот изображения 5 834 • Рисование стержней 4 780 • Paint on Shape 3 477 • Генератор кроссвордов 4 495 • Головоломка Paletto 3 618 • Теорема Монжа об окружностях 4 409 • Пазл Numbrix 2 860 • Заборы и коммивояжеры 3 811 • Игра HIP 2 579 • Игра Go (Го) 2 594 • Симулятор лифта 2 973 • Программа укладки плитки 2 403 • Генератор лабиринта 3 154 • Проверка числового ввода 2 638 • HEX View 3 047

Главная

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

Компоненты

Форум

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

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