array

← →
бобёр (2002-12-17 16:43) [0]

Здравствуйте
Немогу откомпилировать следующий процедуру из-за массива
Выдает Cannot initialize local variables
С течением времени само дельфи просто виснет и приходится снимать через TaskManager. В чем может быть проблема?

procedure TForm1.DosToWin;
var
in_tbl:array[0..255] of Char;
out_tbl : array[0..255] of Char = (#$00,#$01,#$02,#$03,#$04,#$05,#$06,#$07,#$08,#$09,#$0a,#$0b,#$0c,#$0d,#$0e,#$0f,#$10,#$11,#$12,#$13,#$14,#$15,#$16,#$17,#$18,#$19,#$1a,#$1b,#$1c,#$1d,#$1e,#$1f,#$20,#$21,#$22,#$23,#$24,#$25,#$26,#$27,#$28,#$29,#$2a,#$2b,#$2c,#$2d,#$2e,#$2f,#$30,#$31,#$32,#$33,#$34,#$35,#$36,#$37,#$38,#$39,#$3a,#$3b,#$3c,#$3d,#$3e,#$3f,#$40,#$41,#$42,#$43,#$44,#$45,#$46,#$47,#$48,#$49,#$4a,#$4b,#$4c,#$4d,#$4e,#$4f,#$50,#$51,#$52,#$53,#$54,#$55,#$56,#$57,#$58,#$59,#$5a,#$5b,#$5c,#$5d,#$5e,#$5f,#$60,#$61,#$62,#$63,#$64,#$65,#$66,#$67,#$68,#$69,#$6a,#$6b,#$6c,#$6d,#$6e,#$6f,#$70,#$71,#$72,#$73,#$74,#$75,#$76,#$77,#$78,#$79,#$7a,#$7b,#$7c,#$7d,#$7e,#$7f,#$3f,#$3f,#$27,
#$3f,#$22,#$3a,#$c5,#$d8,#$3f,#$25,#$3f,#$3c,#$3f,#$3f,#$3f,#$3f,#$3f,#$27,#$27,#$22,#$22,#$07,#$2d,#$2d,#$3f,#$54,#$3f,#$3e,#$3f,#$3f,#$3f,#$3f,#$ff,#$f6,#$f7,#$3f,#$fd,#$3f,#$b3,#$15,#$f0,#$63,#$f2,#$3c,#$bf,#$2d,#$52,#$f4,#$f8,#$2b,#$49,#$69,#$3f,#$ff,#$14,#$fa,#$f1,#$fc,#$f3,#$3e,#$3f,#$3f,#$3f,#$f5,#$80,#$81,#$82,#$83,#$84,#$85,#$86,#$87,#$88,#$89,#$8a,#$8b,#$8c,#$8d,#$8e,#$8f,
#$90,#$91,#$92,#$93,#$94,#$95,#$96,#$97,#$98,#$99,#$9a,#$9b,#$9c,#$9d,#$9e,#$9f,#$a0,#$a1,#$a2,#$a3,#$a4,#$a5,#$a6,#$a7,#$a8,#$a9,#$aa,#$ab,#$ac,#$ad,#$ae,#$af,#$e0,#$e1,#$e2,#$e3,#$e4,#$e5,#$e6,#$e7,#$e8,#$e9,#$ea,#$eb,#$ec,#$ed,#$ee,#$ef);

begin
showMessage("hello");
end;

Заранее благодарен.

← →
MBo © (2002-12-17 16:46) [1]

oemtochar не поможет?

← →
бобёр (2002-12-17 16:56) [2]

Буду пробовать oemtochar . Но все же непонятно почему не могу присвоить статическому массиву значения при объявлении его.

Следующее аналогично:

procedure TForm1.DosToWin;
var
Days:array[1..2] of string = ("Суббота","Воскресенье");
begin
showMessage("hello");
end;

Результат тотже.

← →
Skier © (2002-12-17 17:00) [3]

>бобёр
type
TDays = array[1..2] of String;

procedure TForm1.DosToWin;
const
ADays : TDays = ("Суббота","Воскресенье");
begin
///
end;

← →
Reindeer Moss Eater (2002-12-17 17:41) [4]

var
Days:array[1..2] of string = ("Суббота","Воскресенье");

procedure TForm1.DosToWin;
begin
showMessage("hello");
end;

array Найти похожие ветки