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

Материал из DRKB


Возврат перевернутой строки[править | править код]

// Перевернуть строку
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;


Author: Автор: ___Nikolay
Source: http://delphiworld.narod.ru/
ID: 04207



Переворот переданной строки[править | править код]

procedure ReverseString(var s: string);
var
  i: Integer;
  c: char;
begin
  if s <> '' then
    for i := 1 to Length(s) div 2 do
    begin
      c := s[i];
      s[i] := s[Length(s) + 1 - i];
      s[Length(s) + 1 - i] := c;
    end;
end;


Author: Автор: Profit Manson
Source: http://delphiworld.narod.ru/
ID: 04208



Возврат перевернутой строки, оптимизирован[править | править код]

function ReverseString(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;


Source: Взято с сайта: http://www.swissdelphicenter.ch
ID: 04209



Возврат перевернутой строки, еще оптимизирован[править | править код]

function ReverseString(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;


Source: Взято с сайта: http://www.swissdelphicenter.ch
ID: 04210



Возврат перевернутой строки с использованием PChar[править | править код]

function ReverseString(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;


Source: Взято с сайта: http://www.swissdelphicenter.ch
ID: 04211



Переворот переданной строки с использованием PChar[править | править код]

procedure ReverseString(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;


Source: http://www.swissdelphicenter.ch
ID: 04212