如何将文本文件规律的十六进制转化为十进制存到数组中?下面是数据(两个十六进制数转化一个十进制数如0A A0 转化为2720)(100)

L

lcq5070

Unregistered / Unconfirmed
GUEST, unregistred user!
0A A0 0A 86 09 B1 09 B9 09 D3 0A 20 09 B1 09 B4 09 D1 0A 1A 09 B6 09 C6 09 F4 0A 6C 0A 8D 09 C9 09 FF 0A 93 09 D8 0A 20 09 B5 09 CA 09 FE 0A 92 09 D5 0A 29 09 D9 0A 2B 09 DF 0A 3E 0A 1C 09 AF 09 B3 09 B9 09 D3 0A 20 09 B1 09 B4 09 BB 09 D1 0A 1A 09 B2 09 B9 09 CC 0A 15 09 A9 09 A2 09 86 09 39 09 99 09 79 0A 49 0A 3A 0A 0A 09 7D 0A 54 0A 51 0A 4D 0A 47 0A 32 09 F4 0A 6C 0A 8F 09 D0 0A 0A 09 84 09 29 09 68 0A 09 09 7B 0A 50 0A 3E 0A 1C 09 AF 09 B3 09 B9 09 D3 0A 20 09 B1 09 B4 09 BB 09 D1 0A 1A 09 B2 09 B8 09 BE 09 E1 0A 39 0A 0E 09 94 09 5D 09 FE 0A 93 09 D9 0A 32 09 F2 0A 6C 0A 8C 09 BB 09 D1 0A 1A 09 B2 09 B9 09 CC 0A 15 09 A9 09 A2 09 86 09 39 09 99 09 79 0A 49 0A 3A 0A 10 09 8C 09 44 09 AB 09 9F 09 8E 09 52 09 DC 0A 2C 09 DB 0A 2B 09 E2 0A 3A 0A 0C 09 7C 0A 49 0A 39 0A 0E 09 92 09 60 09 EE 0A 5B 0A 70 0A 97 09 E6 0A 4C 0A 34 09 F5 0A 80 09 97 09 72 0A 34 09 EF 0A 65 0A 8A 09 BA 09 D2 0A 16 09 A4 09 89 09 41 09 AB 09 A2 09 86 09 34 09 98 09 69 0A 1A 09 B2 09 B8 09 BE 09 E1 0A 39 0A 0E 09 92 09 5D 09 FD 0A 93 09 D9 0A 32 09 F2 0A 6C 0A 8C 09 BB 09 D1 0A 1A 09 B2 09 B9 09 CC 0A 15 09 A9 09 A2 09 86 09 39 09 99 09 79 0A 49 0A 3A 0A 0A 09 7D 0A 54 0A 51 0A 4D 0A 47 0A 32 09 F4 0A 6C 0A 8F 09 D0 0A 0A 09 84 09 29 09 68 0A 09 09 7B 0A 50 0A 3E 0A 1C 09 AF 09 B3 09 B9 09 D3 0A 20 09 B0 09 A6 09 99 09 7A 0A 4B 0A 3A 0A 0C 09 7C 0A 49 0A 3A 0A 0E 09 92 09 60 09 EE 0A 5B 0A 70 0A 9A 09 F4 0A 69 0A 8C 09 BB 09 D8 0A 22 09 BF 09 E4 0A 41 0A 1F 09 C8 09 F2 0A 74 0A A4 0A 01 09 69 0A 19 09 B6 09 C6 09 F4 0A 6C 0A 8F 09 D0 0A 0A 09 84 09 29 09 68 0A 09 09 7B 0A 50 0A 3F 0A 1C 09 AF 09 B3 09 B9 09 D3 0A 20 09 B1 09 B4 09 D1 0A 1A 09 B3 09 BA 09 D1 0A 14 09 9B 09 80 09 22 09 50 09 CC 0A 00 09 6F 0A 29 09 DB 0A 32 09 F4 0A 6C 0A 8D 09 C9 09 FE 0A 92 09 D5 0A 29 09 D9 0A 2B 09 DF 0A 3E 0A 1C 09 B8 09 C3 09 E9 0A 56 0A 5E 0A 76 0A B4 0A 2F 09 F0 0A 5F 0A 77 0A B7 0A 3C 0A 0D 09 8B 09 47 09 BA 09 D1 0A 14 09 9B 09 80 09 22 09 50 09 CC 0A 01 09 69 0A 19 09 B3 09 BA 09 D1 0A 14 09 9B 09 80 09 22 09 50 09 CC 0A 01 09 69 0A 19 09 B6
 
W

wangdonghai

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);var fs:TFileStream;
s,s1:string;
i,iLen:integer;
begin
fs:=TFileStream.Create('c:/1.txt',fmOpenRead);
try iLen:=fs.size;
SetLength(s,iLen);
fs.ReadBuffer(Pointer(s)^,iLen);
i:=1;
ListBox1.Clear;
while i<=iLendo
begin
s1:='$'+s+s[i+1]+s[i+3]+s[i+4];
ListBox1.Items.Add(inttostr(StrToInt(s1)));
inc(i,6);
end;
SetLength(s,0);
finally fs.Free;
end;
end;
 
L

lcq5070

Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
 
L

lcq5070

Unregistered / Unconfirmed
GUEST, unregistred user!
十分感谢 wangdonghai的回复 分已经送出
 
顶部