怎样读有字符和数据的文件？（我只有20分了）(20分)

A

awryk63

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-26

• #1

怎样读有字符和数据的文件？如有文件a.txt内容如下：
y
1 2 3 4 5 6 7 8
x
6 5 3 2 7 1 4 8
d
2 4 6 8 1 3 5 7
h
2 5 7 3 6 1 4 8
n
8 7 6 5 4 3 2 1

我用如下方法去读
var
fw:textfile;
a:array[0..4] of string;
x:array[0..4,0..7] of real;
begin
Assignfile(fw,'a.txt');
Reset(fw);
for i:=0 to 4 do
begin
Readln(fw,a);
for j:=0 to 7 do
begin
Read(fw,x[i,j]);
end;
end;
closefile(fw);
end;
但是行不通,各位大侠请帮帮忙。

 

R

realLearning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-26

• #2

procedure TForm1.Button2Click(Sender: TObject);
var
fw:textfile;
a:array[0..4] of string;
x:array[0..4,0..7] of real;
I,j : Integer;
begin
Assignfile(fw,'a.txt');
Reset(fw);
for i:=0 to 4 do
begin
Readln(fw,a);
for j:=0 to 7 do
begin
Read(fw,x[i,j]);
end;
readln(fw);//少了这句
end;
closefile(fw);
end;

 

A

awryk63

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-26

• #3

哦，知道了，谢谢指教。



[][][][][][][][][]

 

远

远帆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-26

• #4

var
fw: textfile;
a: array[0..4] of string;
x: array[0..4, 0..7] of real;

i, j: Integer;
str: string;
ppos: Integer;
begin
Assignfile(fw, 'a.txt');
Reset(fw);
for i := 0 to 4 do
begin
Readln(fw, a);

Readln(fw, str);
for j := 0 to 7 do
begin
ppos := Pos(' ', str);
if ppos <> 0 then
begin
x[i, j] := StrToFloat(Copy(str, 1, ppos));
str := Copy(str, ppos + 1, 1024);
end
else
x[i, j] := StrToFloat(str);
end;
end;

closefile(fw);
end;

 

A

awryk63

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-26

• #5

请问为什么要加上readln(fw)？


[?][?][?][?]

 

大

大富翁WW

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-26

• #6

read不会换行读,
readln换行读.