Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
deadsik
3 / 3 / 2
Регистрация: 17.06.2011
Сообщений: 202
#1

Дописать в файл текст

18.03.2013, 02:02. Просмотров 922. Ответов 2
Метки нет (Все метки)

Добрый вечер подскажите пожалуйста как можно дописать в файл текст (если файл существует), а если файла не сущействует - то создать его и записать туда текст ?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const
  Fn = 'file.txt';
var
  F : File;
  S, FileName : AnsiString;
  SRes : UTF8String;
begin
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  S := Memo1.Text;
  SRes := AnsiToUtf8(S);
  AssignFile(F, FileName);
  ReWrite(F, 1);
  BlockWrite(F, Pointer(SRes)^, Length(SRes));
 // memo1.lines.clear;
  CloseFile(F);
end;
(вместо ReWrite написать Append ?)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.03.2013, 02:02
Ответы с готовыми решениями:

Как дописать текст в текстовый файл?
у меня есть текстовый файл расширения .txt, как можно дописать в него некий...

Дописать в файл
При старте программы нужно создать файл. На форме есть мемо и таймер. Если...

Дописать в каждую строку перед уже имеющимся текстом новый текст в memo
В поле memo имеется много строк. Каждая строка представляет собой имя файла,...

Дописать в файл Excel из StringGrid
Доброго времени суток. У меня такой вопрос, как можно дописать из StringGrid в...

Дан файл содержащий текст на русском языке. Выяснить, входит ли введенное с клавиатуры слово в указанный текст
Помогите пожаоуйста

2
angstrom
2470 / 1846 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
18.03.2013, 02:19 #2
Ну а сам как думаешь? Сомневаешься открой справку.
0
Mawrat
12824 / 5732 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
18.03.2013, 08:46 #3
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const
  Fn = 'file.txt';
var
  F : File;
  S, FileName : AnsiString;
  SRes : UTF8String;
begin
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  S := Memo1.Text;
  SRes := AnsiToUtf8(S);
  AssignFile(F, FileName);
  if FileExists(FileName) then begin //Если файл существует.
    Reset(F, 1);
    Seek(F, FileSize(F)); //Перемещаем файловый указатель в конец файла.
  end else //Если файл не существует.
    ReWrite(F, 1);
  BlockWrite(F, SRes[1], Length(SRes));
  //memo1.lines.clear;
  CloseFile(F);
end;
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.03.2013, 08:46

Вычислить произведение 4-х наибольших элементов,результат дописать в файл
Записать и заполнить ASCII-файл с действительными числами. Вычислить...

Есть текстовый файл, дописать в него 6 одинаковых строк. Записываемая строка вводится с клавиатуры
Не могу разобраться, Забыл как работать с текстовыми файлами

Дописать в файл - список студентов группы новых студентов
Дописать в файл - список студентов группы новых студентов.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru