请问字符数组和字符串赋值不兼容吗?

Question

定义:
var
 data1:Array[0..256]of char;
patBaseInf:string;
.
.
.
.   data1:=patBaseInf;  ???
------
//[Error] MC32_42p.pas(245): Incompatible types: 'Array' and 'String'

Answer 1

晕…… 强制转换一下嘛……data1:= string(patBaseInf);这样不就好了吗？

Answer 2

data1:= string(patBaseInf);不行,试了,
patbaseinf定义就 是一个string,string(string)?我不太明白,请问怎么取得patbaseinf的首地址?

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  Str1: array [0..9] of char;
  Str2: string;
begin
  Str2 := 'wahahahaha';
  CopyMemory(@Str1, @Str2[1], Length(Str2));
  ShowMessage(Str1);
end;

Answer 4

Delphi是强类型的，直接肯定不行的
转换就可以

Answer 5

pankun(剑神一笑 ^_^) 的方法可行!! 比較簡單!!!

Answer 6

但其實, 也可用
var
 data1:Array[0..256]of char;
 patBaseInf:string;
begin
  patBaseInf := 'abcdefg';
  strcopy(data1, Pchar(patbaseInf));
  showmessage(data1);
...

Answer 7

转换一下可以了
var  s:string 
可以s[1],s[2] 一个char

Answer 8

procedure TForm1.Button1Click(Sender: TObject);
type
  TCharArray = array[0..256] of char;
  PCharArray = ^TCharArray;
var
  a: TCharArray;
  s: string;
begin
  s := '12345';
  a := PCharArray(s)^;
  ShowMessage(a);
end;