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

07.04.2008, 16:08. **Показов** 110892. **Ответов** 13

Author24 — интернет-сервис помощи студентам

помогите плс! в файлах я вообще ни бум-бум.. = (( как содержимое Edit1.Text Edit2.Text записать в текстовый файл? содержимое Edit1.Text является string а Edit2.Text - integer... надеюсь только на вас..

@filippchik · 07.04.2008, 19:52

Delphi

/////
 
SaveToFile(Edit1.text);
SaveToFile(Edit2.Text);
/////
 
procedure SaveToFile(str:string);
var
 f:TextFile;
 FileDir:String;
begin
 FileDir:='c:\file.txt';
AssignFile(f,FileDir);
if not FileExists(FileDir) then
 begin
  Rewrite(f);
  CloseFile(f);
 end;
Append(f);
Writeln(f,str);
Flush(f);
CloseFile(f);
end;

08.04.2008, 18:32

Сообщение от Гость12345

а Edit2.Text - integer...

Сообщение от filippchik

SaveToFile(IntToStr(Edit2.Text));

люди, вы что? как Edit2.Text может быть Integer?????

@filippchik · 08.04.2008, 19:20

Точно...Чет ваще переклинило

@KroSHka_Dorrit · 08.11.2008, 12:33

А как сделать так чтобы записи в файле сохранялись, т.е. не производилась перезапись текстового файла, а добавление к уже имеющейся строкам? Пожалуста помогите!

@Arriba · 08.11.2008, 17:22

KroSHka_Dorrit, А тебе уже и написали.смотри выше

Delphi

if not FileExists(FileDir) then //если фаил не существует то создаётся новый
begin
Rewrite(f);//перезаписывание файла
end;
 
Append(f);//добавление данных в существующий фаил

@velikijmerlin · 05.08.2009, 22:51

ребят, а вот возможно ли следующее
записать что либо в файл который не имеет названия?

тоесть пользователь сначала заполняет файл, а потом его сохраняет...
только файл заполняется не ручками а кнопками, к которым подбиты определённые текстовые строки... которые записываются все в один файл, а потом этот файл сохраняется с именем который выбрал пользователь, а, можно так?

@Puporev · 06.08.2009, 07:41

Наверное нет. Сначала надо связать файловую переменную с файлом на диске, а потом уже в него записывать, т.е.
assignfile(f,'file.txt');
rewrite(f);
Если не нужно по частям записывать, то можно собрать всю информацию сначала в переменную типа Tstrings, например в Мемо, или просто в любую переменную этого типа, а потом за 1 раз записать в файл
Memo1.Lines.SaveToFile;

@velikijmerlin · 08.08.2009, 21:35

спасибо, понял)))

@Cav · 01.02.2011, 18:57

Как добавлять строки в текстовый файл с определенной кодировкой - windows-1251?

@MilkySoul · 01.01.2013, 09:38

Ребят, еще один вопрос, как добавить разрыв строки при записи в файл?

Добавлено через 11 минут
Уже разобралась, вот тут подробно написано: http://www.delphisources.ru/pa... e.php.html

@Mawrat · 01.01.2013, 13:51

Да - с помощью Writeln(). Или можно вручную записывать знаки конца строки. Используются следующие знаки: #13 - перенос строки, #10 - конец строки. Вызов Writeln(F) записывает пару знаков #13#10 в файл F, а вызов Writeln() запишет пару знаков #13#10 в стандартный выходной файл - т. е., на консоль.
Вот так можно с помощью одного вызова Write() записать текст в виде трёх строк:

Delphi

var
  F : TextFile;
...
begin
...
  //Вывод в окно консоли.
  Write('Строка 1.'#13#10'Строка 2.'#13#10'Строка 3.');
  
  //Вывод в файл F.
  Rewrite(F);
  Write(F, 'Строка 1.'#13#10'Строка 2.'#13#10'Строка 3.');
  CloseFile(F);
...
end;

---
Код исправлен в соответствие с замечанием от gorfil постом ниже.

@FIL · 01.01.2013, 18:19

А разве при выводе в файл не надо его указывать?

Delphi

1	Write(F, 'Строка 1.'#13#10'Строка 2.'#13#10'Строка 3.');

Очепятка?

@Mawrat · 02.01.2013, 01:57

Сообщение от gorfil

Очепятка?

Она самая.

Сейчас добавлю исправление в тот пост.

@Mawrat 13107 / 5888 / 1707 Регистрация: 19.09.2009 Сообщений: 8,808
	02.01.2013, 01:57	14
	Сообщение от gorfil Очепятка? Она самая. Сейчас добавлю исправление в тот пост. 0

Гость12345
		1
	Запись в текстовый файл 07.04.2008, 16:08. Показов 110892. Ответов 13 Метки нет (Все метки) помогите плс! в файлах я вообще ни бум-бум.. = (( как содержимое Edit1.Text Edit2.Text записать в текстовый файл? содержимое Edit1.Text является string а Edit2.Text - integer... надеюсь только на вас..

гагабу
	08.04.2008, 18:32	3
	Сообщение от Гость12345 а Edit2.Text - integer... Сообщение от filippchik SaveToFile(IntToStr(Edit2.Text)); люди, вы что? как Edit2.Text может быть Integer?????

@filippchik 2 / 2 / 0 Регистрация: 26.03.2008 Сообщений: 40
	08.04.2008, 19:20	4
	Точно...Чет ваще переклинило 0

@KroSHka_Dorrit 2 / 2 / 1 Регистрация: 08.11.2008 Сообщений: 11
	08.11.2008, 12:33	5
	А как сделать так чтобы записи в файле сохранялись, т.е. не производилась перезапись текстового файла, а добавление к уже имеющейся строкам? Пожалуста помогите! 0

@velikijmerlin Junior Developer 44 / 44 / 7 Регистрация: 08.06.2009 Сообщений: 261
	05.08.2009, 22:51	7
	ребят, а вот возможно ли следующее записать что либо в файл который не имеет названия? тоесть пользователь сначала заполняет файл, а потом его сохраняет... только файл заполняется не ручками а кнопками, к которым подбиты определённые текстовые строки... которые записываются все в один файл, а потом этот файл сохраняется с именем который выбрал пользователь, а, можно так? 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	06.08.2009, 07:41	8
	Наверное нет. Сначала надо связать файловую переменную с файлом на диске, а потом уже в него записывать, т.е. assignfile(f,'file.txt'); rewrite(f); Если не нужно по частям записывать, то можно собрать всю информацию сначала в переменную типа Tstrings, например в Мемо, или просто в любую переменную этого типа, а потом за 1 раз записать в файл Memo1.Lines.SaveToFile; 0

@velikijmerlin Junior Developer 44 / 44 / 7 Регистрация: 08.06.2009 Сообщений: 261
	08.08.2009, 21:35	9
	спасибо, понял))) 0

@Cav 0 / 0 / 0 Регистрация: 14.01.2011 Сообщений: 3
	01.02.2011, 18:57	10
	Как добавлять строки в текстовый файл с определенной кодировкой - windows-1251? 0

@MilkySoul 0 / 0 / 0 Регистрация: 20.10.2012 Сообщений: 7
	01.01.2013, 09:38	11
	Ребят, еще один вопрос, как добавить разрыв строки при записи в файл? Добавлено через 11 минут Уже разобралась, вот тут подробно написано: http://www.delphisources.ru/pa... e.php.html 0