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

L

lcq5070

Unregistered / Unconfirmed
GUEST, post messages is not allowed!
#1
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, post messages is not allowed!
#2
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, post messages is not allowed!
#4
十分感谢 wangdonghai的回复 分已经送出