String与Pchar的转化

function XXXReverseString(const AText: string): string;
var
  S, D: Pchar;
  i: Integer;
Begin
  S := Pchar(AText);
  SetLength(Result, Length(AText));
  D := Pchar(Result);
  for i := Length(AText) - 1  downto 0 do
  Begin
    D[Length(AText) - i - 1] := s[i];  //String与Pchar的转化
  end;
end;

 

 

function XXXReverseString(const AText: string): string;
var
  S, D: Pchar;
  i: Integer;
Begin
  S := Pchar(AText);
  SetLength(Result, Length(AText));
  D := Pchar(Result);
  for i := Length(AText)  downto 1 do
  Begin
    D^ := AText[i];
    inc(D);
  end;
end;