Открывает пустой файл

@Павел А. · Регистрация: 16.05.2012

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

Добрый день. Помогите пожалуйста поправить.
Есть типизированный файл, в него пишем всякое (ниже код). При запуске всё работает, сохраняет и загружает из файла, но если прогу закрыть и пытаться потом открыть файл, то там пусто. Почему?

Delphi

type
  TFall = class
    fnum: string;
    fdate: tdate;
    fuser: string;
    fsum: integer;
    constructor Create(num:string; date:tdate; user:string; sum:integer);
 end;
var
  Form1: TForm1;
  aas: Tfall;
  bbs: TFall;
  f: file of TFall;
  fr: file of TFall;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 if SaveDialog1.Execute then
  begin
   AssignFile(f,SaveDialog1.FileName);
   Rewrite(f);
   Write(f,aas);
   closefile(f);
  end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
  begin
   AssignFile(fr,OpenDialog1.FileName);
   Reset(fr);
   while not Eof(fr) do
    begin
   Read(fr,bbs);
   Memo1.Lines.Add('User is '+bbs.fuser);
   end;
   closefile(fr);
  end;

@Arcor · 17.05.2012, 01:11

тут что-то похоже на работу с текстовым файлом, а не типизированным, хотя файл как типизированный объявлен... Почитай про типизированный файл сперва, как с ним работать

и что значит

Сообщение от Павел А.

но если прогу закрыть и пытаться потом открыть файл, то там пусто. Почему?

? Всмысле открыть как текстовый?

@volvo · 17.05.2012, 01:53

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

Всмысле открыть как текстовый?

Какая разница, как открыть?

Он же класс пишет, а не запись. И будет записано в файле 4 байта - указатель на экземпляр класса, который был по этому адресу при работе программы

Что будет по записанному адресу при следующем запуске - кто его знает...

@Arcor · 17.05.2012, 01:56

я имел ввиду вопрос как открыть !
программно -> связать с программой
или двойной клик мышки и открыть "как текстовый"

что имеется ввиду у ТС под этим вопросом ???

Одиночка · 17.05.2012, 04:28

Я, вообще, вижу, что чтение происходит в переменную bbs, а запись в файл из переменной aas. Может, правда aas где-то в другом месте заполняется?

@Павел А. · 17.05.2012, 09:33 **[ТС]**

Впринципе я переменную bbs ввёл для эксперемента, а так всё время работал только с aas. Было тоже самое.

Добавлено через 7 минут

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

Какая разница, как открыть?

Он же класс пишет, а не запись. И будет записано в файле 4 байта - указатель на экземпляр класса, который был по этому адресу при работе программы

Что будет по записанному адресу при следующем запуске - кто его знает...

Я это смуто конечно понимаю, что это указатель, только вот как это поправить? Уже три дня бьюсь, аж злость берёт.

Сообщение от Arcor;

я имел ввиду вопрос как открыть !
программно -> связать с программой
или двойной клик мышки и открыть "как текстовый"

что имеется ввиду у ТС под этим вопросом ???

Открываю в программе:

Delphi

procedure TForm1.Button3Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
  begin
   AssignFile(fr,OpenDialog1.FileName);
   Reset(fr);
   while not Eof(fr) do
    begin
   Read(fr,bbs);
   Memo1.Lines.Add('User is '+bbs.fuser);
   end;
   closefile(fr);
  end;

Одиночка · 17.05.2012, 09:41

А чего эту TFall нельзя было объявить просто как Record?

@Павел А. · 17.05.2012, 09:59 **[ТС]**

TFall является родителем ещё для пару классов, я их тут не указал

Одиночка · 17.05.2012, 10:25

Я в таком варианте не работал с типизированными файлами. Тебе нужно сохранить значения этих переменных. Озвучь задачу. Может это можно решить по другому.
Ну, попробуй поставить перед переменной знак @ при сохранении и восстановлении. А я сейчас гляну, как сохранял свойства компонент.

Не по теме:

И, если не в курсе. Обновляй, периодически, окно, если не выходишь из темы. Иначе не увидишь, когда выложат ответ.

Добавлено через 17 минут
Если наследовать этот класс от TComponent, то можно использовать функции ReadComponentResFile и WriteComponentResFile. Если нужно, напишу подробнее. Правда он сохраняет не в текстовом виде. Нечитабельно. Но я с этим работал и могу рассказать.

@Павел А. · 17.05.2012, 11:05 **[ТС]**

Сообщение от Одиночка

Я в таком варианте не работал с типизированными файлами. Тебе нужно сохранить значения этих переменных. Озвучь задачу. Может это можно решить по другому.
Ну, попробуй поставить перед переменной знак @ при сохранении и восстановлении. А я сейчас гляну, как сохранял свойства компонент.

Добавлено через 17 минут
Если наследовать этот класс от TComponent, то можно использовать функции ReadComponentResFile и WriteComponentResFile. Если нужно, напишу подробнее. Правда он сохраняет не в текстовом виде. Нечитабельно. Но я с этим работал и могу рассказать.

Задача:
Есть два документа, платёжка и накладная (поля уних почти одинаковые, у платёжки добавленно одно и убоанно три). Выбираем, что заполняем потом заполняем поля и сразу выводим в Memo. Затем сохраняем текущий документ. При загрузке файла в Memo опять выводим данные.

Вроде всё просто, и заполняет и выводит и т.д. Но при закрытие прогии и последующем открытии ничего не выводит. Я так понимаю, что при работе проги создаётся как бы ссылка на объкет (поэтому до закрытия проги всё пишется и читается в/из файла) и в файле тоько ссылка сохраняется, а приповторной загрузке в области памяти куда ссылка обращается уже фиг знает что. Вот и назрел вопрос, а как бы мне непосредственно данные в файл пихнуть?
Если надо могу всю прогу кинуть.

Одиночка · 17.05.2012, 11:15

Сообщение от Павел А.

Задача:
Есть два документа, платёжка и накладная (поля уних почти одинаковые, у платёжки добавленно одно и убоанно три). Выбираем, что заполняем потом заполняем поля и сразу выводим в Memo. Затем сохраняем текущий документ. При загрузке файла в Memo опять выводим данные.

Как-то не очень понятно. Прогу могу только завтра посмотреть.
Ты хочешь сказать, что хранишь данные в этой переменной, описанного тобой класса. Но там только на одну запись. Если только эти 4 параметра нужно сохранить, так это преобразовать и кинуть в текстовый файл - раз плюнуть. Чего-то я не понимаю.

@Павел А. · 17.05.2012, 11:24 **[ТС]**

Вот вся прога:

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TFall = class
    fnum: string;
    fdate: tdate;
    fuser: string;
    fsum: integer;
    constructor Create(num:string; date:tdate; user:string; sum:integer);
 end;
 
type
  TNaklad = class(TFall)
    fmon: string;
    fcur: string;
    ftov: string;
    fcount: integer;
    constructor Create(num:string; date:tdate; user:string; sum:integer; mon:string; cur:string; tov:string; count:integer);
    end;
 
type
  TPay = class(TFall)
    fwrk: string;
    constructor Create(num:string; date:tdate; user:string; sum:integer; wrk:string);
  end;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    CheckBox1: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  aa: array[1..10] of Tfall;
  bb: array[1..10] of Tfall;
  c: integer=0;
  aas: Tfall;
  bbs: TFall;
  f: file of TFall;
  fr: file of TFall;
implementation
 
{$R *.dfm}
constructor TFall.Create(num:string; date:tdate; user:string; sum:integer);
begin
inherited Create;
fnum:=num;
fdate:=date;
fuser:=user;
fsum:=sum;
end;
 
constructor TNaklad.Create(num:string; date:tdate; user:string; sum:integer; mon:string; cur:string; tov:string; count:integer);
begin
inherited Create(num, date, user, sum);
fmon:=mon;
fcur:=cur;
ftov:=tov;
fcount:=count;
end;
 
constructor TPay.Create(num:string; date:tdate; user:string; sum:integer; wrk:string);
begin
inherited Create(num, date, user, sum);
fwrk:=wrk;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 if CheckBox1.Checked then
  begin
   aas:=TNaklad.Create(Edit1.Text, StrToDate(Edit2.Text), Edit3.Text, StrToInt(Edit4.Text), Edit5.Text, Edit6.Text, Edit7.Text, StrToInt(Edit8.Text));
   Memo1.Lines.Add('Накладная Номер '+aas.fnum+' от '+DateToStr(aas.fdate));
 
 //   aa[c]:=TNaklad.Create(Edit1.Text, StrToDate(Edit2.Text), Edit3.Text, StrToInt(Edit4.Text), Edit5.Text, Edit6.Text, Edit7.Text, StrToInt(Edit8.Text));
//   Memo1.Lines.Add('Накладная Номер '+aa[c].fnum+' от '+DateToStr(aa[c].fdate));
  end
   else
    begin
    aas:=TPay.Create(Edit1.Text, StrToDate(Edit2.Text), Edit3.Text, StrToInt(Edit4.Text), Edit5.Text);
    Memo1.Lines.Add('Платёжка Номер '+aas.fnum+' от '+DateToStr(aas.fdate));
    end;
   c:=c+1;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 if SaveDialog1.Execute then
  begin
   AssignFile(f,SaveDialog1.FileName);
   Rewrite(f);
   Write(f,aas);
   closefile(f);
  end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
  begin
   AssignFile(fr,OpenDialog1.FileName);
   Reset(fr);
   while not Eof(fr) do
    begin
   Read(fr,bbs);
   Memo1.Lines.Add('User is '+bbs.fuser);
   end;
   closefile(fr);
  end;
end;
 
end.

@antikiler_ · 17.05.2012, 11:54

Сообщение от Одиночка

Если нужно, напишу подробнее.

Напиши

Одиночка · 17.05.2012, 12:25

Мне нужно было сохранять параметры DbGrid-а, которые в работе изменял пользователь.
Вот модуль компоненнта:

Delphi

UNIT SetUpCollect;
{##########################################################################}
{#                                                                        #}
{#  МОДУЛЬ НАКОПЛЕНИЯ НАСТРОЕК ПРОГРАММЫ ДЛЯ СОХРАНЕНИЯ И ВОССТАНОВЛЕНИЯ  #}
{#                                                                        #}
{##########################################################################}
 
                               INTERFACE
 
{--------------------------------------------------------------------------}
USES
  Windows, Forms, Classes, Graphics, Buttons, ImgList, ExtCtrls, SysUtils,
  DBGrids;
 
TYPE
  TComponentForSetUp = CLASS(TComponent)
  PRIVATE
    FDBGridFont3 : TFont;
 FDBGridColumns3 : TDBGridColumns;
    FDBGridFont5 : TFont;
 FDBGridColumns5 : TDBGridColumns;
    FDBGridFont1 : TFont;
 FDBGridColumns1 : TDBGridColumns;
  PUBLIC
    CONSTRUCTOR Create(AOwner:TComponent); OVERRIDE;
    DESTRUCTOR Destroy; OVERRIDE;
  PUBLISHED
    {Данные DBGrid справочника рецептов}
    PROPERTY DBGridFont3 : TFont
      READ FDBGridFont3 WRITE FDBGridFont3;
    PROPERTY DBGridColumns3 : TDBGridColumns
      READ FDBGridColumns3 WRITE FDBGridColumns3;
    {Данные DBGrid вкладки "Отчёт"}
    PROPERTY DBGridFont5 : TFont
      READ FDBGridFont5 WRITE FDBGridFont5;
    PROPERTY DBGridColumns5 : TDBGridColumns
      READ FDBGridColumns5 WRITE FDBGridColumns5;
    {Данные DBGrid вкладки "Расход"}
    PROPERTY DBGridFont1 : TFont
      READ FDBGridFont1 WRITE FDBGridFont1;
    PROPERTY DBGridColumns1 : TDBGridColumns
      READ FDBGridColumns1 WRITE FDBGridColumns1;
  END; {TComponentForSetUp}
 
PROCEDURE Register;
 
VAR
  SetUpCompCollect : TComponentForSetUp;
 
{--------------------------------------------------------------------------}
 
                             IMPLEMENTATION
 
{--------------------------------------------------------------------------}
 
CONSTRUCTOR TComponentForSetUp.Create(AOwner:TComponent);
BEGIN
  INHERITED;
  DBGridFont3:=TFont.Create;
  DBGridColumns3:=TDBGridColumns.Create(NIL,TColumn);
  DBGridFont5:=TFont.Create;
  DBGridColumns5:=TDBGridColumns.Create(NIL,TColumn);
  DBGridFont1:=TFont.Create;
  DBGridColumns1:=TDBGridColumns.Create(NIL,TColumn);
END; {TComponentForSetUp.Create}
{**************************************************************************}
DESTRUCTOR TComponentForSetUp.Destroy;
BEGIN
  DBGridFont3.Destroy;
  DBGridColumns3.Destroy;
  DBGridFont5.Destroy;
  DBGridColumns5.Destroy;
  DBGridFont1.Destroy;
  DBGridColumns1.Destroy;
  INHERITED;
END; {TComponentForSetUp.Destroy}
{**************************************************************************}
PROCEDURE Register;
BEGIN
  RegisterClass(TComponentForSetUp);
END;
 
END.

Вот сохранение:

Delphi

PROCEDURE TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
BEGIN
    {Сохранить настройки DBGrid-ов}
    SetUpCompCollect.DBGridFont3.Assign(Form1.DBGrid3.Font);
    SetUpCompCollect.DBGridColumns3.Assign(Form1.DBGrid3.Columns);
    SetUpCompCollect.DBGridFont5.Assign(Form1.DBGrid5.Font);
    SetUpCompCollect.DBGridColumns5.Assign(Form1.DBGrid5.Columns);
    SetUpCompCollect.DBGridFont1.Assign(Form1.DBGrid1.Font);
    SetUpCompCollect.DBGridColumns1.Assign(Form1.DBGrid1.Columns);
    WriteComponentResFile('Data\MySetUp.dat',SetUpCompCollect);
END;

А вот восстановление:

Delphi

PROCEDURE TForm1.FormCreate(Sender: TObject);
BEGIN
  SetUpCompCollect:=TComponentForSetUp.Create(Self);
  {Восстановить настройки DBGrid-ов}
  IF FileExists('Data\MySetUp.dat') THEN
  BEGIN
    {Сначала взять исходные настройки}
    SetUpCompCollect.DBGridFont3.Assign(Form1.DBGrid3.Font);
    SetUpCompCollect.DBGridColumns3.Assign(Form1.DBGrid3.Columns);
    SetUpCompCollect.DBGridFont5.Assign(Form1.DBGrid5.Font);
    SetUpCompCollect.DBGridColumns5.Assign(Form1.DBGrid5.Columns);
    SetUpCompCollect.DBGridFont1.Assign(Form1.DBGrid1.Font);
    SetUpCompCollect.DBGridColumns1.Assign(Form1.DBGrid1.Columns);
 
    ReadComponentResFile('Data\MySetUp.dat',SetUpCompCollect);
 
    DBGrid3.Font.Assign(SetUpCompCollect.DBGridFont3);
    DBGrid3.Columns.Assign(SetUpCompCollect.DBGridColumns3);
    DBGrid5.Font.Assign(SetUpCompCollect.DBGridFont5);
    DBGrid5.Columns.Assign(SetUpCompCollect.DBGridColumns5);
    DBGrid1.Font.Assign(SetUpCompCollect.DBGridFont1);
    DBGrid1.Columns.Assign(SetUpCompCollect.DBGridColumns1);
  END;
END;

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

@antikiler_ · 17.05.2012, 13:12

Сообщение от Одиночка

Пока других предложений нет.

Или все-таки создать запись и записывать через нее. Как тут

Одиночка · 17.05.2012, 13:32

Ну а почему бы нет? Создать переменную с нужной записью, в неё записывать данные, а потом выгружать в файл.
Но, мне кажется, с моим вариантом проще. Если ничего больше не сохранять в компонент дополнительно, то там, фактически, только используешь процедуры чтения и записи WriteComponentResFile и ReadComponentResFile.

@Павел А. · 17.05.2012, 13:54 **[ТС]**

Сделал как ты советовал через WriteComponentResFile и ReadComponentResFile:

Delphi

  type
  TFall = class (TComponent)
   public
    fnum: string;
    fdate: tdate;
    fuser: string;
    fsum: integer;
    constructor Create(num:string; date:tdate; user:string; sum:integer);
 end;
{--всякое---}
constructor TFall.Create(num:string; date:tdate; user:string; sum:integer);
begin
//inherited Create;
fnum:=num;
fdate:=date;
fuser:=user;
fsum:=sum;
end;
{------}
procedure TForm1.Button2Click(Sender: TObject);
begin
 if SaveDialog1.Execute then
  begin
  WriteComponentResFile(SaveDialog1.FileName,aas);
{   AssignFile(f,SaveDialog1.FileName);
   Rewrite(f);
   Write(f,aas);
   closefile(f);}
  end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
  begin
  ReadComponentResFile(OpenDialog1.FileName,aas);
{   AssignFile(fr,OpenDialog1.FileName);
   Reset(fr);
   while not Eof(fr) do
    begin
   Read(fr,bbs);}
   Memo1.Lines.Add('User is '+aas.fuser);
  { end;
   closefile(fr);}
  end;
end;

Всё равно так же как и было, т.е. сохраняет и загружает пока прогу не выключишь, но теперь при повторном открытии (при повторной загрузке проги) пишет мол класс такой то не найден (или класс одного документа или другого в зависимости от того что заполняешь).
Буду пробовать ч/з записи.

@antikiler_ · 17.05.2012, 14:10

Сообщение от Павел А.

но теперь при повторном открытии (при повторной загрузке проги) пишет мол класс такой то не найден

А ты класс перед открытием создавал?

Одиночка · 17.05.2012, 14:27

Delphi

  type
  TFall = class (TComponent)
   private
    Ffnum: string;
    Ffdate: tdate;
    Ffuser: string;
    Ffsum: integer;
 
   public
    Property fnum : string Read Ffnum Write Ffnum;
    Property fdate : tdate Read Ffdate Write Ffdate;
    Property fuser : string Read Ffuser Write Ffuser;
    Property fsum : integer Read Ffsum Write Ffsum;
 
    Procedure LoadData(num:string; date:tdate; user:string; sum:integer); 
 end;
 
PROCEDURE Register;
 
{--всякое---}
Procedure TFall.LoadData(num:string; date:tdate; user:string; sum:integer);
begin
  Ffnum:=num;
  Ffdate:=date;
  Ffuser:=user;
  Ffsum:=sum;
end;
{------}
procedure TForm1.Button2Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    WriteComponentResFile(SaveDialog1.FileName,aas);
{   AssignFile(f,SaveDialog1.FileName);
    Rewrite(f);
   Write(f,aas);
   closefile(f);}
  end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
  begin
  ReadComponentResFile(OpenDialog1.FileName,aas);
{   AssignFile(fr,OpenDialog1.FileName);
   Reset(fr);
   while not Eof(fr) do
    begin
   Read(fr,bbs);}
   Memo1.Lines.Add('User is '+aas.fuser);
  { end;
   closefile(fr);}
  end;
end;
//------------------------------------------
PROCEDURE Register;
BEGIN
  RegisterClass(TFall);
END;

Немного изменил:
Там где-нибудь напишешь:

Delphi

1 2	aas:=TFall.Create(Self); aas.LoadData(num,date,user,sum); //Со своими парамерами

@antikiler_ 1085 / 571 / 79 Регистрация: 07.04.2011 Сообщений: 971 Записей в блоге: 2
	17.05.2012, 14:10	18
	Сообщение от Павел А. но теперь при повторном открытии (при повторной загрузке проги) пишет мол класс такой то не найден А ты класс перед открытием создавал? 1

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	17.05.2012, 01:11	2
	тут что-то похоже на работу с текстовым файлом, а не типизированным, хотя файл как типизированный объявлен... Почитай про типизированный файл сперва, как с ним работать и что значит Сообщение от Павел А. но если прогу закрыть и пытаться потом открыть файл, то там пусто. Почему? ? Всмысле открыть как текстовый? 1

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,429 Записей в блоге: 8
	17.05.2012, 01:53	3
	Сообщение от Arcor Всмысле открыть как текстовый? Какая разница, как открыть? Он же класс пишет, а не запись. И будет записано в файле 4 байта - указатель на экземпляр класса, который был по этому адресу при работе программы Что будет по записанному адресу при следующем запуске - кто его знает... 1

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	17.05.2012, 01:56	4
	я имел ввиду вопрос как открыть ! программно -> связать с программой или двойной клик мышки и открыть "как текстовый" что имеется ввиду у ТС под этим вопросом ??? 1

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	17.05.2012, 04:28	5
	Я, вообще, вижу, что чтение происходит в переменную bbs, а запись в файл из переменной aas. Может, правда aas где-то в другом месте заполняется? 1

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	17.05.2012, 09:41	7
	А чего эту TFall нельзя было объявить просто как Record? 1

@Павел А. 0 / 0 / 0 Регистрация: 16.05.2012 Сообщений: 11
	17.05.2012, 09:59 [ТС]	8
	TFall является родителем ещё для пару классов, я их тут не указал 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	17.05.2012, 10:25	9
	Я в таком варианте не работал с типизированными файлами. Тебе нужно сохранить значения этих переменных. Озвучь задачу. Может это можно решить по другому. Ну, попробуй поставить перед переменной знак @ при сохранении и восстановлении. А я сейчас гляну, как сохранял свойства компонент. Не по теме: И, если не в курсе. Обновляй, периодически, окно, если не выходишь из темы. Иначе не увидишь, когда выложат ответ. Добавлено через 17 минут Если наследовать этот класс от TComponent, то можно использовать функции ReadComponentResFile и WriteComponentResFile. Если нужно, напишу подробнее. Правда он сохраняет не в текстовом виде. Нечитабельно. Но я с этим работал и могу рассказать. 2

@Павел А. 0 / 0 / 0 Регистрация: 16.05.2012 Сообщений: 11
	17.05.2012, 11:05 [ТС]	10
	Сообщение от Одиночка Я в таком варианте не работал с типизированными файлами. Тебе нужно сохранить значения этих переменных. Озвучь задачу. Может это можно решить по другому. Ну, попробуй поставить перед переменной знак @ при сохранении и восстановлении. А я сейчас гляну, как сохранял свойства компонент. Добавлено через 17 минут Если наследовать этот класс от TComponent, то можно использовать функции ReadComponentResFile и WriteComponentResFile. Если нужно, напишу подробнее. Правда он сохраняет не в текстовом виде. Нечитабельно. Но я с этим работал и могу рассказать. Задача: Есть два документа, платёжка и накладная (поля уних почти одинаковые, у платёжки добавленно одно и убоанно три). Выбираем, что заполняем потом заполняем поля и сразу выводим в Memo. Затем сохраняем текущий документ. При загрузке файла в Memo опять выводим данные. Вроде всё просто, и заполняет и выводит и т.д. Но при закрытие прогии и последующем открытии ничего не выводит. Я так понимаю, что при работе проги создаётся как бы ссылка на объкет (поэтому до закрытия проги всё пишется и читается в/из файла) и в файле тоько ссылка сохраняется, а приповторной загрузке в области памяти куда ссылка обращается уже фиг знает что. Вот и назрел вопрос, а как бы мне непосредственно данные в файл пихнуть? Если надо могу всю прогу кинуть. 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	17.05.2012, 11:15	11
	Сообщение от Павел А. Задача: Есть два документа, платёжка и накладная (поля уних почти одинаковые, у платёжки добавленно одно и убоанно три). Выбираем, что заполняем потом заполняем поля и сразу выводим в Memo. Затем сохраняем текущий документ. При загрузке файла в Memo опять выводим данные. Как-то не очень понятно. Прогу могу только завтра посмотреть. Ты хочешь сказать, что хранишь данные в этой переменной, описанного тобой класса. Но там только на одну запись. Если только эти 4 параметра нужно сохранить, так это преобразовать и кинуть в текстовый файл - раз плюнуть. Чего-то я не понимаю. 1

@antikiler_ 1085 / 571 / 79 Регистрация: 07.04.2011 Сообщений: 971 Записей в блоге: 2
	17.05.2012, 11:54	13
	Сообщение от Одиночка Если нужно, напишу подробнее. Напиши 0

@antikiler_ 1085 / 571 / 79 Регистрация: 07.04.2011 Сообщений: 971 Записей в блоге: 2
	17.05.2012, 13:12	15
	Сообщение от Одиночка Пока других предложений нет. Или все-таки создать запись и записывать через нее. Как тут 1

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	17.05.2012, 13:32	16
	Ну а почему бы нет? Создать переменную с нужной записью, в неё записывать данные, а потом выгружать в файл. Но, мне кажется, с моим вариантом проще. Если ничего больше не сохранять в компонент дополнительно, то там, фактически, только используешь процедуры чтения и записи WriteComponentResFile и ReadComponentResFile. 1

Открывает пустой файл

Решение