نمایش بانک اطلاعاتی

[nice boy]

var  FullPath: string;

  DBName: string;

begin

  Result := False;

  try

    DBName := 'testdb.db';

    {$IFDEF Android}

    FullPath := TPath.Combine(TPath.GetHomePath, DBName);

    {$ENDIF}

    {$IFDEF MSWINDOWS}

    FullPath := '..\' + DBName;

    {$ENDIF}

    if FileExists(FullPath) then

    begin





      FDConnection1.LoginPrompt := False;

      FDConnection1.Params.Clear;

      FDConnection1.Params.Add('DriverID=SQLite');

      FDConnection1.Params.Add('Database='+ FullPath);

      FDConnection1.Open;

      Result := True;

    end

    else

    begin





    end;

  except

    on E: Exception do

    begin





    end;

  end;





end;