读书人

pascal指针变量赋值,该如何处理

发布时间: 2012-09-16 17:33:16 作者: rapoo

pascal指针变量赋值
各位大大,我想问一下pascal指针变量赋值的问题:
1.我有条数据是这样的:12 34 57 639 Alfred Lincoln: 8,我定义了2个type用来放数据:
type Field = packed array[1..33] of char;
type employee = record
state: Integer;
plant: Integer;
dept: Integer;
empid: Integer;
count: Integer;
name: Field;
end;
有个指针:type ptr = ^ employee;
var p: array[1..n] of ptr;
文件写出: for j:=1 to 33 do
begin
{while not(p[1]^.name[j] in ['a'..'z','A'..'Z']) do
p[1]^.name[j]:=#32 ;}
write(fileout,p[1]^.name[j]);
end;
我排过序
结果是:12 34 56 789 4 George Carter­­ºð­ºð­ºð­ºðº, 名字后面有乱码。、
我想把这些乱码去掉,想用空格代替,就用了上面注释的内容,编译没问题,但结果出不来。
把 p[1]^.name[j]:=#32 ;改成 p[1]^.name[j]:='' ;编译会报错,说 got Constant string expected Char.
我不知道怎么弄了,各位大大能帮一下吗?

[解决办法]

Delphi(Pascal) code
先初始化var  i:integer;  p: array[1..10] of ptr;begin  for i:=low(p) to high(p) do  begin    new(P[i]);    Fillchar(p[i]^.name,sizeof(p[i]^.name),#0);   //name初化    //其它量初始化  end;end; 

读书人网 >.NET

热点推荐