Автор Bogish задал вопрос в разделе Компьютеры, Связь
как записать в паскале данные в файл? ! помогите экзамен сегодня и получил лучший ответ
Ответ от Павел[гуру]
Вообще-то неплохо было бы ещё и текст файлика "F1.txt" привести в вопросе.. .А так могу сказать только, что для записи нужно использовать следующее:
var
f2: text;
// ...
Assign(f2, 'C:\Program Files\PABC\f2.txt');
Rewrite(f2);
for i:=1 to 10 do
begin
writeln(f2, a);
end;
close(f2);
Ну а если программа пишется на , то я не понимаю людей, использующие "рудименты" типа Assign, Reset и т. п. Всё гораздо прощё:
var
Strings: TStrings;
Index: Integer;
begin
Strings := TStringList.Create;
try
Strings.LoadFromFile('C:\Program Files\PABC\f1.txt');
for Index := 0 to Pred(Strings.Count) do
begin
// Здесь выполняем перестановку слов ...
end;
Strings.SaveToFile('C:\Program Files\PABC\f2.txt');
finally
Strings.Free;
end;
end;
Сам по себе ПВХ вряд ли сильно влияет. Если вы имели в виду поливинилхлорид. Скорей влияет то что он плохо разлагается.
А вот его сжигание
"Особо хочется предупредить садоводов: ни в коем случае не выбрасывайте на несанкционированные свалки и не сжигайте пленки, изготовленные из поливинилхлорида (ПВХ) . Пленки имеют в своем составе целый «букет» органических соединений различного класса опасности, а главное – хлор. При сжигании ПВХ образуются крайне вредные, ядовитые для всего живого вещества: бензпирены, фосген, хлористый водород, и пр. Известно, что бен-зпирены - весьма активные канцерогены. Фосген – боевое отравляющее вещество, использо-вавшееся во время военных действий. Хлористый водород в соединении с парами воды пре-вращается в соляную кислоту. При вдыхании паров соляной кислоты происходит раздражение слизистых оболочек носа, глаз, помутнение роговицы.
Однако и это еще не все опасности, связанные со сжиганием пленок ПВХ. Сгорая, они выделяют в атмосферу хлорорганические соединения - диоксины, которые являются клеточным ядом, включаются в пищевые цепи живых организмов. В природе раньше таких веществ не было, их создал, сам того не ожидая, человек. Диоксины крайне медленно разлагаются (во многих случаях более 100 лет). "
ссылка
Правда есть и такие данные. Увы не могу их прокомментировать.
"По истечении 10-ти лет использования включается [источник не указан 369 дней] обратная реакция, то есть материал самостоятельно начинает выделять хлорорганические соединения в окружающую среду. Современные технологии создают способы блокирования этого свойства ПВХ, но они пока малоэффективны. "
Так что, на мой взгляд, главное влияние сжигание.
Если именно таким макаром записывать в файл (нетипизированные файлы) , то примерно так:var f:textfile;...begin...AssignFile(f,имя_файла_пишем_тут) ; {получаем указатель}ReWrite(f); {Открываем на запись, при этом указатель конца
Delphi, работа с файлами
1. Вы используете методы доступа к файлам, которые устарели лет на 15-20, сегодня они используются
подробнее...
Какая техника относиться к цифровой?
Слово "Цифровой" означает вид обработки и кодирования информации.
Поскольку все современные
подробнее...
Free Pascal IDE. Пожалуйста, помогите с программой!
При работе с файловыми переменными:
1) Там, где описана работа с файлами необходимо указать
подробнее...
Как дописывать инфу в конец типизированого файла в Pascal'e?
Доброго времени суток.
В правильном направлении вы двигались. Именно через Seek. Вот
подробнее...
500 пикселей - резиновые?
Ну, судя по снимкам, ты ещё не фотограф. Каждый из этих снимков можно аргументированно
подробнее...
Написание вируса с нуля... помогите плз! Оо
дауны тупые вас кто просил тут бред нести? фармите ответы? тупые овцы.. . задрали отвечайте по
подробнее...
Samsung GT-S5560
Samsung GT-S5560 приходит на смену популярному тачфону S5230 Star. Здесь также присутствует большой
подробнее...