zaznam delphi

feromakovi

zdravim, zakladna struktura je .....type....procedury..funkcie...private...public...end;

tak ja som si chcel nadeklarovat Tzaznam = record
bla,bla:integer;
blu,blu:string;
end;
len mi to nikde neslo tak hned za endom som napisal dalsie type dalej ten moj Tzaznam a end.
potom mi to uz fungovalo...(neviem ci to je spravne, mozno sa to tak nerobi a ak teda nie tak poprosim napisat ako teda.)

no a vo var som deklaroval:
var jeden:Tzaznam;
subor:file of Tzaznam;
no a toto var mi hlasi chybu ja som tak zvyknuty z pascalu a v delphi mi to nefunguje...
prisim teda o radu ako spravne zadeklarovat subror na disk ktory by bol napr firma.opr a boli by v nom len premenne typu Tzaznam...
a myslimze by som k nim potom pristupoval ze read(subor,jeden);
a takisto write(subor,jeden);
ak sa v tom mylim tak ma prosim opravte... dakujem kazdemu kto poradi

ukáž normálne kod čo máš. Kto sa má v tomto orientovať?

feromakovi

nemal som to vcera so sebou tak preto. ani dnes to nemam ale sak napodobnim situaciu:

Kód: Vybrať všetko

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Clear: TButton;
    Edit1: TEdit;
    Image1: TImage;
    Koniec: TButton;
    StaticText1: TStaticText;
    Stlac: TButton;
    procedure ClearClick(Sender: TObject);
    procedure KoniecClick(Sender: TObject);
    procedure StlacClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 



type Tzaznam = record
alfa,beta:integer;
gamma,delta:string;
end;



var
  Form1: TForm1; 
  i,j:longint;
jeden:Tzaznam;


subor:file of Tzaznam;


implementation
.
.
.

starosti mi robi to co je tam odsadene o 2 riadky. ci vlastne to type ma byt tam kde je a ako mam zadeklarovat ten subor ked hentak mi to nefunguje.

pato1abc

niesom si istý ale pokiaľ viem type stačí/má byť iba raz && inač z hladiska čisto pascalu je to ok

Edit: šak som povedal, že to má dobre !

nač z hladiska čisto pascalu je to ok

máš to v poriadu (radu nadomnou ^ si nevšímaj). Problém je v tom, že nemôžeš ten typ používať v súbore, lebo nemá presne stanovenú veľkosť. Je v ňom dynamická premenná (ten string). Musíš mu definovať maximálnu dlžku, nejak takto:

Kód: Vybrať všetko

type TZaznam = record
   alfa,beta:integer;
   gamma,delta:string[50];
end;

(Takto definovať dlžku stringu bežne netreba, iba keď ten typ používaš v typovom súbore)