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