关于提取内存中四位数据转成Integer 类型(100分)

F

flfqzrj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-21

• #1

关于提取内存中四位数据转成Integer 类型
如有一段数据是 string等其它类型
我要提取其中某段开始的四位数据，存在一个integer的变量中,各位有没有比较得意的快速的写法。
如：
const
strTemp:string[8]='12345678';//内存中为 31 32 33 34 35 36 37 38
var
itemp:integer;

比如我要让itemp的内存内容为 33 34 35 36;

 

M

muhx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-21

• #2

function TForm1.SaveToInt(const AStr: string; AFrom,
ALength: Integer): Integer;
var
TmpStr: ShortString;
begin
TmpStr := Copy(AStr, AFrom, ALength);
Move(TmpStr, Result, Length(TmpStr) + 1);
end;

 

Z

zswang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-21

• #3

itemp := PInteger(@strTemp[2])^;
Caption := IntToHex(itemp, 4);

 

F

flfqzrj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-21

• #4

如果反过来，想把Integer 的内存内容接到一个STRING后面呢
如
i:integer;
i:=$00313233;
str:string;
str:='abcdef';
我想把其
i的内容加到str后面
使其str内存中成为 61 62 63 64 65 66 00 31 32 33

 

Z

zswang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-21

• #5

i:=$00313233; //存储顺序是相反的,内存里是:33 32 31 00
str:='abcdef';
SetLength(str, Length(str) + 4);
PInteger(@str[Length(str) - 4 + 1])^ := i;
Caption := str;

 

一

一条大鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-21

• #6

帮顶

 

F

flfqzrj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-22

• #7

大家的方法都不错的，可是没有经过检验，本人发现在内存，用muhx的方法会多写一个字节。

 

F

flfqzrj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-24

• #8

多人接受答案了。