Автор †oki задал вопрос в разделе Другие языки и технологии
Как программно в Делфи7 очистить файл тхт? и получил лучший ответ
Ответ от MMM_Corp[гуру]
var
st:tstringlist;
begin
st:=tstringlist.create;
st.savetofile('text.txt');
st.free;
end;
проще наверное непридумать) писал сразу сюда, так что могут быть опечатки
Ответ от Arn[гуру]
А зачем? Не проще удалить и создать снова с тем же именем.
А зачем? Не проще удалить и создать снова с тем же именем.
Ответ от GAV_13[гуру]
Создать его с тем же именем. ))
Создать его с тем же именем. ))
Ответ от AggressiON![активный]
Да, я использую следующий: сначала открываешь файл (если имя файла заведомо известно, то это можно прописать в коде) , потом кидаешь все его содержимое в поле Memo и пишешь Form1.Memo1.Lines.Clear;
после чего спокойно сохраняешь фаил с функцией перезаписи и все.
И можно создать фаил с таким же именем в другой директории и скопировать его поверх другого файла с перезаписью, эффект будет тот же.
Memo1.Lines.LoadFromFile(Имя_файла) ; // загрузка
Memo1.Lines.SaveToFile(Имя_файла) ; // сохранение
procedure TForm1.Button1Click(Sender: TObject);
Var f:TextFile; // указатель на текстовый файл
begin
AssignFile(f,'c:1.txt'); // привязка названия к переменной
{$I-}
Append(f); // открыть файл для добавления
if IOResult<>0 then // если ошибка открытия (напр. файла нет)
begin
{$I-}
Rewrite(f); // создать новый файл
{$I+}
if IOResult<>0 then // ошибка создания файла
begin
ShowMessage('Ошибка создания файла C:1.TXT');
Exit;
end;
Да, я использую следующий: сначала открываешь файл (если имя файла заведомо известно, то это можно прописать в коде) , потом кидаешь все его содержимое в поле Memo и пишешь Form1.Memo1.Lines.Clear;
после чего спокойно сохраняешь фаил с функцией перезаписи и все.
И можно создать фаил с таким же именем в другой директории и скопировать его поверх другого файла с перезаписью, эффект будет тот же.
Memo1.Lines.LoadFromFile(Имя_файла) ; // загрузка
Memo1.Lines.SaveToFile(Имя_файла) ; // сохранение
procedure TForm1.Button1Click(Sender: TObject);
Var f:TextFile; // указатель на текстовый файл
begin
AssignFile(f,'c:1.txt'); // привязка названия к переменной
{$I-}
Append(f); // открыть файл для добавления
if IOResult<>0 then // если ошибка открытия (напр. файла нет)
begin
{$I-}
Rewrite(f); // создать новый файл
{$I+}
if IOResult<>0 then // ошибка создания файла
begin
ShowMessage('Ошибка создания файла C:1.TXT');
Exit;
end;
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Как программно в Делфи7 очистить файл тхт?
спросили в Философия
Сколько и какие подвиги совершил Тесей на пути в Афины?
Тесей убил Перифета, Синиса, кроммионскую свинью, Скирона, Керкиона, Прокруста и
подробнее...
Сколько и какие подвиги совершил Тесей на пути в Афины?
Тесей убил Перифета, Синиса, кроммионскую свинью, Скирона, Керкиона, Прокруста и
подробнее...
спросили в Векторы
Delphi. Умножаю матрицу на вектор, получаю ошибку. Что не так в коде?
Если компилятор ругается, то почему вы не приводите его ругательства? Телепатов здесь нет. А вектор
подробнее...
Delphi. Умножаю матрицу на вектор, получаю ошибку. Что не так в коде?
Если компилятор ругается, то почему вы не приводите его ругательства? Телепатов здесь нет. А вектор
подробнее...