问一下关于Delphi的赋值问题

Question

我是学C++的，这几天一直在找一个源码，可惜没有找到C++的，只找到了delphi的，但是下载了开发平台以后调试代码遇到了
问题     ctEBCDICToISO : array [0..255] of Char = (
                          #0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          #0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          #0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          #0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          ' ',#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,'.','<','(','+','',//这里开始出错
                          '&','&',#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,'!','$','*',')',';',#0 ,
                          '-','/',#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,'|',',','%','_','>','?',
                          #0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,'`',':','#','@','''','=','"',
                          #0 ,'a','b','c','d','e','f','g','h','i',#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          #0 ,'j','k','l','m','n','o','p','q','r',#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          #0 ,'~','s','t','u','v','w','x','y','z',#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          #0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          #0 ,'A','B','C','D','E','F','G','H','I',#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          #0 ,'J','K','L','M','N','O','P','Q','R',#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          '\',#0 ,'S','T','U','V','W','X','Y','Z',#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          '0','1','2','3','4','5','6','7','8','9',#0 ,#0 ,#0 ,#0 ,#0 ,#0  );
错误提示：[Error] hexeditor.pas(232): Incompatible types: 'Char' and 'String'好像是说不能把字符和字符串赋在一起……是一个.pas的控件报错的……正常情况下用户自定义控件不应该报错啊……有没有什么办法修复，还是我的开发平台设置有问题？如果需要全部源文件请叫我发，谢谢！

Answer 1

2L:
     ctEBCDICToISO : array [0..255] of Char = (
                          #0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          #0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          #0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          #0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          ' ',#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,'.','<','(','+',"",
                          '&','&',#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,'!','$','*',')',';',#0 ,
                          '-','/',#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,'|',',','%','_','>','?',
                          #0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,'`',':','#','@','''','=','"',
                          #0 ,'a','b','c','d','e','f','g','h','i',#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          #0 ,'j','k','l','m','n','o','p','q','r',#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          #0 ,'~','s','t','u','v','w','x','y','z',#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          #0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          #0 ,'A','B','C','D','E','F','G','H','I',#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          #0 ,'J','K','L','M','N','O','P','Q','R',#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          '\',#0 ,'S','T','U','V','W','X','Y','Z',#0 ,#0 ,#0 ,#0 ,#0 ,#0 ,
                          '0','1','2','3','4','5','6','7','8','9',#0 ,#0 ,#0 ,#0 ,#0 ,#0  );
你是说这样么，还是报错

Answer 2

'' ，这样算是一个String常量
' ', 这样就可能算是一个Char常量，或String常量

Answer 3

3L:问题解决了，但是调试器又出了新的问题：
[Error] UntBuf.pas(48): Undeclared identifier: 'hxdtr'
我双击他并不给我提供具体的错误行，不知道为什么object frmbuf: Tfrmbuf
  Left = 250
  Top = 401
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'BUF'
  ClientHeight = 144
  ClientWidth = 702
  Color = clGradientActiveCaption
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '??'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object pnl1: TPanel
    Left = 676
    Top = 0
    Width = 26
    Height = 144
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 0
    object btnSave: TSpeedButton
      Left = 2
      Top = 26
      Width = 24
      Height = 23
      Hint = 'Apply Buf Chanage'
      Flat = True
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008400
        000084000000FFFFFF008400000084000000FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00840000008400
        0000FFFFFF00FFFFFF00FFFFFF008400000084000000FFFFFF00FFFFFF00FFFF
        FF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFFFF00840000008400
        0000FFFFFF00FFFFFF00FFFFFF008400000084000000FFFFFF00FFFFFF00FFFF
        FF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFFFF00840000008400
        0000FFFFFF00FFFFFF00FFFFFF008400000084000000FFFFFF00FFFFFF00FFFF
        FF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFFFF00840000008400
        0000FFFFFF00FFFFFF00FFFFFF008400000084000000FFFFFF00FFFFFF00FFFF
        FF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF008400
        000084000000FFFFFF008400000084000000FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF008400000084000000FFFFFF008400000084000000FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF008400000084000000FFFFFF00FFFFFF00FFFFFF00840000008400
        0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF008400000084000000FFFFFF00FFFFFF00FFFFFF00840000008400
        0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF008400000084000000FFFFFF00FFFFFF00FFFFFF00840000008400
        0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF008400000084000000FFFFFF00FFFFFF00FFFFFF00840000008400
        0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF008400000084000000FFFFFF008400000084000000FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
      ParentShowHint = False
      ShowHint = True
      OnClick = btnSaveClick
    end
    object sbGridVisable: TSpeedButton
      Left = 2
      Top = 0
      Width = 24
      Height = 23
      Hint = 'Show Grid'
      Caption = '#'
      Flat = True
      ParentShowHint = False
      ShowHint = True
      OnClick = sbGridVisableClick
    end
    object sbSaveas: TSpeedButton
      Left = 2
      Top = 51
      Width = 24
      Height = 24
      Hint = 'Save AS...'
      Flat = True
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00000000000000000000000000000000000000000000000000000000000000
        00000000000000000000000000000000000000000000FFFFFF00FFFFFF000000
        0000008484000084840000000000000000000000000000000000000000000000
        0000C6C6C600C6C6C600000000000084840000000000FFFFFF00FFFFFF000000
        0000008484000084840000000000000000000000000000000000000000000000
        0000C6C6C600C6C6C600000000000084840000000000FFFFFF00FFFFFF000000
        0000008484000084840000000000000000000000000000000000000000000000
        0000C6C6C600C6C6C600000000000084840000000000FFFFFF00FFFFFF000000
        0000008484000084840000000000000000000000000000000000000000000000
        00000000000000000000000000000084840000000000FFFFFF00FFFFFF000000
        0000008484000084840000848400008484000084840000848400008484000084
        84000084840000848400008484000084840000000000FFFFFF00FFFFFF000000
        0000008484000084840000000000000000000000000000000000000000000000
        00000000000000000000008484000084840000000000FFFFFF00FFFFFF000000
        00000084840000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
        C600C6C6C600C6C6C600000000000084840000000000FFFFFF00FFFFFF000000
        00000084840000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
        C600C6C6C600C6C6C600000000000084840000000000FFFFFF00FFFFFF000000
        00000084840000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
        C600C6C6C600C6C6C600000000000084840000000000FFFFFF00FFFFFF000000
        00000084840000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
        C600C6C6C600C6C6C600000000000084840000000000FFFFFF00FFFFFF000000
        00000084840000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
        C600C6C6C600C6C6C600000000000000000000000000FFFFFF00FFFFFF000000
        00000084840000000000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
        C600C6C6C600C6C6C60000000000C6C6C60000000000FFFFFF00FFFFFF000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
      ParentShowHint = False
      ShowHint = True
      OnClick = sbSaveasClick
    end
  end
  object sd: TSaveDialog
    DefaultExt = '.txt'
    Filter = 'txt|*.txt'
    Left = 472
    Top = 16
  end
end麻烦帮我再看一下吧，谢了

Answer 4

在UntBuf.pas的48行，都告诉你了
到这个单元中搜一下'hxdtr'，应该是没有声明

Answer 5

我用File find找到了48行的那个hxdtr，但是我实际过去看到的是“  FF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFFFF00840000008400”这样的一个代码并不是搜索中告诉我的“C:\Documents and Settings\Administrator\Desktop\hack\src\UntBuf.pas(48):   hxdtr.CreateEmptyFile('');”在UntBuf.pas中直接全文搜索也找不到hxdtr这个东西