Im trying to create either a random or a serial access file (either will do) but after writing the code and it being compiled no problem, the program will create the file but will not enter the information into the file.
My serial file code is written below:
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
TForm1 = class(TForm)
procedure bttn_createClick(Sender: TObject);
procedure bttn_exitClick(Sender: TObject);
wrestler_type = record
wrestler_file :file of wrestler_type;
count := 1;
wrestler_rec.wrestler_number := count;
wrestler_rec.stage_name := 'Empty';
wrestler_rec.card_status := 1;
wrestler_rec.belt_status := 'N';
count := count + 1;
until count = 99;
procedure TForm1.bttn_createClick(Sender: TObject);
procedure TForm1.bttn_exitClick(Sender: TObject);
The file "wrestlers.dat" is created but with none of the information inputted.
This problem is really starting to annoy me now, lol, so any help you can give me would be appreciated.
p.s I'm upgrading from TP7 which is probably the reason I can't see the problem