delphi - 反转数组中的字符串

Question

procedure ReverseArray(var A : array of string);
var I,J,L : integer;
begin
  for I := Low(A) to High(A) do
  begin
    L := length(A[I]);
    for J := L downto 1 do M := M + A[I];
  end;
  writeln(M);
end;


begin
  for I := 1 to 4 do readln(T[I]);
  ReverseArray(T);
  sleep(40000);
end.

我在这里想做的基本上是反转数组中的每个字符串，但我无法做到这一点，上面的代码所做的基本上是重复单词，具体取决于它们的长度(我在array ，该过程会给我 'bob' 三次，因为长度是 3) ...不知道为什么它不能正常工作以及我缺少什么

Answer 1

德尔福有一个 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.