大家快快来给Delphi6抓虫

//Delphi5中IDE有一个虫
const
asm32x =

//Delphi5中IDE有一个虫
const
asm32x = $00FFFF;
// ~~~~~~~~~~~~~~
//IDE看成了汇编块(把asm颜色设一下就可以看见)
//Delphi6没有了

//Delphi6中TComboBox中文输入有虫
//当ComboBox.Items有值时就无法正常输入中文
//系统自己也是
//比如你在代码编辑框里搜索中文
//只有关掉自动匹配才可以

//没有十全十美的东东
//大家来谈谈Delphi6还有什么虫,怎么解决?

//谢谢关注

35 个解决方案

#1

关注～～～～～～～～～

#2

还没有用过～～先看看～～

#3

虫子么，连VC++也有啦，这很正常嘛！

#4

对activex支持不如D5好

#5

当数据集的连接有错误时

必须手动修改dfm文件

菜鸟伯乐：29796428

#6

#7

D6的虫也真多，一一列举也说不完举几个例子吧。
1、查找功能不支持汉字（D5可以）.
2、系统占用内存大，当你改完程序存盘了几佰次了，突然掉电或死机，全完了，从你打开的d6那一刻起所有修改的全没了。
3、经常出现一些非法的地址错误(类似FFFF0000的错误，在D5不会）。
4、D5不能打开D6的程序。
5、许多第三方不能用。
。。。。。
这些只是原本D5都好好的，可D6干嘛要改掉，真让人失望。

#8

D6有这么差，这可伤脑筋了

#9

to:dana(dana)

真的有那么夸张吗？？？还好我没用Ｄｅｌｐｈｉ６～～

#10

to all:
Delphi6支持双系统所以才这么别扭

to dana(dana):
你No.1就是我指的Delphi6中TComboBox中文输入有虫

#11

虫～～～～～～好多的虫～～～～～～～～～

#12

我不怕虫，
我胆子大，我用delphi6，呵呵

#13

呵呵～～我最讨厌虫～～～尤其是蟑螂～～～

#14

没用过。
我一直用delphi 5.0
直从没用delphi 4.0后

#15

我是delphi新手，
自从我开始学的时候，delphi就已经出来了，呵呵

#16

没用过，帮你up

#17

CSDN出问题了？

<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<link rel="stylesheet" type="text/css" href="/go.html?url=../news.css">
<body bgcolor="#FFFFFF" topmargin="0" leftmargin="1">
<script language="javaScript">
function opennews(url)
{window.open (url, "", "width=630, height=560, toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes");
}
function load()
{var name=navigator.appName
var vers=navigator.appVersion
if(name=="Netscape")
{window.location.reload(true)
}else
{history.go(0)
}
}</script>
<table width="610" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center">
<a href="/go.html?url=/buy/" target="_blank"><img src="/images/ad/dby2001_468_60.gif" width="468" height="60" border="0"></a>
    <script>document.write("<img src=https://www.csdn.net/count/pageview.asp?name=expert border=0 width=0 height=0>");</script>
  <a href="/go.html?url=https://www.csdn.net/buy/product/product.asp?id=1292" target="_blank"><img src="/images/ad/vsnet_120.gif" border="0" WIDTH="120" HEIGHT="60"></a>
      </td>
  </tr>
  <tr><td width="610">
  <a href="/go.html?url=https://www.csdn.net/" target="_parent">CSDN首页</a> | <a href="/go.html?url=https://www.csdn.net/news/" target="_parent">新闻聚焦</a> | <a href="/go.html?url=https://www.csdn.net/cnshare/" target="_parent">共享软件</a> | <a href="/go.html?url=https://www.csdn.net/buy/" target="_parent">俱乐部</a><img src="https://www.csdn.net/images/buy.gif"> | <a href="/go.html?url=https://www.csdn.net/develop/" target="_parent">开发文档</a> | <a href="/go.html?url=https://expert.csdn.net/" target="_parent"><font color=red><B>专家门诊</B></font></a> | <a href="/go.html?url=https://www.csdn.net/job/" target="_parent">招聘求职</a> | <a href="/go.html?url=https://www.csdn.net/linux/" target="_parent">Linux园地</a> | <a href="/go.html?url=https://www.csdn.net/magazine/" target="_parent">程序员杂志</a>
  <hr>
  </td></tr>


</table>

<font face="宋体" size=2>
<p>Microsoft OLE DB Provider for SQL Server</font> <font face="宋体" size=2 > 错误 '80040e31'</font>
<p>
<font face="宋体" size=2>Timeout expired</font>
<p>
<font face="宋体" size=2>/expert/forum.asp</font><font face="宋体" size=2>，行103</font>

#18

//我又发现一虫look
DBGrid1.Editor := True;
DBGrid1.Columns[DBGrid1.SelectedIndex].Visible := False;
//以前的编辑筐还在哦
//用DBGrid1.Update是不行的

DBGrid1.Visible := not DBGrid1.Visible;
DBGrid1.Visible := not DBGrid1.Visible;
//解决了

#19

俺准备卸载D6回去用D5啦，受不了啦

#20

我在看看～～

#21

#22

该回复于2016-06-17 16:41:30被管理员删除

#23

当然Delphi6.0也有许多好的地方

No.1 增加了许多好的函数
  e.g. TryStrToInt,TryStrToBool,LeftStr...

No.2 窗体设计的时候按方向键选择控件考虑了相同父类因素

No.3 函数参数可以和属性同时提示

No.4 增加了一些标准控件
  e.g. TLabelEdit

No.5 增加了窗体流程图设计器

No.6 增加了新的编译指令
  Note 记不清是啥了也许是 {$IFDEF}

No.7 TDataSet有了SaveToFile和LoadFromFile让你可以把数据和文件玩来玩去

我发这个帖子的目的只是想让大家更放心的使用Delphi6.0
//再次谢谢关注

#24

当ComboBox.Items有值时就无法正常输入中文的问题我找到原因了，由于D6的TComboBox控件有自动匹配功能（这个功能不支持中文），当你的TComboBox中有内容时它会自匹配TComboBox的内容造成有乱码，解决方法是把TComboBox的AutoComplete属性设为False就搞定了，不知Borland是怎么搞的
，到现在对中文的支持都不好。

#25

#26

up
其实D6已经不错了，仔细研究一下是可以找到解决方法的。

#27

go on

#28

borland说：delphi6的pack1最好不要打，因为会出致命的错误
但他没说具体

#29

SpinEdit1的最大值和最小值都设为一样，则不起作用！

#30

还好，没用过。

#31

D6很多第三方的控件用不了，十分不方便，但是功能增强了许多，我最喜欢新增加的那套网络控件，比以前的那套要付费的网络控件强多了！

#32

快来抓

#33

关注

#34

//dfm
object Form1: TForm1
  Left = 192
  Top = 103
  Width = 544
  Height = 375
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 24
    Top = 24
    Width = 320
    Height = 120
    DataSource = DataSource1
    PopupMenu = PopupMenu1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'NAME'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SIZE'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'WEIGHT'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'AREA'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BMP'
        Visible = True
      end>
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 16
    Top = 8
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'animals.dbf'
    Left = 48
    Top = 8
  end
  object PopupMenu1: TPopupMenu
    Left = 80
    Top = 8
    object Bug1: TMenuItem
      Caption = 'Bug'
      OnClick = Bug1Click
    end
  end
end

//pas
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, Menus;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    PopupMenu1: TPopupMenu;
    Bug1: TMenuItem;
    procedure Bug1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Bug1Click(Sender: TObject);
begin
  DBGrid1.Columns[0].Width := 200;
  DBGrid1.EditorMode := True;
  DBGrid1.Columns[0].Visible := False;
  DBGrid1.Columns[0].Width := 100;
  DBGrid1.Columns[0].Visible := True;
end;

end.

#35

又结

FFFF; asm32x =