Перекодировка из DOS в WIN -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.15.179.121]

ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi

Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.

Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Модераторы: jack128, D[u]fa, Shaggy, Rouse_

Новое голосование

Перекодировка из DOS в WIN

sergpv	Сообщ. #1 , 12.10.01, 08:04
Unregistered	Срочно нужна процедурка сабжевая. Кинте кому нелень.

Demo_S

Сообщ. #2 , 13.10.01, 22:40

Master

Профиль · PM

Рейтинг (т): 34

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.text='')or(edit1.text=extractfilename(f1.filename)) then exit;
if messagedlg('Перевести '+f1.FileName+' ?',mtwarning,[mbyes,mbno],0)=idno then exit;
assignfile(source,f1.FileName);reset(source);
assignfile(ou,edit1.Text);rewrite(ou);
repeat readln(source,buf);
for i:=0 to length(buf) do
case r1.ItemIndex of
0:case ord(buf[i]) of
128..175:buf[i]:=chr(ord(buf[i])+64);
224..255:buf[i]:=chr(ord(buf[i])+16);end;
1:case ord(buf[i]) of
192..239:buf[i]:=chr(ord(buf[i])-64);
240..255:buf[i]:=chr(ord(buf[i])-16);end;
end;
writeln(ou,buf);
until eof(source);
closefile(ou);closefile(source);
f1.Refresh;
end;
где-то на это сайте я ее и видел:))

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0151 ] [ 15 queries used ] [ Generated: 19.05.24, 01:55 GMT ]