Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 927

•  TDictionary Custom Sort  6 031

•  Fast Watermark Sources  5 821

•  3D Designer  8 641

•  Sik Screen Capture  6 153

•  Patch Maker  6 594

•  Айболит (remote control)  6 583

•  ListBox Drag & Drop  5 442

•  Доска для игры Реверси  95 376

•  Графические эффекты  6 796

•  Рисование по маске  5 967

•  Перетаскивание изображений  4 970

•  Canvas Drawing  5 343

•  Рисование Луны  5 070

•  Поворот изображения  4 608

•  Рисование стержней  3 266

•  Paint on Shape  2 507

•  Генератор кроссвордов  3 398

•  Головоломка Paletto  2 699

•  Теорема Монжа об окружностях  3 494

•  Пазл Numbrix  2 295

•  Заборы и коммивояжеры  2 985

•  Игра HIP  1 945

•  Игра Go (Го)  1 858

•  Симулятор лифта  2 208

•  Программа укладки плитки  1 931

•  Генератор лабиринта  2 369

•  Проверка числового ввода  2 055

•  HEX View  2 376

•  Физический маятник  2 010

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

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



Оформил: DeeCo

function ReverseString1(const s: string): string;
 var
   i, len: Integer;
 begin
   len := Length(s);
   SetLength(Result, len);
   for i := len downto 1 do
   begin
     Result[len - i + 1] := s[i];
   end;
 end;

 function ReverseString2(const Str: string): string;
 // by Ido Kanner 
var
   ch: Char;
   i, Size: Integer;
 begin
   Result := Str;
   Size   := Length(Result);
   if (Size >= 2) then
   // 2 or more chars 
  begin
     // For 1 to middle of the string 
    for i := 1 to (Size div 2) do
     begin
       // Lets get the charecter of the current place in the string 
      ch := Result[i];
       // Place the Current pos of the char 
      // with the char of it's mirror place... 
      Result[i] := Result[Size - (i - 1)];
       // In the mirror place we will put char of the 
      // Original place... And we switched places !!! 
      Result[Size - (i - 1)] := ch;
     end
   end;
 end;


 function ReverseString3(S: string): string;
 // by Rudy Velthuis 
var
   P, Q: PChar;
   C: Char;
 begin
   Result := S;
   if Length(Result) = 0 then Exit;
   P := PChar(Result);
   Q := P + Length(Result) - 1;
   while P < Q do
   begin
     C := P^;
     P^ := Q^;
     Q^ := C;
     Inc(P);
     Dec(Q);
   end;
 end;

 procedure ReverseString4(var S: string);
 // by Rudy Velthuis 
var
   P, Q: PChar;
   C: Char;
 begin
   if Length(S) = 0 then Exit;
   P := PChar(S);
   Q := P + Length(S) - 1;
   while P < Q do
   begin
     C := P^;
     P^ := Q^;
     Q^ := C;
     Inc(P);
     Dec(Q);
   end;
 end;







Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте