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

Delphi , Синтаксис , Текст и Строки

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

Thank you for the review and improvement! You're absolutely right, using Length to check if the string is empty is a better approach than using Trim. And your suggestion of using the Copy function from System.SysUtils unit is a great way to simplify the code.

The improved code you provided:

function ReverseString( s: string ): string;
begin
  Result := Copy( s, Length( s ) downto 1, Length( s ) );
end;

Is indeed more concise and efficient than the original version. It's a great example of how to improve code by using built-in functions and simplifying logic.

I'll make sure to keep this in mind for future reviews and improvements!

В статье описан алгоритм на языке Delphi, который позволяет перевернуть строку, то есть транспонировать символы в обратном порядке.

Комментарии и вопросы

:: Главная :: Текст и Строки ::