Скачать: CL | DM;

работа с записями в delphi   Найти похожие ветки 

← →
FIL-23 ©   (2006-12-23 21:39) [0]

такая проблема длефяк не воспринимает следующий код:

type
TnewFil=record
Fnum:string;
Fvopros:string;
Fotvet1:string;
Fotvet2:string;
Fotvet3:string;
Fotvet4:string;
end;

 TForm1 = class(TForm)
   SpinEdit1: TSpinEdit;
   Memo1: TMemo;
   Memo2: TMemo;
   Memo3: TMemo;
   Memo4: TMemo;
   Memo5: TMemo;
   Button1: TButton;
   Memo6: TMemo;
   Memo7: TMemo;
   Memo8: TMemo;
   Memo9: TMemo;
   Memo10: TMemo;
   Memo11: TMemo;
   procedure FormCreate(Sender: TObject);
   procedure Button1Click(Sender: TObject);

 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
f:file of TnewFil;
n:TnewFil;


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

---

← →
Kolan ©   (2006-12-23 21:44) [1]

«string;»

Наверно дело в этом. Длинна неизветсна.

---

← →
Anatoly Podgoretsky ©   (2006-12-23 21:45) [2]

> FIL-23  (23.12.2006 21:39:00)  [0]

А зачем ты привел определение класса TForm1?
А какого типа у тебя string - видимо AnsiString, смени на ShortString и тогда можно будет создавать такой тип файла, а так какой смысл записывать указатель в файл?

---

← →
FIL-23 ©   (2006-12-23 21:58) [3]

спасибо за мысль на счет string..... я тут попробовал и в самом деле в нем дело оказалось ..... но..... мне надо записать не 256 символо же :)  поэтому я сделал так {$h-}

---

← →
Palladin ©   (2006-12-23 22:00) [4]

^)) в орешник

---

← →
Anatoly Podgoretsky ©   (2006-12-23 22:00) [5]

> FIL-23  (23.12.2006 21:58:03)  [3]

В таком случае отказывайся от типизированого файла.

---

← →
Gero ©   (2006-12-23 23:48) [6]

> [3] FIL-23 ©   (23.12.06 21:58)
> поэтому я сделал так {$h-}

Зачем ты так сделал?

---

← →
Германн ©   (2006-12-24 02:11) [7]

> Gero ©   (23.12.06 23:48) [6]
>
> > [3] FIL-23 ©   (23.12.06 21:58)
> > поэтому я сделал так {$h-}
>
> Зачем ты так сделал?
>

Имхо, "грубая" реализация совета в [2].

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c