数据类型转换：string<->char string<->pchar char<->pchar

Question

str<->char
copy(),pos()
str<-> pchar
pchar()
pchar<-> str
strpas()

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  C: Char;
  S: string;
  P: PChar;
begin
  //string->char//下标处理
  C := 'string<->char'[1]; //C := S[N]
  ShowMessage(Format('C=%s', [C]));
  //string<-char//直接赋值
  S := C;
  ShowMessage(Format('S=%s', [S]));
  //char->pchar//两个强制转换
  P := PChar(string(C));
  ShowMessage(Format('P=%s', [P]));
  //char<-pchar//指针值
  C := P^;
  ShowMessage(Format('C=%s', [C]));
  //string->pchar//强制转换
  P := PChar(S);
  ShowMessage(Format('P=%s', [P]));
  //string<-pchar//直接赋值
  S := P;
  ShowMessage(Format('S=%s', [S]));
end;