小编use*_*784的帖子

Angular 两个按钮提交表单但目的不同

我有一个角反应形式

<form [formGroup]="form" (ngSubmit)="onSubmit()">
Run Code Online (Sandbox Code Playgroud)

我有两个按钮要提交。当用户按下按钮时,我需要执行一个常见的操作,即提交表单,但我还需要区分按钮,因为我需要根据按下的按钮将用户重定向到不同的页面。这是我的两个按钮:

<button name="Previous" type="submit" [disabled]="form.invalid"> Previous</button>
<button name="Next" type="submit" [disabled]="form.invalid">Next</button>
Run Code Online (Sandbox Code Playgroud)

如何在 OnSubmit 事件中知道按下了哪个按钮?

submit-button angular angular-reactive-forms

17
推荐指数
4
解决办法
3万
查看次数

Delphi代码在64位访问冲突时失败

这个Delphi代码在编译为32位时有效,但在编译为64位时会产生访问冲突.代码有问题,还是有编译器错误?

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  MaxSize = 2; // nothing special about this value, could equally be 1

type
  TArraySize = 1..MaxSize;

procedure Main;
var
  size: TArraySize;
  arr: array [-MaxSize..MaxSize] of Integer;
begin
  FillChar(arr, SizeOf(arr), 0); // zero initialize
  size := MaxSize;
  Writeln(arr[-size]);
end;

begin
  try
    Main;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.
Run Code Online (Sandbox Code Playgroud)

delphi

9
推荐指数
1
解决办法
177
查看次数

Delphi 64位asm编译错误

以下函数不使用64位Delphi XE2编译器进行编译.(错误都与fld指令有关.)

[dcc64 Error] Project1.dpr(12): E2116 Invalid combination of opcode and operands 
[dcc64 Error] Project1.dpr(13): E2116 Invalid combination of opcode and operands
[dcc64 Error] Project1.dpr(20): E2116 Invalid combination of opcode and operands
Run Code Online (Sandbox Code Playgroud)

第12和13行:

fld Y
fld X
Run Code Online (Sandbox Code Playgroud)

第20行:

fld X
Run Code Online (Sandbox Code Playgroud)

不幸的是我没有装配技能,而且我正在使用第三方代码,我需要将其移植到64位.你能帮助我使它在32位和64位上工作吗?

function PartArcTan(Y, X: Extended): Extended;
asm
  fld Y              // st(0) = Y
  fld X              // st(0) = X
  fpatan             // st(0) = ArcTan(Y, X)
  fwait
end;

function ArcSin(X: Extended): Extended; // -1 <= X <= 1
asm …
Run Code Online (Sandbox Code Playgroud)

delphi assembly fpu 32bit-64bit delphi-xe2

6
推荐指数
1
解决办法
936
查看次数

子菜单在Delphi应用程序中的错误位置

我的应用程序是用delphi编写的.由于某种原因,主菜单不再像昨天那样表现(我可能在不知情的情况下触及了一些属性).现在当我点击带有子项的菜单项时,虽然箭头位于右侧,但子菜单仍然向左打开.

在此输入图像描述

是什么原因,我该如何恢复它?

delphi program-entry-point menu

5
推荐指数
1
解决办法
910
查看次数

角反应形式错误:必须为名称为表单的控件提供值:

我以为我是新手。我正在尝试实现角度反应形式,但遇到此错误:“必须为名称为Destination的形式控件提供一个值。

这是我的组件和html的相关部分:

import { Component, Inject } from '@angular/core';
import { Http } from "@angular/http";
import { FormGroup, FormControl, FormBuilder, Validators } from "@angular/forms";

@Component({
    selector: 'home',
    templateUrl: './home.component.html'
})
export class HomeComponent {

    locations: Location[];
    flightChoice: FlightChoice;
    form: FormGroup;


    constructor(http: Http, @Inject('BASE_URL') private baseUrl: string,
        private fb: FormBuilder) {

        this.createForm();

        http.get(baseUrl + 'api/FlightChoice/dest_locations').subscribe(result => {
            this.locations = result.json() as Location[];
            console.log(this.locations);

        }, error => console.error(error));

        http.get(baseUrl + 'api/FlightChoice/choice').subscribe(result => {
            this.flightChoice = result.json() as FlightChoice;
            this.updateForm();
        }, error => …
Run Code Online (Sandbox Code Playgroud)

forms typescript angular

5
推荐指数
3
解决办法
2万
查看次数

我可以将TCriticalSection对象声明为公共类字段吗?

我可以将TCriticalSection对象声明为公共字段,例如:

type
  TMyObject = class
  public
    CS: TCriticalSection;
  end;
Run Code Online (Sandbox Code Playgroud)

我想公开该字段以允许任何线程进入和离开临界区对象,这在内部保护TMyObject实例的完整性.那么,我可以将TCriticalSection对象声明为公共类字段吗?

delphi critical-section

3
推荐指数
1
解决办法
2449
查看次数

Delphi XE2 CMMouseLeave未在TCustomControl上触发

在Delphi 5中,这曾经起作用.我有一个来自TCustomControl的组件,我实现了cmmouseleave消息:

procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
Run Code Online (Sandbox Code Playgroud)

现在,如果我只是将鼠标移到控件上,则会触发消息,但如果我在按住鼠标左键的同时移动鼠标,则不会触发相同的消息.AFAIK我没有调用begindrag方法,并且dragmode设置为手动.什么可能发生的任何线索?

delphi delphi-xe2

3
推荐指数
1
解决办法
312
查看次数

我必须在 Visual Studio 2017 中安装 git 吗?

git 是否已包含在“Git for Windows”中VS2017,还是我需要安装“Git for Windows”?

我知道我可以使用新应用程序创建 Git 存储库,但我不确定它是否也允许从 GUI 使用 git 命令。

git visual-studio-2017

3
推荐指数
1
解决办法
6972
查看次数

Razor Pages:在链接中传递查询参数

我在剃须刀页面尝试过:

<div>
    @foreach (var cat in Model.Categories)
     {
        
        <a asp-page="/Index?catId=@cat.Id">@cat.Name</a>
     }
    
</div>
Run Code Online (Sandbox Code Playgroud)

在cs文件中:

public void OnGet()
        {
            CurPage = 1;
            CatId = -1;
            Search = "";
            HasCarousel = false;
            Title = "All Products";
            var queryParams = Request.Query;
            foreach(var qp in queryParams)
            {
                if (qp.Key == "curPage") CurPage = int.Parse(qp.Value);
                if (qp.Key == "catId") CatId = int.Parse(qp.Value);
                if (qp.Key == "search") Search = qp.Value;
                if (qp.Key == "hasCarousel") HasCarousel = bool.Parse(qp.Value);
            }
Run Code Online (Sandbox Code Playgroud)

但是,当我单击链接时,不会向地址添加任何查询参数,并且 Request.Query 为空。我究竟做错了什么?或者通过链接将查询参数传递到剃刀页面的正确方法是什么?

razor-pages

3
推荐指数
1
解决办法
4196
查看次数

Delphi和indy TIDHTTP:区分"未找到服务器"和"未找到"响应错误

我正在使用indy TIDHTTP编写一种方法来了解我的互联网服务器是否已关闭或同一服务器上的页面地址不可用.

我复制了stackoverflow上另一个线程中给出的建议:

try
  IdHTTP1.Get(mypage_address);
except
  on E: EIdHTTPProtocolException do begin
     if e.errorcode=404 then
        showmessage('404 File not found');
    // use E.ErrorCode, E.Message, and E.ErrorMessage as needed...
  end;
end;
Run Code Online (Sandbox Code Playgroud)

但这样我只能检测到服务器响应代码,而不是服务器根本没有响应.我想这是微不足道的,但我不知道这样做的方法是什么?

delphi indy

2
推荐指数
1
解决办法
1487
查看次数

发布后的 Asp.Net Core 2 出现错误“找不到布局”

发布应用程序后,我收到错误消息:“InvalidOperationException:无法找到布局视图‘_Layout’。搜索了以下位置:/Views/Home/_Layout.cshtml /Views/Shared/_Layout.cshtml

Microsoft.AspNetCore.Mvc.Razor.RazorView.GetLayoutPage(ViewContext context, string executionFilePath, string layoutPath)"

布局在 Views/Shared 文件夹中,应用程序在本地使用它,所以这肯定是发布有问题。不幸的是,在已发布的应用程序中,视图似乎全部包含在一个 dll 文件中,我无法做任何事情来解决问题。我的代码中是否有任何内容使发布者忘记添加 _Layout.cshtml 视图?我在 _ViewStart.cshtml 中引用了布局,这应该适用于所有页面。如果没有布局,我的应用程序注定要失败,我不知道该怎么办。

layout publishing asp.net-core

1
推荐指数
1
解决办法
1355
查看次数

在MVC Core应用程序中创建母版页

我保证我是MVC Core的新手(我只有一周的练习)我知道如何将主页添加到Dot net框架而不是MVC Core.谁能帮我?谢谢

asp.net-mvc master-pages

0
推荐指数
1
解决办法
1273
查看次数

未在数据库中创建身份的 Asp.net 核心表

当我在其他示例项目中看到时,为支持数据库中的 Identity 创建的表数量很大(例如 AspNetRoles、AspNetUserClaims 等),但在我的情况下,当我进行迁移和更新时仅用户表已经被创造了。是什么原因?这是我在启动、dbcontext 和我的班级用户中的代码:

public void ConfigureServices(IServiceCollection services)
        {
            services.AddMvc();
            services.AddSession();
            services.AddMemoryCache();
            services.AddDbContext<ApplicationDbContext>( options =>
                             options.UseSqlServer(Configuration["Data:photoarchiver:ConnString"]));
            services.AddIdentity<User, IdentityRole > (
                opts => {
                    opts.Password.RequireDigit = false;
                    opts.Password.RequiredLength = 7;
                    opts.Password.RequireLowercase = true;
                    opts.Password.RequireUppercase = false;
                    opts.Password.RequireNonAlphanumeric = false;
                }).AddEntityFrameworkStores<ApplicationDbContext>();
        }
Run Code Online (Sandbox Code Playgroud)

类 DbContext:

public class ApplicationDbContext : DbContext
    {
        public ApplicationDbContext(DbContextOptions options) : base(options)
        {

        }

        protected override void OnModelCreating(ModelBuilder modelBuilder)
        {
            modelBuilder.Entity<User>().ToTable("Users");
            modelBuilder.Entity<User>().HasMany(u => u.Photos).WithOne(i => i.User);

            modelBuilder.Entity<Photo>().ToTable("Photos");
            modelBuilder.Entity<Photo>().HasOne(i => i.User).WithMany(u => u.Photos);

            modelBuilder.Entity<Category>().ToTable("Categories");

        }

        public DbSet<Photo> Photos …
Run Code Online (Sandbox Code Playgroud)

database asp.net-identity

0
推荐指数
1
解决办法
1231
查看次数