如何做可变长度的字符串？

Question

var
mima:array of char;
begin
  setlength(mina,length);
  mina:='*********';
end;

Answer 1

请问setlength这个函数是干什么用的？

Answer 2

用string类型就可以了，不需要什么函数
var
  mima: string;
...

Answer 3

var
mima:array of char;
leng,i:   integer;
begin
  leng:=9;
  setlength(mima,leng);
  for i:= 0 to leng -1 do
    mima[i]:='*';
  showmessage(strpas(@mima[0]));
end;

Answer 4

用string类型就可以了，不需要什么函数
var
  mima: string;
...

Answer 5

用string类型就可以了，不需要什么函数
var
  mima: string;
...

Answer 6

string or
动态数组 + SetLength()

Answer 7

setLength(mina,Length)
FOR i:=0 TO Length-1 DO
mina[i]:='*';

Answer 8

function setlengthstr(length:integer;c:char):string;
//length--你要设置的长度；c--你要设置的字符
var
  s:string;
  i:integer;
begin
   setlength(s, length);
   for i:= 1 to length do
      s[i]:=c;
   setlengthstr := s;
end;