Переворот строк в массиве на Delphi

Delphi , Синтаксис , Циклы

Заголовок:

Описание проблемы:

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

Контекст:

У пользователя есть процедура ReverseArray, которая принимает в качестве параметра массив строк и должна переворачивать каждую строку в этом массиве. Однако, при тестировании процедуры с массивом из четырех строк ('bob', 'david', 'john', 'usa') она не работает должным образом. В результате процедура выводит повторение слов в зависимости от их длины, а не переворачивает их.

Подтвержденный ответ:

Массив строк в Pascal является, по сути, массивом массивов символов с некоторыми дополнительными функциями. Чтобы перевернуть строку, вам придется обратиться к каждому символу и перевернуть его. Вот пример процедуры, которая делает именно это:

procedure ReverseArray(var A : array of string);
var
  i, j, Len : integer;
  B: string;
begin
  for i := Low(A) to High(A) do begin
    Len := length(A[i]);
    SetLength(B, Len);  //Сделайте B такой же длины, как и A[i].
    //B[Len] = A[i][1]; B[Len-1]:= A[i][2] и т.д.
    for j := Len downto 1 do B[j]:= A[i][(Len-J)+1];
    //Запишите перевернутую строку обратно в массив.
    A[i]:= B;
    //Так как A является параметром var, он будет возвращен.
    //Writeln(B); //Выведите B для отладки.
  end;
end;

var
  i: integer;
  Strings: array [0..3] of string;
begin
  for i := 0 to 3 do readln(Strings[i]);
  ReverseArray(Strings);
  for i := 0 to 3 do writeln(Strings[i]);
  WriteLn('Готово, нажмите любую клавишу...');
  ReadLn;
end.

Альтернативный ответ:

Возможно, вы захотите воспользоваться встроенной функцией Delphi ReverseString из модуля StrUtils. Вот пример процедуры, использующей эту функцию:

uses
  StrUtils;

type
  TStrArray = array of string;

procedure ReverseArray(var A : TStrArray);
var
  I: integer;
begin
  for I := Low(A) to High(A) do
    A[I] := ReverseString(A[I]);
end;

var
  T: TStrArray;
  I: Integer;
begin
  SetLength(T, 4);
  for I := 1 to 4 do Readln(T[I]);
  ReverseArray(T);
  //...
end.

Заключение:

В данной статье мы рассмотрели проблему переворота строк в массиве на Delphi и предложили два решения: собственную процедуру переворота и использование встроенной функции ReverseString. Оба решения позволяют перевернуть каждую строку в массиве, как того хотел пользователь.

Создано по материалам из источника по ссылке.

Пользователь нуждается в помощи с переворотом строк в массиве на языке программирования Pascal в среде разработки Delphi.

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

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

:: Главная :: Циклы ::