我是不是很笨，请高手指点！

Question

var
S:string;
Vs: array [0..4] of integer;
begin
 S:='45623434.32';
 Vs[4]:=Pinteger(@S[0])^;
 Vs[3]:=Pinteger(@S[2])^;
....
end;

Answer 1

用Format函数！哈哈，详细参考相关帮助

Answer 2

笨办法：Str:=FloatFloat('0.00',45623434.32);
Int1:=StrToInt(Copy(Str,1,2));
Int2:=StrToInt(Copy(Str,3,2));
Int3:=StrToInt(Copy(Str,5,2));
Int4:=StrToInt(Copy(Str,7,2));
Int5:=StrToInt(Copy(Str,10,2));好一点：Float1:=45623434.32
int:=StrToInt(FloatFloat('0',Float1*100));
int1:=int div 100*100*100*100
int:=int Mod 100*100*100*100
int2:=int2 div 100*100*100
int:=int Mod 100*100*100
int3:=int2 div 100*100
int:=int Mod 100*100
int4:=int2 div 100
int5:=int Mod 100
  
还是用字符串操作吧！

Answer 3

笨办法：Str:=FloatFloat('0.00',45623434.32);
Int1:=StrToInt(Copy(Str,1,2));
Int2:=StrToInt(Copy(Str,3,2));
Int3:=StrToInt(Copy(Str,5,2));
Int4:=StrToInt(Copy(Str,7,2));
Int5:=StrToInt(Copy(Str,10,2));好一点：Float1:=45623434.32
int:=StrToInt(FloatFloat('0',Float1*100));
int1:=int div 100*100*100*100
int:=int Mod 100*100*100*100
int2:=int div 100*100*100
int:=int Mod 100*100*100
int3:=int div 100*100
int:=int Mod 100*100
int4:=int div 100
int5:=int Mod 100
  
还是用字符串操作吧！

Answer 4

帅哥，copy+pos 函数能让你搞定一切字符串操作！