小编Jak*_*ays的帖子

对不起,我是WEKA的新手,只是在学习.

在我的决策树(J48)分类器输出中,存在一个混淆矩阵:

a    b   <----- classified as
130  8     a = functional
15   150   b = non-functional

• 我该如何阅读这个矩阵？a&b之间有什么区别？
• 此外,任何人都可以向我解释什么是域名值？

我正在使用Inno-Setup版本5.5.3(a).

[Files]
Source: "C:\GPT\GPT.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\GPT\GPT.dat"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

我想将"GPT.dat"文件安装到名为"GPT"的自定义文件夹中的用户AppData文件夹中

例如AppData\GPT \

例如,在我的delphi代码中,我在用户AppData路径中创建了一个名为"GPT"的文件夹.这些是我想放置文件的地方

var
  path: array[0..MAX_PATH] of char;

 SHGetFolderPath(0, CSIDL_APPDATA, 0, SHGFP_TYPE_CURRENT, @path);
 userPath:= Path;
 UserPath:= UserPath + '\GPT\';
 if not DirectoryExists(UserPath) then
   CreateDir(UserPath);

任何人都可以告诉我如何编辑我的Inno脚本的[Files]部分来实现这一目标吗？

谢谢

我在这里已经阅读了很多关于将字符串写入TMemoryStream并保存到文件并将字符串读回TMemoryStream的讨论.

我不知道我在这里做错了什么,但我的SaveData或我的LoadData都是错误的.我可以在调用SaveData之前检查Title的值,它符合我的预期.但是,当我调用LoadData并检查Title的值时,它是垃圾.任何人都可以告诉我,我做错了

procedure SaveData(FileName: TFileName);
var
 MemStr: TMemoryStream;
 Title: String;
begin
 MemStr:= TMemoryStream.Create;
try
 MemStr.Seek(0, soFromBeginning);
 WriteStreamStr( MemStr, TItle );
 MemStr.SaveToFile(FileName);
finally
 MemStr.Free;
end;
end;

procedure LoadData(FileName: TFileName);
var
 MemStr: TMemoryStream;
 Title: String;
begin
 MemStr:= TMemoryStream.Create;
 try
  MemStr.LoadFromFile(FileName);
  MemStr.Seek(0, soFromBeginning);
  Title := ReadStreamStr( MemStr );
 finally
   MemStr.Free;
  end;
end;



procedure WriteStreamInt(Stream : TStream; Num : integer);
 {writes an integer to the stream}
begin
 Stream.WriteBuffer(Num, SizeOf(Integer));
end;

procedure WriteStreamStr(Stream : TStream; Str : string);
 {writes a string to the stream}
var …

我正在尝试将一些旧的Delphi 7代码转换为Delphi 2010

function AnsiToDOS(S: String): String;
begin
  SetLength(Result, Length(S));
  if S <> '' then begin
     CharToOEM(PChar(S), PChar(Result));
  end;
end;

我得到了"不兼容的类型:'Char'和'AnsiChar'"错误:

找到CharToOEM(外部User32功能)

Windows.pas单位

我可以以某种方式重写这个AnsiToDos函数,还是需要编写自己的CharToOEM例程？

我们为大型医疗保健索赔处理组织和企业提供了大型事务处理系统(批处理)ERP解决方案.我们目前正在实施自己的用户帐户管理.即,具有适当权限/角色的用户可以创建,编辑或删除帐户,并根据需要分配权限和角色.

每个用户使用分配的帐户登录,并根据权限和角色分配对功能的访问权限.

我们已经被客户询问我们是否支持LDAP或Active Directory,用户帐户是否在虚拟域控制器上管理,一旦登录,用户就无需登录其他软件....例如,我们的.

我一直在审查LDAP协议和Active Directory服务接口.

只是想知道是否有人有这方面的经验,以及这种支持这些过渡的最佳方法是什么？我特别关注我们是否必须停止使用现有的帐户管理和登录系统？

我们目前正在使用Delphi 2010和UNIDAC(用于数据库连接)进行开发.

谢谢

我错过了什么吗？我两天前购买了Smart Mobile Studio,并一直在尝试它的功能.我希望它至少可以模拟delphi的事件模型.没有？

我不应该能够单击一个控件并访问一个事件选项卡(就像我们对属性所做的那样),并添加一个delphi样式事件,例如OnClick for Button(然后将其转换为javascript事件) .我希望不仅可以在我的表单单元中看到OnClick事件,还可以看到按钮.似乎没有对按钮的引用.

我错过了什么？

我知道如何在运行时做到这一点,但我仍然无法在设计时弄清楚如何做到这一点.有人可以帮帮我吗？

运行...

unit Form1;

interface

uses w3system, w3ctrls, w3forms, w3application;

type
 TForm1=class(TW3form)
 private
 { Private methods }
 FButton : TW3Button;
 protected
 { Protected methods }
 Procedure InitializeObject;override;
 Procedure FinalizeObject;override;
 Procedure StyleTagObject;override;
 end;

Implementation

Procedure TForm1.InitializeObject;
 Begin
 inherited;
 FButton:=TW3Button.Create(Self);
 FButton.Caption:=’Load’;
FButton.OnClick:=procedure (Sender : TObject)
 begin
 //do something
 end;
 End;

Procedure TForm1.FinalizeObject;
 Begin
 inherited;
 End;

Procedure TForm1.StyleTagObject;
 Begin
 inherited;
 StyleClass:=’TW3CustomForm’;
 End;

end.

是否可以更新特定TStringList名称/值对的Name字符串？

List.Names[I]:= name;

我知道Names是一个只读属性,我想知道是否有另一种我不知道的方式？

或者我必须对整个字符串进行整个更新

List[I]:= name=value

问题是我在名称/值对的值部分存储了大量的字符串值

例

name=value1,value2,value3,value4,value5,value6,value7,value8,value9,value10

我宁愿只更新名称部分9因为这就是我需要做的全部)

谢谢

我正在尝试将我的第一个应用程序部署到 Google Play 商店。每次上传 APK 文件时，都会收到以下消息：

“上传失败您上传了一个可调试的 APK。出于安全原因，您需要先禁用调试，然后才能在 Google Play 中发布。了解有关可调试 APK 的更多信息。”

我正在构建我的代码的发布版本。我从以下位置上传我的 APK 文件的发布版本：

\Projects\MyAppNameHere\Android\Release\MyAppNameHere\bin\MyAppNameHere.apk

在我的项目调试选项中，它设置为“无调试信息”

我还修改了 AndroidManifest 文件说：

android:debuggable="False"

但是，Google Play 商店不断给我同样的信息，我需要上传一个不可调试的版本。

我究竟做错了什么？我应该注意，每次我构建 APK 文件的新发布版本时，AndroidManifest 文件都会反转回

android:debuggable="True"

我使用Delphi 2010和TListView列出名称和其他数据.前两列是姓氏和名字

Caption =姓氏
SubItems [0] =名字

如何通过这两列对ListView进行排序？这些仅是列表视图将被排序的列,我想始终保持排序为这样的(当添加,编辑,删除项目)

我怎么能做到这一点？

我正在使用Delphi XE-5(Firemonkey移动应用程序)

我想通过在长时间处理期间显示来让TAniIndicator工作.我的主表单上有一个TAniIndicator(AniIndi),但它没有旋转.它显示正确,但不旋转.

begin
 Loading:= True;
 AniIndi.Visible:= True;
 AniIndi.Enabled:= True;
 UpdateAll;
 Application.ProcessMessages;

 //do my processsing here

 Loading:= False;
 AniIndi.Enabled:= False;
 AniIndi.Visible:= False;
 UpdateAll;
 Application.ProcessMessages;
end;

//基于REMY的答案进行编辑

TLoadThread = class(TThread)
 public
  Config: Boolean;
  constructor Create(const aConfig: Boolean); reintroduce;
 protected
  procedure DoProcessing;
  procedure Execute; Override;
 end;

var
 loading: Boolean = false;
 zLThread: TLoadThread = nil;

constructor TLoadThread.Create(const aConfig: Boolean);
begin
 inherited Create(true);
 Config:= aConfig;
end;

procedure TLoadThread.DoProcessing;
var
begin
 //do processing here and update main form
end;

procedure TLoadThread.Execute;
begin
 FreeOnTerminate:= true; …