小编TLa*_*ama的帖子

我正在研究一个小规模的企业数据库应用程序.它适用于供应商,设备类型,设备,供应商,发票,部门,员工等业务对象,因此我需要让用户查看和编辑所有这些表中的数据.

我的第一种方法是为每种类型的业务对象创建一对表单:

1. 用于查看和选择对象的表
2. 这种类型对象的编辑表单

但现在我发现很难保持所有这些形式,因为例如,如果我想改变所有视图形式的外观,当然我必须编辑它们中的每一个.所以我想用一个"模板"形式替换我的所有视图表单,并用某种参数调用它.问题是,我不知道正确的方法来执行它.也许在某本书或其他地方可能有一些例子？

如何绘制三种颜色的对角线渐变？

这是一个例子:

我正在尝试移植基于128位XorShift的现有随机生成器C.但是我在生成种子时遇到了麻烦,种子只是一次又一次地生成相同的数字.

static uint64_t s[ 2 ];

static uint64_t __inline next(void) {
    uint64_t s1 = s[ 0 ];
    const uint64_t s0 = s[ 1 ];
    s[ 0 ] = s0;
    s1 ^= s1 << 23;
    return ( s[ 1 ] = ( s1 ^ s0 ^ ( s1 >> 17 ) ^ ( s0 >> 26 ) ) ) + s0;
}

uint64_t getusertime() {
    struct rusage rusage;
    getrusage( 0, &rusage );
    return rusage.ru_utime.tv_sec * 1000000ULL + ( rusage.ru_utime.tv_usec …

我正在尝试实现一个单播UDP服务器,它在请求服务时为多个客户端提供服务.正在发送的消息是更新的计数器值.我希望服务器能够在没有请求的情况下接收传入的请求,并且在没有请求的情况下,继续将数据一个接一个地发送到客户端列表.我尝试使用select()它来实现它,但它总是返回0.我做错了什么？

服务器端 - 实施select():

while(1)
{ 
    // >>> Step #3 <<<
    // Wait to receive a message from client
    sleep(10);     // Unix sleep for 1 second
    printf(".\n");
    printf("Waiting for recvfrom() to complete... \n");

    FD_ZERO(&readhandle); 
    FD_SET(server_s1, &readhandle);
    FD_SET(server_s2, &readhandle); 

    timeout_interval.tv_sec = 10;
    timeout_interval.tv_usec = 500000;

    int retval = select(max_servers+1, &readhandle, NULL, NULL, &timeout_interval);

    if (retval == -1)
    {
        printf("Select error\n");
    }
    else if (retval == 0)
    {
        printf("timeout\n");
    }
    else
    {
        if (FD_ISSET(server_s1, &readhandle))
        {
            addr_len = …

基本上,当我尝试从删除元素ArrayList通过someList.remove(someInteger);它什么都不做,该索引的元素在那里停留和链表不变.我正在使用java SE的ArrayList实现.确保列表在给定索引处具有元素.从方法返回的布尔值是false.

我有以下代码,它基于许多变量构造一个SQL语句:

SQL.Add('SELECT CDbl(Answer) as An FROM v_Outcomes_FirstLastOneYear ' +
  'WHERE ' + GetTool(ReportGrid.Cells[col, 0]) + ' ' +
  'AND (Collector = ' + QuotedStr('Patient') + ') ' +
  'AND (Question=' + GetQuestion(ReportGrid.Cells[col, 0]) + ') ' +
  'AND (Answer is not null) ' +
  'AND (Answer <> ''null '') ');

if Copy(ReportGrid.Cells[col, 0], Length(ReportGrid.Cells[col, 0]), 1) = '1' then
  SQL.Add('AND ('+GetTPoint(first)+') ')
else
  SQL.Add('AND ('+GetTPoint(second)+') ');

SQL.Add('ORDER BY CDbl(Answer)');

ReportGrid(a TStringGrid)的第一行已经填充了一系列字符串,如'Peds phys 1',或'Peds phys 2' …

如何在下载之前检查JPG url是否存在,以避免异常？

procedure TForm1.Button1Click(Sender: TObject);
var
  FS: TFileStream;
  Url, FileName: String;
  I, C: Integer;
begin
  for I := 1 to 1000 do
  begin
    Url := 'http://www.mysite.com/images/' + IntToSTr(I) + '/Image.jpg';
    FileName := 'C:\Images\' + IntToStr(I) + '.jpg';
    FS := TFileStream.Create(FileName, fmCreate);
    try
      try
        IdHTTP1.Get(Url);
        c := IdHTTP1.ResponseCode;
        if C = 200  then
          IdHTTP1.Get(Url, FS);
      except
      end;
      Application.ProcessMessages;
    finally
      Fs.Free;
    end;
  end;
end;