Перевернуть строку
Материал из 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