tstrings和pchar的转换

Question

简单吧，做过的立刻就能回答。

Answer 1

命题不清楚
PChar(StringList1)?

Answer 2

★PChar->TStrings:
var
  s:TStringlist;
  b:pchar;
begin
  b:=pchar(s.text);
end;★TStrings->PChar:
var
  s:TStringlist;
  b:pchar;
begin
  s.add(strpas(b));
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var pp: pChar;
    sl: TStringList;
begin
  sl := TStringList.Create;
  sl.Text := Memo1.Text;
  GetMem(pp,100);
  pp := pChar(sl.Text);
  sl.Clear;
  sl.Text := StrPas(pp);
  Memo2.Text := sl.Text;
  sl.Free;
end;