Число из файла не присваивается переменной

Nicoman · #1 13.05.2008, 09:02

программа выглядит примерно так:

Код:

unit Unit4;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,UnitGl, ComCtrls, Buttons, ExtCtrls, Grids;
 
type
  TForm4 = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    Button5: TButton;
    Bevel1: TBevel;
    Button6: TButton;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
  Work:TMain1;
 
implementation
 
{$R *.dfm}
 
procedure TForm4.Button1Click(Sender: TObject);
begin
 If OpenDialog1.Execute Then
  Begin
   Work:=TMain1.Create(OpenDialog1.FileName);
  End;
end;
 
procedure TForm4.Button2Click(Sender: TObject);
begin
 work.polniispis(StringGrid1);
end;
 
end.
 
unit UnitGl;
 
interface
 
Uses Dialogs,StdCtrls,SysUtils,grids;
 
type
TData=record
 day:1..31;
 month:1..12;
 year:Integer;
end;
 
TOcheredniki=record
 fam:String;
 name:String;
 otch:String;
 plosh:Integer;
 kol:Byte;
 srok:TData;
 staj:TData;
end;
 
TMain=class
 protected
  NameFile:String;
  l:Integer;
  D:Array Of TOcheredniki;
 public
  Constructor Create(UnitFile:String);
  Destructor Destroy; override;
  Procedure polniispis(StrGr:TStringGrid);
end;
 
TMain1=class(TMain)
 published
  Constructor Create(UnitFile:String);
  Destructor Destroy; override;
end;
 
implementation
 Constructor TMain.Create(UnitFile:String);
  Var f:TextFile;
      i:Integer;
      s:String;
  begin
   NameFile:=UnitFile;
   AssignFile(f,UnitFile);
   Reset(f);
   ReadLn(f,l); {Вот здесь переменная l ничего не считывает и    получается= 0}
   SetLength(d,l);
   For i:=1 To l Do
    Begin
     ReadLn(f,d[i].fam);
     ReadLn(f,d[i].name);
     ReadLn(f,d[i].otch);
     ReadLn(f,d[i].plosh);
     ReadLn(f,d[i].kol);
     ReadLn(f,d[i].srok.day,d[i].srok.month,d[i].srok.year);
     ReadLn(f,d[i].staj.day,d[i].staj.month,d[i].staj.year);
    End;
   CloseFile(f);
  end;
 
  Procedure TMain.polniispis(StrGr:TStringGrid);
   var i:Integer;
   begin
    StrGr.RowCount:=l;
      For i:=1 To l Do
   end;
 
  Destructor TMain.Destroy;
   begin
   end;
  Constructor TMain1.Create(UnitFile:String);
   begin
   end;
  Destructor TMain1.Destroy;
   begin
   end;
end.

Так программа запускается, работает, но l = 0.
В текстовом файле в самом начале стоит число не равное 0.
Помогите плиз, если знаете в чем дело...

Aristarh Dark: пользуемся тэгами!!!

SedmoiDemon · #2 13.05.2008, 09:35

Друг, я если честно чайник, может чего не понимаю, но "Reset(f)"-это вроде при записи файла, при чтении используется вроде "rewrite(f)"... еще так и не увидел указа позиции(вроде "seek")... но эти методы я использовал, заменив "f:TextFile" на "f:file of byte", так что извени если не посуществу совет

Thrasher · #3 13.05.2008, 09:53

Во-первых, зачем использовать TextFile для структурных данных?
Во-вторых, если объявил TextFile, то будь добр и читай/пиши только строковые переменные, а потом их преобразовывай.

voron_paa · #4 13.05.2008, 10:24

Цитата:

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

"Reset(f)"-это вроде при записи файла, при чтении используется вроде "rewrite(f)"

Наоборот...

Погоди минитут 15 сейчас свой вариант брошу...
Ты с классами напутал...

Nicoman · #5 13.05.2008, 10:26

да пробовал я и строковые переменные, но один фиг получается 0

voron_paa · #6 13.05.2008, 10:45

Цитата:

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

да пробовал я и строковые переменные, но один фиг получается 0

Код:

сonstructor TMain.Create(UnitFile:String);
  Var f:TextFile;
      i:Integer;
      s:String;
  begin
   <font color="Red">inherited Create;</font>
   NameFile:=UnitFile;
   AssignFile(f,UnitFile);
   Reset(f);
   ReadLn(f,l); {Вот здесь переменная l ничего не считывает и    получается= 0}
   SetLength(d,l);
   For i:=1 To l Do
    Begin
     ReadLn(f,d[i].fam);
     ReadLn(f,d[i].name);
     ReadLn(f,d[i].otch);
     ReadLn(f,d[i].plosh);
     ReadLn(f,d[i].kol);
     ReadLn(f,d[i].srok.day,d[i].srok.month,d[i].srok.year);
     ReadLn(f,d[i].staj.day,d[i].staj.month,d[i].staj.year);
    End;
   CloseFile(f);
  end;

Измени код конструктора... срузу не заметил ...

К стати брось исходник... может если так не пройдёт в нём покапаемся ... хотя если чесно ты перемудрил...

Можно гораздо короче и проще сделать..

Nicoman · #7 13.05.2008, 11:48

Все равно не помогает, опять ноль выводит... А насчет исходника, то я почти все скинул (самое главное)

The Shadow · #8 13.05.2008, 11:52

Код:

var
f: File of Integer;
i: Byte;
begin
AssignFile(f, '1.txt');
Reset(f);
Read(f, i);
CloseFile(f);
end;

Разве так не работает?

Nicoman · #9 13.05.2008, 11:59

мне нельзя fail of integer, там еще есть и текстовые значения (дальше)...

The Shadow · #10 13.05.2008, 12:00

Код:

var
f: file of TMyRecord; //В типе-записи нельзя использовать строки String, замени их на PChar или String[макс. длина строки]

Nicoman · #11 13.05.2008, 12:01

плюс к тому же в AssignFile сначала идет переменная, а потом файл

Nicoman · #12 13.05.2008, 12:03

Цитата:

Сообщение от The Shadow

Код:

var
f: file of TMyRecord; //В типе-записи нельзя использовать строки String, замени их на PChar или String[макс. длина строки]

если можно, то поподробнее, а то есть много вопросов

The Shadow · #13 13.05.2008, 12:12

Код:

TData=record
 day:1..31;
 month:1..12;
 year:Integer;
end;
 
TOcheredniki=record
 fam:String[50];
 name:String[30];
 otch:String[50];
 plosh:Integer;
 kol:Byte;
 srok:TData;
 staj:TData;
end;
var
Ocheredniki: TOcheredniki;
f: file of TOcheredniki;
begin
AssignFile(f, 'x.txt');
Reset(f);
Read(f, Ocheredniki);
//
CloseFile(f);
end;
end;

Я сразу на форуме писал, поэтому ошибся.

Nicoman · #14 13.05.2008, 12:26

Так тоже не пойдет... Мне надо из файла для начала вытащить только одно число, оно стоит в самом начале. Мне кажется, что ошибка где-то в объявлении конструктора или в
procedure TForm4.Button1Click(Sender: TObject);
begin
If OpenDialog1.Execute Then
Begin
Work:=TMain1.Create(OpenDialog1.FileName);
End;
end;

если l присваивать например 10, то дальше программа работает нормально

Nicoman · #15 13.05.2008, 12:50

Если что, то вот ссылка на исходник: http://ifolder.ru/6539624

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты