[delphihelp]

Никак не могу разобраться. Программа может закодировать символы только английского алфавита, но при вводе русских символов в программе выскакивает ошибка (как будто принимает за пробелы) и кодирует по алгоритму Хаффмана только анлийские символы. Везде смотрел, немогу найти причину.
Помогите разобраться пожалуйста.

[delphihelp]

попробовал в модуле unit1.pas поменять тип данных со стринг в ansistring в

Код:

procedure TForm1.Button2Click(Sender: TObject); 
var  myStr : ansiString; 

то стало записывать символы, но крякозябрами.

[delphihelp]

почитав в интернете я понял, что оказывается в программе все делается по кодировке ansi, а мне получается нужен unicode, чтобы не выдавало ошибок при нажатии при русской раскладке клавиатуры. хотя может я и ошибаюсь, но тут дело скорее всего в кодировке.

[YVitaliy]

Да, тут дело в кодировке, но также и в твоей программе. Если ord('я') (последняя буква русского алфавита) =1103, а у тебя размер массива = 256, то понятно, что никакого символа под индексом [1103] не будет. Попробуй увеличить размер массивов до 1280 (константа ALPHABETSIZE), и строку

Код:

sg1.RowCount:=dltxt+1;

поменять на

Код:

sg1.RowCount:=dltxt;

.
У меня так работает как минимум.

[delphihelp]

Cпасибо. А ведь правда в кодировке ANSI 255 символов, а в Unicode гораздо больше 65 536 символов кажется .Только я же думал что в кодировке ANSI есть русские буквы. А их видимо там нету. А программа вообще брала из Unicode.
Ура, теперь все символы отображаются. Даже не знаю как тебя благодарить.