Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Dos-unix [D5, Win95/98, WinME, NT4, Win2k, WinXP]


Arkan ©   (2002-06-18 17:22:00) 

Уважаемые мастера подскажите как досовский файл преобразовать в unix файл
напишите именно код спасибо!


MBo   (2002-06-18 18:01:00) [1]

fs:TFilestream;
abyte:byte;

$0A - unix перевод строки
fmCreate - константа для создания нового файла
или перезаписи старого


Arkan   (2002-06-18 17:56:00) [2]

круто что такое fs, abyte:=$0A; fmCreate


MBo   (2002-06-18 17:42:00) [3]

StringList.LoadFromFile(имя);
fs:=TFileStream.Create("unix.txt",fmCreate);
abyte:=$0A;
for i:=0 to StringList.Count-1 do begin
s:=StringList[i];
l:=Length(s);
fs.write(s[1],l);
fs.write(abyte,1);
end;
fs.free;


Arkan   (2002-06-18 17:30:00) [4]

слушай MBo а ты что здесь сутками дежуриш?


Arkan   (2002-06-18 17:29:00) [5]

ну да


MBo   (2002-06-18 17:24:00) [6]

текстовый?


Наверх

Титульная страница Поиск, карта сайта Написать письмо