字符的类型转换问题（string ->real）在线等 ( 积分: 50 )

雪

雪球

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-07

• #1

从外界读进来的字符串想要转换为array of real，该怎么转啊？
var
i,n,j,k:intefer;
instring:string;
begin
instring:=memo1.text;
repeat
n:=pos(' ',instring);
tarray[j]:=copy(instring,1,n-1);
delete(instring,1,n);
j:=j+1;
until instring=null;
repeat
x[k]:=strtofloat(tarray);
k:=k+1;
i:=i+1;
until i=j;
已经定义x:array of real;tarray:array[1..100] of string;
这段程序为什么是错啊？

 

雪

雪球

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-07

• #2

从外界读进来的字符串想要转换为array of real，该怎么转啊？
var
i,n,j,k:intefer;
instring:string;
begin
instring:=memo1.text;
repeat
n:=pos(' ',instring);
tarray[j]:=copy(instring,1,n-1);
delete(instring,1,n);
j:=j+1;
until instring=null;
repeat
x[k]:=strtofloat(tarray);
k:=k+1;
i:=i+1;
until i=j;
已经定义x:array of real;tarray:array[1..100] of string;
这段程序为什么是错啊？

 

一

一诺

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-07

• #3

i,n,j,k:intefer;===>integer；
另程序中i,j,k在使用以前均没有赋初始值。

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-07

• #4

你的程序不完整吧，首先x没有指定数组大小，要么按如下指定：
x:array[1..100] of real
要么应在代码中动态设定。
其次没看到j,k,i的初始化代码，那么它们都会被系统自动初始化为0，而你的tArray是从1开始计数的，在第一次循环的时候，j为0，tarray[0]不免要出现数组溢出的情况

 

A

ak_2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-07

• #5

肯定出错撒，看看你程序什么逻辑。

 

雪

雪球

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-07

• #6

TO hunterteam:
我没有把程序都打上去，在没打上去的部分，在每次需要使用变量前都已经对变量作了赋零的初始化，x是动态设置的为setlength(x,j);
运行的时候会出现指针地址错误或地址冲突什么的错误，因为以前没有编过程序，所以很混乱。
那我应该怎么做啊，其实我只是很简单的想要把读进来的string 放入数组里面而已。

 

M

MONIFlower

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-07

• #7

var
i,n,j,k:integer;
instring:string;
Tarray:array [1..100] of string;
x:array[1..100] of real ;
begin
instring:=memo1.text;
j:=1;
i:=1;
k:=1;
repeat
n:=pos(' ',instring);
tarray[j]:=copy(instring,1,1);
delete(instring,1,1);
j:=j+1;
until instring='';
repeat
x[k]:=strtofloat(tarray);
k:=k+1;
i:=i+1;
until i=j;

 

南

南桥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-07

• #8

x[k]:=strtofloat(tarray);
字符串怎么转换为浮点数呢
不明白

 

N

nownoknow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-07

• #9

var
i:integer;
instring:string;
list:TStringList;
x:array of real;
begin
instring:=memo1.text;
list := TStringList.Create;
ExtractStrings([' '], [], PChar(instring), list)
// 分割
setlength(x,list.Count-1) ;
i:=0;
while i<list.Count-1 do
begin
x:=strtofloat(list);
i:=i+1;
end;
end;

 

B

bjaman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-07

• #10

tarray:array[1..100] of string;
????这样不对吧?应该TStringList吧

 

雪

雪球

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-11

• #11

多谢

 

雪

雪球

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-11

• #12

多人接受答案了。

 

I

iyiy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-11

• #13

你读进的的字符串格式是不是类似 2.34 1.234 1.345 13.34
还是如这样:agg dfads dsfsf egg