小编fan*_*cco的帖子

我正在尝试从 css 文件更改 Flexslider 箭头设计，但失败了。我正在提供我所做的和想要的内容的屏幕截图 :D 或者有什么方法可以更改 flexslider 图标或字体？这是我的工作：http : //i.stack.imgur.com/4fgcU.png 这是我想做的：http : //i.stack.imgur.com/zhxqI.png

<ul>
    <li><a href="#" title="Previous"><span class="icon icon-arrow-left8"></span></a>
    </li>
    <li><a href="#" title="Next"><span class="icon icon-arrow-right8"></span></a>
    </li>
</ul>

我有一个Delphi应用程序正在执行,当我调用GetCurrentDir以下返回时:

C:\ dev的\ W32\2015年\ BCSLBDemo\WIN32 \调试

当我打电话时,ExtractFileDir(GetCurrentDir())我收到以下内容:

C:\ dev的\ W32\2015年\ BCSLBDemo\WIN32

我想要的是什么 C:\dev\w32\2015\BCSLBDemo

function RetRoot: string;
var
  i: Integer;
  buf: string;
begin
  Result := '';
  buf := ExtractFileDir(GetCurrentDir());
  i := Length(buf);
  repeat
    dec(i);
  until (buf[i] = '\') or (i < 3);
  if buf[i] = '\' then
  begin
    Delete(buf, i, Length(buf));
    Result := buf;
  end;
end;

我写了这个函数来得到想要的结果.我想知道是否有更好的方法来完成检索Delphi可执行文件的根目录.

我正在开发一个自定义工具，可以为给定的演示文稿生成自定义的教师注释。我遇到一个问题，我正在处理一个演示文稿，其中幻灯片基本上没有 Title 对象然后我运行代码，它将我的 if 语句与 .

我已将代码简化为基础内容，以使其尽可能简单。

我的测试课程有一张正常的幻灯片，其中填充了文本占位符，下一张幻灯片是一张徽标幻灯片，没有标题文本框，只有版权信息和徽标（这是有问题的幻灯片），然后是另一张幻灯片，其中标题占位符存在，但留空。

如何检查单个幻灯片以确保标题占位符存在？

Public Sub GetTitle()
    Dim pres As Presentation    'PowerPoint presentation
    Dim sld As Slide            'Individual slide
    Dim shp As Shape            'EIAG Text Shape
    Dim ShpType As String       'Shape Type
    Dim SldTitle As String      'Slide TITLE

    'Go through each slide object
    Set pres = ActivePresentation
    For Each sld In ActivePresentation.Slides.Range
    On Error Resume Next
        If sld.Shapes(1).PlaceholderFormat.Type = ppPlaceholderCenterTitle Or sld.Shapes(1).PlaceholderFormat.Type = ppPlaceholderTitle Then
            If sld.Shapes.Title.TextFrame.TextRange <> "" Then
                SldTitle = sld.Shapes.Title.TextFrame.TextRange
                Debug.Print SldTitle …

有没有办法填写并set从清单箱中获取项目？

我做了什么:

  TColorItem = (ms_red, ms_blue, ms_green, ms_yellow);
  TColorItems = set of TColorItem;

我有一个组件,我可以选择 TColorItems

 TProperty = class(TCollectionItem)
 private
   FModuleItem: TColorItems;  
   procedure SetColorItem(const Value: TColorItems);    
 published
   property ColorTypes: TColorItems read FColorItem write SetColorItem;

 procedure SetColorItem(const Value: TColorItems);
 begin
   FColorItem := Value;
 end;

在我设置(选中)组件中的项目后,我创建了一个表单.

我的表单看起来像这样:

如果我检查清单箱中的任何项目,我想得到Result一TColorItems组:

• 如果选中红色和绿色,则set必须

  Result := [ms_red, ms_green]

• 如果选中蓝色,绿色和黄色:

  Result := [ms_blue, ms_green, ms_yellow] 等等..

在Result必须在此[value1, value2] …

我有一个interface:

public interface NamedEnum {
    String getName();
}

一个enum实现interface:

public enum MyEnum implements NamedEnum {

    MYVALUE1("My value one"),
    MYVALUE2("My value two");

    private String name;

    private MyEnum(String name) {
        this.name = name;
    }

    public String getName() {
        return name;
    }
}

一种不编译的方法:

public static Map<Integer,String> wrong(Enum<? extends NamedEnum> value) {
    Map<Integer,String> result = new LinkedHashMap<Integer, String>();
    for (Enum<? extends NamedEnum> val : value.values())
        result.put(val.ordinal(), val.getName());
    return result;
}

两个错误:

The method values() is undefined for …

public function test()
{
        $x = 10;
        $collection = collect([0, 10, 20]);

        $collection = $collection->map(function ($item, $key){

            return $item + $x;
        });
}

我想访问函数中的$x变量map:怎么做？
当我尝试获取值时,我收到此错误消息:

ErrorException:未定义的变量:x

我正准备学习将MsWord与Delphi联系起来.小...非常小...我编写的程序正在工作,但我没有得到一个对象点后的提议.

我的代码(我复制了我认为可能有用的所有内容):

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, 
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ComObj, ComCtrls, Vcl.StdCtrls;

var
  Form1: TForm1;
  word, doc : Variant;

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    word := CreateOleObject('Word.Application');
    word.Visible := true;
    doc := word.Documents.Add();
    word.Selection.Font.Name := ('Arial');
    doc.Range.Text := 'The answer is 42.';
    //doc.Save;
  except
    ShowMessage('Microsoft Word couldn''t start');
  end;
end;

任何人都可以告诉我为什么在输入"word"后我没有得到任何功能或财产建议.或"doc." 以及如何解决这个问题？

提前致谢,

LEA

我需要制作'图形用户界面',我需要一些VCL组件来选择一些文件.

此组件必须选择文件,但用户不必放置文件的名称.

我正在搜索信息,但没有任何帮助我.

如何在不使用Delphi中的迭代语句(for或while循环)的情况下将一个数组附加到另​​一个相同类型的数组？