学步园

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

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