안녕하세요. 일전에 배열을 초기화 한는 방법에 대하여 질문을 했었고 답을 얻었었습니다. 근데 이번엔 그렇게 초기화 한 배열을 사용하려구 하는데 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;
.
.
.
.
.
부탁드립니다.
Self.Width <-- (Form.Width)요넘을 가르키게 되어 버려서리 그런거 같네여.
Widths <-- 머 이런걸로 바꾸어보세요.
그럼~ 즐거운 프로그래밍 하시길~