Автор Stas Tetin задал вопрос в разделе Другие языки и технологии
Delphi 7 работа с файлами ! и получил лучший ответ
Ответ от Johnsilver[гуру]
procedure Append(f: Text) вместо rewrite
Ответ от Virtual[гуру]
Транксевазину тяпни
Транксевазину тяпни
Ответ от Jurijus Zaksas[гуру]
В ДЕЛЬФИ это делается так:
with TStringList.Create do
try
LoadFromFile('yrfile.txt');
Add('Bla-bla');
SaveToFile('yrfile.txt');
finally
Free;
end;
Или, если подключить мозг, так:
s:='Bla-Bla';
with TFileStream.Create('yrfile.txt', fmOpenWrite) do
try
Position:=Size;
WriteData(PChar(s), Length(s)*SizeOf(Char));
finally
Free;
end;
А у тебя паскаль голимый, а не дельфи.
В ДЕЛЬФИ это делается так:
with TStringList.Create do
try
LoadFromFile('yrfile.txt');
Add('Bla-bla');
SaveToFile('yrfile.txt');
finally
Free;
end;
Или, если подключить мозг, так:
s:='Bla-Bla';
with TFileStream.Create('yrfile.txt', fmOpenWrite) do
try
Position:=Size;
WriteData(PChar(s), Length(s)*SizeOf(Char));
finally
Free;
end;
А у тебя паскаль голимый, а не дельфи.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Delphi 7 работа с файлами !
спросили в Delphi
Delphi 5, 6, 7
Только что повторил объявление в Delphi 7, ничего он мне не выдал. На какую строку-то он ругается?
подробнее...
Delphi 5, 6, 7
Только что повторил объявление в Delphi 7, ничего он мне не выдал. На какую строку-то он ругается?
подробнее...
спросили в Shadowrun Дельфы
Delphi 7. Ошибка "Stream read error"
Значит, TBitmap не может прочитать некоторые файлы. Это бывает, дельфи для работы с графикой вообще
подробнее...
Delphi 7. Ошибка "Stream read error"
Значит, TBitmap не может прочитать некоторые файлы. Это бывает, дельфи для работы с графикой вообще
подробнее...
Как создать текстовый документ в Делфи 7??
TStringList.Create.SaveToFile(\'Мой первый текстовый документ, созданный в Делфи
подробнее...
спросили в Язык Языки
Хочу научиться программировать. С какого языка программирования лучше начать?
На данное время разработано более 8500 различных компьютерных языков, разной сложности и
подробнее...
Хочу научиться программировать. С какого языка программирования лучше начать?
На данное время разработано более 8500 различных компьютерных языков, разной сложности и
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
спросили в Champ Car
Pascal, чтение из файла
Если в файл вы записали блокнотом символы 12, то и объявляйте свой файл fr как текстовый, а не как
подробнее...
Pascal, чтение из файла
Если в файл вы записали блокнотом символы 12, то и объявляйте свой файл fr как текстовый, а не как
подробнее...
спросили в Интернет
Здравствуйте. Подскажите, мне нужно сделать свой сайт. Готов платить за него деньги. Посоветуйте мне хостинг и домен.
.
Могу порекомендовать краткое изложение основных базовых тем сайтостроения:
1. .
подробнее...
Здравствуйте. Подскажите, мне нужно сделать свой сайт. Готов платить за него деньги. Посоветуйте мне хостинг и домен.
.
Могу порекомендовать краткое изложение основных базовых тем сайтостроения:
1. .
подробнее...
Delphi 7. открыть файл, а потом удалить его.
Вы запускаете торрент, он грузится (программа запускается, все такое) , допустим 5 секунд. А ваша
подробнее...
Как научиться программировать с нуля? Посоветуйте литературу какую нибуть.
Для ОБУЧЕНИЯ программированию я бы все же рекомендовал Visual Basic 6.0 - он намного легче, проще в
подробнее...
спросили в Интернет
как убрать рекламу,банера с компа?уже на рабочий стол вылазит
Если реклама появляется на компе с периодичностью в 5-10 минут, даже если вы не заходите в интернет
подробнее...
как убрать рекламу,банера с компа?уже на рабочий стол вылазит
Если реклама появляется на компе с периодичностью в 5-10 минут, даже если вы не заходите в интернет
подробнее...
Есть папка с проектом Delphi, как узнать какие там файлы в папке не относятся к этому проекта? (а то там много файлов)
Открываешь файл проекта %projectname%.dpr, смотришь какие юниты используются в этом проекте. И
подробнее...
Удаление баннера с рабочего стола, разблокировка Windows
Попробуй такой вариант: есть способ временной блокировки этого троянского банера, удерживай ctrl +
подробнее...