大家快快来给Delphi6抓虫

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

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

to all:
Delphi6支持双系统所以才这么别扭to dana(dana):
你No.1就是我指的Delphi6中TComboBox中文输入有虫

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

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

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

CSDN出问题了？<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<link rel="stylesheet" type="text/css" href="../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="/buy/" target="_blank"><img src="/images/ad/dby2001_468_60.gif" width="468" height="60" border="0"></a>
    <script>document.write("<img src=http://www.csdn.net/count/pageview.asp?name=expert border=0 width=0 height=0>");</script>
  <a href="http://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="http://www.csdn.net/" target="_parent">CSDN首页</a> | <a href="http://www.csdn.net/news/" target="_parent">新闻聚焦</a> | <a href="http://www.csdn.net/cnshare/" target="_parent">共享软件</a> | <a href="http://www.csdn.net/buy/" target="_parent">俱乐部</a><img src="http://www.csdn.net/images/buy.gif"> | <a href="http://www.csdn.net/develop/" target="_parent">开发文档</a> | <a href="http://expert.csdn.net/" target="_parent"><font color=red><B>专家门诊</B></font></a> | <a href="http://www.csdn.net/job/" target="_parent">招聘求职</a> | <a href="http://www.csdn.net/linux/" target="_parent">Linux园地</a> | <a href="http://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>

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

当然Delphi6.0也有许多好的地方No.1 增加了许多好的函数
  e.g. TryStrToInt,TryStrToBool,LeftStr...No.2 窗体设计的时候按方向键选择控件考虑了相同父类因素No.3 函数参数可以和属性同时提示No.4 增加了一些标准控件
  e.g. TLabelEditNo.5 增加了窗体流程图设计器No.6 增加了新的编译指令
  Note 记不清是啥了也许是 {$IFDEF}No.7 TDataSet有了SaveToFile和LoadFromFile让你可以把数据和文件玩来玩去我发这个帖子的目的只是想让大家更放心的使用Delphi6.0
//再次谢谢关注

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

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

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

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

//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;interfaceuses
  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.

调试易

大家快快来给Delphi6抓虫

解决方案 »