小编Xaw*_*cki的帖子

我有一个DataTable有5列和10行.现在我想向DataTable添加一个新列,我想将DropDownList值分配给New Column.所以DropDownList值应该添加10次到New Column.这该怎么做？注意:不使用FOR LOOP.

例如:我的现有DataTable是这样的.

   ID             Value
  -----          -------
    1              100
    2              150

现在我想在此DataTable中添加一个新列"CourseID".我有一个DropDownList.它的选择值是1.所以我现有的表应如下所示:

    ID              Value         CourseID
   -----            ------       ----------
    1                100             1
    2                150             1

这该怎么做？

我正在寻找一些教程或解决方案,展示如何一次创建具有少量高级功能的Webgrid:每行的分页,排序edit和delete按钮,每行的复选框,edit以及delete检查的行和select all按钮的按钮.

我知道我可以使用jQuery和点击事件简单地完成所有这些功能.但我正在寻找一些干净的解决方案,这种解决方案以良好的方式制作并尽可能多地使用ASP.NET MVC技术......

我试图找出String是否是"助记符类型"...我的助记符类型包括从'a'到'z'和从'A'到'Z'的字母,从'0'到'9'的数字,另外'_'.我构建如下代码.如果给定的字符串匹配我的助记符模式,它应该为True,否则为False:

 TRes := True;
 for I := 0 to (AString.Length - 1) do
 begin
     if not ((('0' <= AString[I]) and (AString[I] <= '9')) 
       or (('a' <= AString[I]) and (AString[I] <= 'z')) 
       or (('A' <= AString[I]) and (AString[I] <= 'Z')) 
       or (AString[I] = '_')) then
         TRes := False;
 end;

此代码始终以False结果.

我正在寻找正则表达式,允许字符串不启动,不以空格结尾,并且不包含连续的少量空格.

允许:

asd asd asd,
asdasd,
asd asd,

不允许:

asd   asdasd,
 asdasd,
asdasd  ,

应用程序按照我的意愿工作但存在相当大的内存泄漏.限制一个线程的每个事件都会给我4个TBitmaps和2个丢失的TStrokeBrush.

程序DrawSine(); 在Synchronize语句中的Execute中触发:

procedure SineThread.DrawSine();
var
  sin_T : Extended;
  Point2 : TPoint;
  I : Integer;
begin
  TempBitmap.SetSize(Twidth, Theight);
  TempBitmap.Canvas.BeginScene();
  TempBitmap.Canvas.Stroke.Kind := TBrushKind.bkSolid;
  TempBitmap.Canvas.Stroke.Color := claLime;
  TempBitmap.Canvas.Clear(TAlphaColorRec.Black);
  for I := 0 to Twidth do
  begin
      sin_T := Sin(((I - Tphas)/100.0) * Tfreq);

      Point2.X := Round(I);
      Point2.Y := Round(sin_T * Tampl) + Round(Theight/2.0);

      if I = 0 then
      begin
        Point1.X := Round(I);
        Point1.Y := Round(sin_T * Tampl) + Round(Theight/2.0);
        TempBitmap.Canvas.DrawLine(Point1, Point2, 1.0, TempBrush);
      end
      else
      begin
        if I = Twidth then
        begin …

我正在使用"getline"来读取文本文件中的某些行.它应该工作,但我多次调用该方法.

while(getline(file, line))
{
    //Do something
}

//More code in between

while(getline(file, line))
{
    //Do something else
}

问题是,当我第二次调用"getline"时,它从之前完成的位置开始读取(例如,如果第一个while循环在第二行结束,则下一个循环从第三行开始).如何确保我的程序每次都从第一行读取文件？

我有程序在TForm上显示/隐藏一个元素,如:

procedure ShowHideControl(const ParentForm: TForm; const ControlName: String; ShowControl: Boolean);
var
  i: Integer;
begin
  for i := 0 to pred(ParentForm.ComponentCount) do
  begin
    if (ParentForm.Components[i].Name = ControlName) then
    begin
      if ShowControl then
        TControl(ParentForm.Components[i]).Show
      else
        TControl(ParentForm.Components[i]).Hide;

      Break;
    end;
  end;
end;

然后我尝试使用它像:

procedure TForm1.Button6Click(Sender: TObject);
begin
  ShowHideEveryControl(TForm(TForm1), 'Button4', True);
end;

为什么我在Button6点击时会出现访问冲突？

对我来说一切都很好...... Button4作为一个孩子存在:)

我有一小段代码:

  DateTimeToString(DiffString, 't.zzz', TDT);
    ShowMessage('TDT: ' + DateTimeToStr(TDT));
    ShowMessage('DiffString: ' + DiffString);

第一个ShowMessage的结果给出了随机好的DateTime TDT值...第二个,其中DiffString是exacly 00:00.000

任何人都可以在其他IDE中检查它吗？

我想检查Form1.OnCreate事件处理程序过程,如果Form1构造函数Create完成作业,填充Form1上的所有组件.然后想使用Form1循环遍历组件并更改Text属性.我试过了:

WHILE NOT Assigned(Form1) DO 
  Sleep(100); 

......但它没有用.

现在,当我尝试使用Form1时,出现访问冲突错误.