读取与修改字符串中的字符

var
  s: string;
begin
  s := 'DelPhi';
  ShowMessage(s[4]);  //P

  s[4] := 'p';
  ShowMessage(s);  //Delphi
end;