Показать сообщение отдельно
Старый 11.08.2011, 22:00   #2
PassCall
Разработчик
 
Аватар для PassCall
 
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений
(для 319 пользователей)
Ответ: Lib_res8 - загрузка русского текста из ресурсных файлов

Ыть!

А можно сделать и так:
Function Decoder(Deco:string):string;
	var
	ch:char;
	ds:string;
	d_temp,i:integer;
	begin
	ds:='';
	for i:=1 to length(Deco) do
		begin
		ch:=getchar(deco,(i-1));
		d_temp:=ord(ch);
		if d_temp>122 then ds:=ds+chr(d_temp+1104)
		else
		ds:=ds+getchar(deco,j-1);
		end;
		decoder:=ds;
		end;
Стандартные возможности МП рулят! Так то!

P.S. незнаю, работает ли это в МП3.
__________________
Мечта программиста: запрограммировать процесс программирования.

Всё гениальное - просто.

http://passcall.ucoz.com
(Offline)
 
Ответить с цитированием