高手帮忙来看看

Question

wirteln()请问一下这个函数应该怎么用呢?
用的时候是不是有什么先决条件呢?
key()函数在edit1.onpress下判断Edit1.text输入的是不是(0..9)的数,而不是字符串应该怎么做呢?
小弟十分感谢

Answer 1

wirteln()写一行记录到文本
procedure Tfrm_rtu_nwkmain.saverclog(username,content : string);           //保存日志
var
  s : string;
  f : textfile;
begin
    s:='sdfdsfdddddddddddd';
    assignfile(f,ExtractFileDir(application.ExeName)+'\dfdf.txt');   
    Append(f);
    Writeln(f,s);
    CloseFile(f);
end ;procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if not (key in ['0'..'9']) then
     key:=char(0);
end;

Answer 2

procedure Tfrm_rtu_nwkmain.saverclog(username,content : string);           var
  s : string;
  f : textfile;
begin
    assignfile(f,ExtractFileDir(application.ExeName)+'\dfdf.txt');   
    Rewrite(f);
    s:='你要写的内容';
    Writeln(f,s);
    CloseFile(f);
end ;procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9']) then
  begin
    key := #0;
    showmessage('你输入的键值不是数字');
  end;  
end;

Answer 3

上面两兄弟,谢谢了,请问我想要键盘上的BACK键可用应该怎么做呢?