Q&A

  • 배열 관련 문제 입니다.
안녕하세요. 일전에 배열을 초기화 한는 방법에 대하여 질문을 했었고 답을 얻었었습니다. 근데 이번엔 그렇게 초기화 한 배열을 사용하려구 하는데 Array type required라는 에러가 나서요. 아래에 선언부와 함수의 일부를 올려 봅니다.

         .
         .
         .
         .
var
  Form1: TForm1;

implementation

var
IniFile : TIniFile;
Width  : array[0..95] of Integer = ( 2, 1, 3, 5, 5, 5, 5, 2, 3, 3, 5, 5, 2, 3, 2, 5,
                                              5, 3, 5, 5, 5, 5, 5, 5, 5, 5, 2, 2, 4, 5, 4, 5,
                              5, 5, 5, 5, 5, 5, 5, 5, 5, 3, 5, 5, 5, 5, 5, 5,
                              5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 3, 5, 3, 5, 5,
                              3, 5, 5, 5, 5, 5, 4, 5, 5, 1, 4, 4, 3, 5, 5, 5,
                              5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 4, 1, 4, 5, 5 );
          .
          .
          .
          .
procedure TForm1.GetTextList;
var
i, j : integer;
Text: Pchar;
ascii_value: array[0..9] of byte;
charWidth: integer;
NumOfSpace: integer;
stPosition: integer;
begin
     for i:=0 to 255 do begin
         Text := Pchar(IniFile.ReadString('List',inttostr(i),''));

         charwidth := 0;
         NumOfSpace := 0;
         stPosition := 19;

         for i:=0 to strLen(Text) do begin
                 ascii_value[i] := ord(Text[i]);                
                 charwidth := charwidth + Width[ascii_value[i] - 32];
                                                          // 바로 요부분에서 에러가 납니다.
         end;
             .
             .
             .
             .
             .
부탁드립니다.
2  COMMENTS
  • Profile
    구창민 2003.03.21 01:53
    아마도 변수명이 폼의 속성명과 같아서 그런거 같네여.

    Self.Width <-- (Form.Width)요넘을 가르키게 되어 버려서리 그런거 같네여.

    Widths <-- 머 이런걸로 바꾸어보세요.

    그럼~ 즐거운 프로그래밍 하시길~


  • Profile
    이승우 2003.03.21 01:58
    정말 감사합니다.