delphi的痛苦,在线等待,有答就有分,绝对在一个礼拜内结贴!字符串问题!
问题是这样的:
var
f:file of string[8];
s1:string;
s2:string;
i:integer;
j:integer;
s8:string[8];
begin
AssignFile(f,'asd.pgm');
s:='9999999999999';//13个9
s8:=function(s);
//需要大家帮忙写这个函数
Rewrite(f);
Write(f,s8);
Closefile(f);
{
//最后得到的文件的内容如下:
9f 86 01 00 ff e0 f5 05
以上是文件内容
下边是分别对应13个9转化成16进制位置
5 6 7 8 1 2 3 4
其实后4位也就是9 9 9 9 9 9 9 9转化为16进制后倒置后排列的 //8个9
前4位是99999转化为16进制后倒置后排列的 //5个9
』}
end;