请教高手(200分)

V

vita

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #1

我想编一个程序，在几个界面上输入信息，然后以指定的格式将这些信息存为文本文件。
请高手指点一下编程方法，要用到那些控件和方法？
非常感谢。

 

热

热血

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #2

edit就行了

 

V

vita

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #3

那要存为文本文件要怎样实现呢？

 

吕

吕雪松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #4

用AssignFile、Reset或Rewrite、CloseFile等函数建立并读写文本文件，将界面中的控件
中的文本一个一个地读出来，然后写进去。

 

B

BaKuBaKu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #5

存为文本文件最简单的办法是用 TFileStream.Write 。

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #6

编辑就用TEdit就可以了，保存用TMemoryStream也可以啊

 

V

vita

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #7

有没有人能提供一个这方面的程序代码拿来看看？

 

M

Macron

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #8

用SaveToFile方法

 

V

vita

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #9

那我用很多EDIT控件，要将他们的TEXT存为memeorystream,
然后将每个STREAM加起来，最后存为一个文件
请问怎样将几个STREAM加起来？
非常感谢
//bow
~

 

J

jinrui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #10

当按下button1时，将1234567890存入test.txt,再显示到form1,你可以再加savedialog控件就可随意存了。
你真懒，许多书都有嘛（电子），你可以下载，我有10多本电子的，^o^,害的我敲了
15分钟的原码！：）
procedure TForm1.Button1Click(Sender: TObject);
var
f:textfile;
j,x:integer;
k:string;
begin
k:='123';
assignfile(f,'test.txt');
rewrite(f);
writeln(f,'1 2 3 4 5');
writeln(f,'6 7 8 9 0 '+' '+k);
reset(f);
x:=15;
while not seekeof(f)do
begin
if seekeoln(f)then
readln;
read(f,j);
canvas.textout(x,5,inttostr(j));
x:=x+20;
end;
closefile(f);
end;

 

V

vita

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #11

谢谢你，不过看我前面的留言。我有很多EDIT控件，要将他们的TEXT加起来存到一个文件中
：）

 

M

mikedeakins

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #12

老大，直接定义个字符串 s
s= edit1.text + edit2.text ... + editx.text;
然后，用AssignFile。

 

L

LanFairy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #13

先定义一个结构
TMyFileRec = record
sName: string[8];
nAge: ShortInt;
sSex: String[2];
……
end;
再声明一个文件类型
Var myfile: filet of TMyFileRec
然后进行读写操作

 

海

海水蓝色

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #14

楼上的，当心你的字符串超长呀！

 

X

xie ke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #15

procedure TForm1.Button1Click(Sender: TObject);
var
F:TextFile;
Result_S:string;
begin
AssignFile(F,'result.txt');
//建立文件, 如该文件存在则覆盖
Rewrite(F);
//或用Append打开该文件, 在文件尾添加<对于文本文件>
//Append(F)
Write(F, Edit1.Text+Edit2.Text);
CloseFile(F);
end;

 

V

vita

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #16

谢谢了
这一句Write(F, Edit1.Text+Edit2.Text);
能不能象HTML一样做成表格形式的，让Edit1.text和edit2.text，放在表格中，以方便
以后读数据？

 

X

xie ke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #17

那用Writeln代替Write即可, 以后读出使用Readln
procedure TForm1.Button1Click(Sender: TObject);
var
F:TextFile;
Result_S:string;
begin
AssignFile(F,'result.txt');
if FileExists('result.txt') then
Append(F)
else Rewrite(F);
Writeln(F, Edit1.Text+Edit2.Text);
CloseFile(F);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
F:TextFile;
Result_S:string;
begin
AssignFile(F,'result.txt');
ReSet(F);
while not EOF(F) do
begin
Readln(F, Result_S); //Result_S为读出的当前行
...
end;
CloseFile(F);
end;

 

Z

zhangkan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #18

那要自己定义写了吧。

 

V

vita

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #19

xie ke:
我的意思是Writeln(F, Edit1.Text+Edit2.Text);
但是我只要读出edit2.text，edit1.text不读出来
这样有什么方法吗？
非常感谢你

 

S

sluger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #20

指定的格式将这些信息??
具体时是指什么呢？
我觉得你的问题最好还是用记录文件（record），或ini文件存贮比较好一点！！
用什么空间吗，Tedit之类的东西是最简单的