有关数据的问题？

Question

请问我下面的代码错在哪里了呢？
谢谢各位了
table1.fieldbyname('password').Value <>strtoint(edit11.Text)
//这个问题是这样的 无法判断edit中的内容与数据库中的内容
还有就是下面的 它无法保存一个数据库
var
  SFile,DFile : String ;
begin  SFile := ExtractFileDir(Application.ExeName) ;
  SFile := SFile + '\djz.mdb' ;  SaveDialog1.Title := '选择备份路径';  //备份对话框初始化
  SaveDialog1.InitialDir := GetCurrentDir ;
  SaveDialog1.FileName := '备份(' + DateToStr(now) + ')' ;  try
    if SaveDialog1.Execute then
    begin
       DFile := SaveDialog1.FileName +'.bf' ;
       CopyFile(PChar(SFile),PChar(DFile),False);
       showmessage('备份成功！') ;
    end ;
  except
    showmessage('备份失败！请稍后重试。') ;
    Exit ;
  end ;

Answer 1

试试table1.fieldbyname('password').asInteger <> strtoint(edit11.Text)拷贝文件试试
var
  NewFileName: string;//Copy后的文件名和路径
  NewFile: TFileStream;//文件流
  OldFile: TFileStream;
begin
    NewFileName := Copy后的文件名和路径;
    OldFile := TFileStream.Create(OpenDialog.FileName,fmOpenRead or fmShareDenyWrite);
    try
      NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);
      try
        NewFile.CopyFrom(OldFile, OldFile.Size);
      finally
        FreeAndNil(NewFile);
      end;//end try
    finally
      FreeAndNil(OldFile);
    end;//end try
  end;msn:[email protected]