Delphi经典问题解决方案集锦

• 使用参数化查询避免SQL注入
• 字符串拼接时注意特殊字符处理
• 利用Format函数构建复杂查询

// 示例：动态构建查询条件
var
  SQL: string;
  Conditions: string;
begin
  Conditions := '';
  if EditName.Text <> '' then
    Conditions := Conditions + ' AND Name LIKE ''%' + EditName.Text + '%''';
  if ComboBoxStatus.ItemIndex > 0 then
    Conditions := Conditions + ' AND Status = ' + IntToStr(ComboBoxStatus.ItemIndex);
  
  SQL := 'SELECT * FROM Users WHERE 1=1' + Conditions;
  Query.SQL.Text := SQL;
  Query.Open;
end;

1. 检查BDE Administrator中是否正确定义了数据库别名
2. 确认别名配置中的路径和参数正确
3. 检查BDE配置文件是否被正确加载
4. 验证数据库驱动程序是否安装完整

使用GetCursorValues方法结合坐标轴转换：

procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  tmpX, tmpY: Double;
  SeriesIndex, PointIndex: Integer;
begin
  // 获取鼠标位置的坐标值
  Chart1.GetCursorValues(tmpX, tmpY);
  
  // 转换为轴标签显示格式
  Label1.Caption := Format('X: %s, Y: %s', [
    Chart1.BottomAxis.LabelValue(tmpX),
    Chart1.LeftAxis.LabelValue(tmpY)
  ]);
  
  // 如果需要获取特定曲线上的点
  if Chart1.Series[0].GetCursorPoint(X, Y, SeriesIndex, PointIndex) then
  begin
    Label2.Caption := Format('Series: %d, Point: %d', [SeriesIndex, PointIndex]);
  end;
end;

1. 找到Delphi安装目录下的qrprev.dfm文件
2. 在Delphi中打开该文件
3. 修改Caption、Hint等属性为中文
4. 保存后重新编译使用QuickReport的单元

使用DeviceIoControl API：

uses
  Windows, Messages;

procedure EjectCDROM(DriveLetter: Char);
var
  Device: String;
  Handle: THandle;
  BytesReturned: DWORD;
begin
  Device := '\\.\' + DriveLetter + ':';
  Handle := CreateFile(PChar(Device), GENERIC_READ, 
    FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
  
  if Handle <> INVALID_HANDLE_VALUE then
  begin
    DeviceIoControl(Handle, IOCTL_STORAGE_EJECT_MEDIA, 
      nil, 0, nil, 0, BytesReturned, nil);
    CloseHandle(Handle);
  end;
end;

procedure CloseCDROM(DriveLetter: Char);
var
  Device: String;
  Handle: THandle;
  BytesReturned: DWORD;
begin
  Device := '\\.\' + DriveLetter + ':';
  Handle := CreateFile(PChar(Device), GENERIC_READ, 
    FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
  
  if Handle <> INVALID_HANDLE_VALUE then
  begin
    DeviceIoControl(Handle, IOCTL_STORAGE_LOAD_MEDIA, 
      nil, 0, nil, 0, BytesReturned, nil);
    CloseHandle(Handle);
  end;
end;

// 写入文本到剪贴板
procedure SetClipboardText(const Text: string);
begin
  Clipboard.AsText := Text;
end;

// 从剪贴板读取文本
function GetClipboardText: string;
begin
  Result := Clipboard.AsText;
end;

// 检查剪贴板是否包含文本
function IsClipboardHasText: Boolean;
begin
  Result := Clipboard.HasFormat(CF_TEXT);
end;

• 使用BeginUpdate/EndUpdate避免频繁重绘
• 虚拟模式加载大量数据
• 延迟加载非可见项目
• 优化图标和图像处理

procedure TForm1.LoadLargeDataToListView;
var
  i: Integer;
  ListItem: TListItem;
begin
  ListView1.Items.BeginUpdate;
  try
    ListView1.Items.Clear;
    for i := 0 to 10000 do
    begin
      ListItem := ListView1.Items.Add;
      ListItem.Caption := Format('Item %d', [i]);
      ListItem.SubItems.Add(Format('Data %d', [i]));
    end;
  finally
    ListView1.Items.EndUpdate;
  end;
end;

procedure SafeExecute(Proc: TProc);
begin
  try
    Proc();
  except
    on E: Exception do
    begin
      // 记录错误日志
      LogError(Format('Error: %s - %s', [E.ClassName, E.Message]));
      
      // 显示用户友好的错误信息
      ShowMessage('操作失败：' + E.Message);
      
      // 根据异常类型采取不同处理
      if E is EDatabaseError then
        HandleDatabaseError(E)
      else if E is EFOpenError then
        HandleFileError(E);
    end;
  end;
end;

// 使用示例
SafeExecute(procedure
begin
  // 可能出错的代码
  DataSet.Open;
  ProcessData;
end);