如何把一个pascal string 拷贝到一个array[0...19] of char中去?

Question

有没有现成的方法？还有，多余的剪掉。

Answer 1

var a : array[0..19] of char;
    b : string;  CopyMemory(@a[0],@b[1],SizeOf(a));

Answer 2

uses Math; //use Min()//...
var
  S: string;
  A: array[0..19] of Char;
begin
  //....S赋值
  FillChar(A, SizeOf(A), 0); // 清0
  if S = '' then Exit;
  Move(S[1], A[0], Min(Length(S), SizeOf(A)));
  //...使用A
end;
  FillChar(A, SizeOf(A), 0); // 清0
  if S = '' then Exit;
  Move(S[1], A[0], Min(Length(S), SizeOf(A)));
end;

Answer 3

var
  kk : array[0..5] of Char;
  pp : string;
begin
  pp := 'bkxvxcvxcvxcvxcv';
  kk[High(kk)] := Char(0);
  StrLCopy (kk,PChar(pp),sizeof(kk) - 1);
  ShowMessage (kk);
end;

Answer 4

StarRains(星雨)
最接近我要找的那个函数。liangqingzhi(老之) 那个有问题。
zswang(伴水清清)(专家门诊清洁工) 能完成功能。