问题 有问题

Question

2) 修改project2中的函数ShortStringAsPChar,使其可以按程序本意显示hello。注意,只能修改函数。
program Project2;{$APPTYPE CONSOLE}uses
  SysUtils;var
  ss: string;
  p: pchar;function ShortStringAsPChar(S:ShortString):PChar;
var
  tmpi : integer;
  tmps1: string;
begin  tmps1:=s;             //将shortstring转换为string
  Result:=pchar(tmps1); {返回PChar化的字符串}
end ;begin
  ss := 'hello';
  p  := ShortStringAsPChar(ss);
  ss := '1';
  ss := '2';
  writeln(p);
  readln;
end.

Answer 1

见鬼，楼主盗用我的号！！！  ：（