Кодировка

← →
BlackLord2003 (2003-12-29 19:12) [0]

Где можно найти исходники программ, которые могут перекодировать текст. Например KOI --> WIN и т.д. Но без компанентов. Пробовал примеры из FAQ, не получилось.

← →
Brahman (2003-12-29 19:26) [1]

Неужели трудно сообразить, что число символов, требующих перекодировку должно быть одинаково в обоих кодировках, а раз так, то нужны всего лишь два массива (для двух перекодировок).
Как они объявлены - не суть.
И, например, простейшая функция замены

function Ch2Ch(ch: byte; tbS,tbT: array of byte): byte;
var
i: byte;
tbLen: byte;
begin
tbLen := Length(tbS); // реально всего лишь 66 символов
for i:=0 to tbLen-1 do begin
if tbS[i]=ch then begin
Result:=tbT[i];
Exit;
end;
end;
Result:=ch;
end;

← →
sniknik (2003-12-29 19:31) [2]

сдесь можно (видел)
http://delphi.chertenok.ru/
уверен что оттуда получится?

← →
Brahman (2003-12-29 19:55) [3]

sniknik © (29.12.03 19:31) [2]

Хороший из Вас справочник "Где, что и почем".
Если бы еще голубизной не отдавал, то совсем цены не было бы.

← →
Anatoly Podgoretsky (2003-12-29 20:28) [4]

http://www.delphikingdom.com/lyceum/seminar.asp?partID=4&LessonID=13
http://podgoretsky.com/cgi-bin/dlcounter/npscnt?file=http://podgoretsky.com/ftp/Language/nps/charcvt.zip&file_id=charcvt

← →
sniknik (2003-12-29 21:26) [5]

Brahman © (29.12.03 19:55) [3]
непонял?? какой справочник? это ответ на вопрос
> Где можно найти исходники программ, которые могут перекодировать текст.
поверь там можно найти, как минимум 1 экземпляр подобного рода исходников (знаю есть). (первым побуждением было в интернет послать... но переломил себя дал более точную ссылку ;о))

← →
BlackLord2003 (2004-01-04 12:56) [6]

Заработало! Всем спасибо!

Кодировка Найти похожие ветки