Не могу записать в файл

@Venteux · Регистрация: 19.09.2010

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

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

@dampir_sanek · 18.01.2011, 22:53

Venteux, код в студию!

@Venteux · 18.01.2011, 22:55 **[ТС]**

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  f:textfile;
begin
  assignfile(f,'katalog.prt');
  reWrite(f);
  writeln(f,'текст');
end;
 
end.

@dampir_sanek · 18.01.2011, 23:01

расширение у файла исправь на txt, то есть katalog.txt.

@Venteux · 18.01.2011, 23:16 **[ТС]**

Ничего не изменилось.

А есть разница в расширении при записи? При чтении из файла такой разницы нет. Просто мне бы желательно не txt файлик в итоге иметь.

Добавлено через 11 минут
Всё, разобралась. CloseFile(f); нужно дописать в конце

@dampir_sanek · 18.01.2011, 23:17

Нет, разницы нет, не туда поглядел)
Ты забыла файл закрыть, я проглядел

Delphi

begin
  assignfile(f,'katalog.prt');
  reWrite(f);
  writeln(f,'текст');
  closefile(f); // этого то не было
end;

@Venteux 7 / 7 / 0 Регистрация: 19.09.2010 Сообщений: 21
		1
	Не могу записать в файл 18.01.2011, 22:44. Показов 1739. Ответов 5 Метки нет (Все метки) Доброго времени суток. Не могу осуществить запись в текстовый файл. Ошибок никаких не выдаёт, но текст не записывается. Никто не знает из-за чего это может быть? 0

@dampir_sanek 152 / 150 / 44 Регистрация: 09.02.2010 Сообщений: 407
	18.01.2011, 22:53	2
	Venteux, код в студию! 0

@dampir_sanek 152 / 150 / 44 Регистрация: 09.02.2010 Сообщений: 407
	18.01.2011, 23:01	4
	расширение у файла исправь на txt, то есть katalog.txt. 0

@Venteux 7 / 7 / 0 Регистрация: 19.09.2010 Сообщений: 21
	18.01.2011, 23:16 [ТС]	5
	Ничего не изменилось. А есть разница в расширении при записи? При чтении из файла такой разницы нет. Просто мне бы желательно не txt файлик в итоге иметь. Добавлено через 11 минут Всё, разобралась. CloseFile(f); нужно дописать в конце 0

	18.01.2011, 23:17