array[0..199] of char 如何存取数据库？高手指点！
有一个数组 tmp:array[0..199] of char 赋值后存入数据库，然后在取出和另一个同类型的数组比对。主要是如何存取数据库？
转换用的是
PChar -> string : function StrPas(const Str: PChar): string;
String-> Pchar: lstrcpy(数组,pchar(字符串));
可是不行，高手指点！

[解决办法]
直接赋值，string本来可以当成字符数组用。

procedure TForm1.Button2Click(Sender: TObject);
var
a: array[1..20] of char;
b: string;
begin
a[1] := 'o ';
a[2] := 'k ';
b:=a;
showmessage(b); //显示ok
end;
[解决办法]
试试看这个行不?
var
s: string;
i: integer;
ss:array of Char;
begin
s:= 'abcdefg ';
SetLength(ss,Length(s)-1);
for i:=0 to Length(ss)-1 do
begin
ss[i]:=s[i+1]
end;
end;