作者：小冬 (kend)
日期:2007-11-21
原文出处：http://myvnet.com/article.asp?id=13
http://myvnet.com/
http://www.cnpack.org/
数组与字符串内容的互相转换往往采用Move或CopyMemory来进行，我总结了一下它们的规则： 1.Move时如果访问的是string或string[n]，要用string[1]，因为string[0]是字符串的长度，所以所有string都以string[1]开始。
2.Move时如果访问的是array，静态array（array[0..n] of Char）时直接使用，动态array（array of Char）时使用array[0]。因为动态array时变量名其实只是一个指针地址，不代表数组内容的地址。
3.Move时如果访问的是PChar，要使用^取指向的内容。 Move时如果目标是数组的话：
1.静态数组array[0..n] of Char，取两者最小长度直接Move。
2.动态数组array of Char，取string长度并把数组SetLength后再Move 如果目标是string，无论是string或string[n]都要先SetLength。 如果目标是PChar，要用GetMemory申请内存，使用完后可别忘了FreeMemory。 （以上string指AnsiString，string[n]指ShortString） 下面是简单的一点测试代码，我没有添加结果输出，大家可以自己用F8跟踪看结果：
// 字符串到数组的转换
procedure StringToArray;
var
s1: string;
s2: string[20];
buf1: array[0..19] of Char;
buf2: array of Char;
len1, len2: Integer;
procedure cls;
begin
s1 := '';
s2 := '';
buf1 := '';
SetLength(buf2, 0);
SetLength(buf2, 20);
len1 := 0;
len2 := 0;
end;
begin
// string to char array
cls;
s1 := 'http://MyvNet.com';
len1 := Length(s1);
len2 := Length(buf1);
Move(s1[1], buf1, Min(len1, len2));
// string to dynamic char array
cls;
s1 := 'http://MyvNet.com';
len1 := Length(s1);
len2 := Length(buf2);
Move(s1[1], buf2[0], Min(len1, len2));
// string array to char array
cls;
s2 := 'http://MyvNet.com';
len1 := Length(s2);
len2 := Length(buf1);
Move(s2[1], buf1, Min(len1, len2));
// string array to dynamic char array
cls;
s2 := 'http://MyvNet.com';
len1 := Length(s2);
len2 := Length(buf2);
Move(s2[1], buf2[0], Min(len1, len2));
cls;
end;
// 数组到字符串的转换
procedure ArrayToString;
var
s1: string;
s2: string[20];
buf1: array[0..19] of Char;
len1, len2: Integer;
procedure cls;
begin
s1 := '';
s2 := '';
buf1 := '';
SetLength(buf2, 0);
SetLength(buf2, 20);
len1 := 0;
end;
begin
// char array to string
cls;
buf1 := 'http://MyvNet.com';
len1 := Length(buf1);
SetLength(s1, len1);
Move(buf1, s1[1], len1);
// char array to string array
cls;
buf1 := 'http://MyvNet.com';
len1 := Length(buf1);
SetLength(s2, len1);
Move(buf1, s2[1], len1);
// or
//Move(buf1, s2[1], len1);
//s2[0] := Chr(len1);
// dynamic char array to string
cls;
buf1 := 'http://MyvNet.com';
Move(buf1, buf2[0], Length(buf1));
len1 := Length(buf2);
SetLength(s1, len1);
Move(buf2[0], s1[1], len1);
// dynamic char array to string array
cls;
buf1 := 'http://MyvNet.com';
Move(buf1, buf2[0], Length(buf1));
len1 := Length(buf2);
SetLength(s2, len1);
Move(buf2[0], s2[1], len1);
// or
//Move(buf2[0], s2[1], len1);
//s2[0] := Chr(len1);
cls;
end;
// PChar和数组的转换
procedure TForm1.PCharAndArray;
var
pc: PChar;
buf1: array[0..19] of Char;
buf2: array of Char;
len1: Integer;
procedure cls;
begin
pc := '';
buf1 := '';
SetLength(buf2, 0);
SetLength(buf2, 20);
len1 := 0;
end;
begin
// PChar to array
cls;
pc := 'http://MyvNet.com';
len1 := Length(pc);
Move(pc^, buf1, len1);
// PChar to dynamic array
cls;
pc := 'http://MyvNet.com';
len1 := Length(pc);
Move(pc^, buf2[0], len1);
// array to PChar
cls;
buf1 := 'http://MyvNet.com';
len1 := Length(buf1);
pc := GetMemory(len1);
Move(buf1, pc^, len1);
FreeMemory(pc);
// dynamic array to PChar
cls;
buf1 := 'http://MyvNet.com';
Move(buf1, buf2[0], Length(buf1));
len1 := Length(buf2);
pc := GetMemory(len1);
Move(buf2[0], pc^, len1);
FreeMemory(pc);
cls;
end;
