Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.
Another problem with my random or serial files
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 :o)
0 · ·