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

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, который позволяет перевернуть строку, то есть транспонировать символы в обратном порядке.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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