小编Kro*_*ica的帖子

我试图在不同颜色的情况下并排绘制2个正方形,我的问题是我无法让glTranslatef将我的第二个正方形向右移动,第二个正方形只是在第一个正方形上方.

void display(void)
{
    glClear(GL_COLOR_BUFFER_BIT);   
    glMatrixMode(GL_MODELVIEW);
    glLoadIdentity();

    glPointSize(10);

    glBegin(GL_QUADS);

        glColor3f(0.0,1.0,0.0);
        drawSquare();

        glTranslatef(10,0,0);

        glColor3f(1.0,0.0,0.0);
        drawSquare();

    glEnd();    

    glFlush();  // Process all OpenGL routines
}

void drawSquare()
{
    glVertex3f(0,0,0);
    glVertex3f(10,0,0);
    glVertex3f(10,10,0);
    glVertex3f(0,10,0);
}

与Delphi7相比,为什么StringGrid的边界在XE3中如此不清楚？如何解决？

我目前正在DELPHI 2010中设计一个数据库接口,我设计了几个表单接口,所有这些接口都封装在一个Delphi项目结构中.我首先开始设计一个特定的界面表格,结果,当我运行.exe文件时,首先出现一个不相关的表单,而我希望在加载程序时出现一个菜单表单.我的问题是:

1. 当我运行编译项目的.exe时,如何让我的菜单表单首先打开？
2. 我需要使用什么功能来编程此菜单上的导航按钮以打开新表格？
3. 我应该在每个表单的"退出"按钮上使用什么功能来单独关闭表单,而不关闭整个程序？

我对Pascal有很好的了解,但我不熟悉在这个平台上编写面向对象的解决方案.

我是初学者,我正在努力掌握在Rad Studio中为Delphi开发的一些代码.我不知道如果开发人员发送代码时他遗漏了什么,或者他使用了我需要从其他地方下载的其他地方的类.

无论哪种方式,大多数'使用'下面都有红色波浪线,程序将无法运行.这些是用途(有些是缺失的,有些则没有):

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, Vcl.Menus, 
  System.Classes, Vcl.Graphics, Vcl.Imaging.JPEG, Vcl.Controls, Vcl.Forms, 
  Vcl.Dialogs, Vcl.ComCtrls, Winapi.ShlObj, Vcl.StdCtrls, Vcl.ExtCtrls, 
  cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, 
  cxPCdxBarPopupMenu, cxShellCommon, cxButtons, cxCustomData, cxFilter, cxStyles,
  cxDataStorage, cxEdit, cxTextEdit, cxCalendar, cxContainer, cxSpinEdit,  
  cxMaskEdit, cxDropDownEdit, cxData, cxMemo, dxSkinVS2010, dxSkinscxPCPainter,
  CoolTrayIcon, AdvEdit, AdvEdBtn, HotKeyManager, uPrintersMonitor

任何帮助将受到大力赞赏.此外,当我打开项目时,它确实说'找不到类xxxxxx.忽略错误并继续？

我正在尝试使用SSAO后处理着色器渲染场景.没有任何错误,但我看不到使用和不使用SSAO传递渲染的场景之间的任何差异.我像这样初始化渲染器:

// Create WebGL Renderer
var renderParameters = { antialias: false, alpha: false, clearColor: 0xFFFFFF };
renderer = new THREE.WebGLRenderer(renderParameters);
renderer.autoClear = false;
renderer.setSize(viewportWidth, viewportHeight);

// Create render targets
renderTargetParametersRGB = { minFilter: THREE.LinearFilter, magFilter: THREE.LinearFilter, format: THREE.RGBFormat };
renderTargetParametersRGBA = { minFilter: THREE.LinearFilter, magFilter: THREE.LinearFilter, format: THREE.RGBAFormat };
depthTarget = new THREE.WebGLRenderTarget(width, height, renderTargetParametersRGBA);
colorTarget = new THREE.WebGLRenderTarget(width, height, renderTargetParametersRGB);

// The shader pass to draw the scene
var renderScenePass = new THREE.RenderPass(scene, camera);

// Copy to screen render …

我不明白为什么这段代码不能正常工作:

program selection;
var 
    n : integer;
begin
    readln(n);
    if (n in [100..1000]) then writeln('Selected!');
    readln;
end.

这对我来说很好,值在1到233之间,如果我输入233或更多,则不会执行writeln .. 这很奇怪.我也尝试过其他值,结果或多或少相同,唯一不同的是它失败的值.

我想声明一个自定义数据类型,以获得更好的代码可读性.目的是保持此类型不受任何干扰其他AnsiStrings.但德尔福似乎不支持它？

type
  TKMLocaleCode = type AnsiString;

... snip ...

procedure A;
var 
  A,B: TKMLocaleCode;
  C: AnsiString; 
begin
  A := 'eng'; //<<-- I expect an error here
  A := C; //<<-- I expect an error here too

  B := TKMLocaleCode('eng'); //<<-- I expect no error here
end;

是否可以在Delphi中声明这样的自定义类型？

我需要从我的照片中获取地理定位信息.Lat/Lon和GPSVersion.我已经找到了一些与此问题相关的信息,我比较了不同的EXIF标题,发现了一个十六进制转储,它给了我坐标 - 现在我需要从文件中获取它.

这个问题似乎很简单.如何在Delphi中打开JPEG文件以获取必要的十六进制转储？

已经尝试过阅读Chars和Integers,但没有任何效果.如果可能,我不想使用任何外部库来完成此任务.

这基本上是我的主要问题,但如果有人再回答一个问题,我会非常高兴.

有没有一种简单的方法来搜索GPS标签而无需搜索文件进行特定转储？现在我正在寻找一个奇怪的组合12 00 02 00 07 00,这真的有效.我读过EXIF文档,但我无法理解GPS标签.

先感谢您.尤金

我需要比较两个AnsiStrings以查看它们是否具有相同的文本(忽略大小写).

var
  text1, text2: AnsiString;
begin
  if SameText(text1, text2) then
  ...

在Unicode之前的Delphi中我会使用SameText函数,但在现代Delphi中只有它的Unicode版本,所以我收到了这个警告:W1057 Implicit string cast from 'AnsiString' to 'string'随叫随到.

我的问题是,如何正确地比较现代Delphi中的AnsiStrings而不会得到编译器警告(并且不必过多地抛出两个字符串UnicodeString(text))

这与SameText问题略有不同.

我需要转换AnsiString成一个Integer.

var
  param: AnsiString;
  num: Integer;
begin
  if TryStrToInt(param, num) then
  ...

在Unicode之前的Delphi中我会使用TryStrToInt函数,但在现代Delphi中只有它的Unicode版本,所以我得到这个警告:W1057在调用时从'AnsiString'到'string'的隐式字符串.

我的问题是,如何正确转换现代Delphi中的AnsiStrings而不会收到编译器警告(并且不必过多地将字符串转换为UnicodeString(text))