一个把其它位数填充为*的问题

Question

这样行吗？？？
var
  s:string;
begin
  ...
  s:='*'+random(9)+'**';
  ...
end;我忘了，呵呵

Answer 1

忘了转换了
记得把random(9)转成字符串

Answer 2

const strLen = 4;
var 
  pstr: pchar;
  pos: Integer;
begin
  pstr := GetMem(strLen);
  FillChar(pstr, strLen, '*');
  pos := Integer(Random(strLen);
  pstr[pos] := '7';//你要的数
  FreeMem(pstr);
end