这里的人们怎么这么不热情！我的贴子怎么就没人来看看

Question

使用textfile。
去delphi的vcl帮助里面找找吧。很简单的。

Answer 1

思路:
  设一全局布尔变量A,把LABLE放在一个组件容器中,如GROUP,再在一个TIMER的时间事件中让
LABLE.TOP=LABLE.TOP+10.在KEYPRESS事件中做按键事件处理,判断是否是回车键.再根据不同A情况处理.
  具体代码实现过程你自个儿处理.

Answer 2

给你代码：（“直至按另一按钮完成”我不懂你说什么，没有作)
var
  Form1: TForm1;
  TxtFile:TextFile;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var
  Str:String;
begin
  if not Eof(TxtFile) then
  begin
    Readln(TxtFile,Str);
    Edit1.Text:=Str;
  end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  AssignFile(TxtFile,'E:\Readme.txt');
  Reset(TxtFile);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  CloseFile(TxtFile);
end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
    Timer1.Enabled:=not Timer1.Enabled;
end;

Answer 3

var Filep:textfile;
    i,j:integer;
　　buf :string;
begin
While  not eof(Filep) do
begin
//if Eof(Filep) then
   //     reset(Filep);
Readln(Filep,buf);
Edit1.Text:=buf;
Edit1.Focused;
For i:=0 to 1000 do
   For j:=0 to 1000 do
      ;end;
end;form 上　edit1.text 的内容为什么只显示最后一条？？