Недавно добавленные исходники
• TDictionary Custom Sort 535 • Fast Watermark Sources 900 • 3D Designer 1 828 • Sik Screen Capture 1 474 • Patch Maker 1 482 • Айболит (remote control) 1 406 • ListBox Drag & Drop 1 175 • Доска для игры Реверси 21 826 • Графические эффекты 1 354 • Рисование по маске 1 295 • Перетаскивание изображений 1 096 • Canvas Drawing 968 • Рисование Луны 814 • Поворот изображения 770 • Рисование стержней 814 • Paint on Shape 493 • Генератор кроссвордов 762 • Головоломка Paletto 667 • Теорема Монжа об окружностях 855 • Пазл Numbrix 617 • Заборы и коммивояжеры 848 • Игра HIP 557 • Игра Go (Го) 527 • Симулятор лифта 548 • Программа укладки плитки 509 • Генератор лабиринта 565 • Проверка числового ввода 524 • HEX View 600 • Физический маятник 528 • Задача коммивояжера 560

Главная страница

Исходники (более 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;