[url]http://www.nldelphi.com/forum/attachment.php?attachmentid=2483&stc=1[/url]
unit mi izgleda ovako:
unit untFrmCDManager;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, untCdData, untFrmCDManagerAdd, untFrmCDManagerChange;
type
TfrmCDMngr = class(TForm)
lstbxCD: TListBox;
scrollBarCD: TScrollBar;
edtJaarOpgave: TEdit;
lblJaarUitgave: TLabel;
mmBeschrijving: TMemo;
lblBeschrijving: TLabel;
lblTitel: TLabel;
btnAdd: TButton;
btnChange: TButton;
btnDelete: TButton;
btnPrint: TButton;
btnClose: TButton;
lblArtistTitel: TLabel;
procedure Start(Sender: TObject);
procedure btnCloseClick(Sender: TObject);
procedure btnAddClick(Sender: TObject);
procedure btnChangeClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmCDMngr: TfrmCDMngr;
frmCDMngrAdd: TfrmCDMngrAdd;
frmCDMngrChange: TfrmCDMngrChange;
implementation
{$R *.dfm}
procedure TfrmCDMngr.Start(Sender: TObject);
var
cdFile: file of TCdRecord;
cdManager: TCdRecord;
cdInfo: String;
begin
lstbxCD.Clear;
AssignFile (cdFile, 'CD.DAT');
try
Reset (cdFile);
while not Eof (cdFile)
do begin
Read (cdFile, cdManager);
cdInfo := cdManager.sArtistNamePart1 + ': '+ cdManager.sArtistNamePart2;
lstbxCD.Items.Add (cdInfo);
end;
CloseFile (cdFile)
except
ShowMessage ('File CD.DAT niet gevonden')
end
end;
procedure TfrmCDMngr.btnCloseClick(Sender: TObject);
begin
Close
end;
procedure TfrmCDMngr.btnAddClick(Sender: TObject);
begin
frmCDMngrAdd := TfrmCDMngrAdd.Create(Application);
frmCDMngrAdd.ShowModal;
end;
procedure TfrmCDMngr.btnChangeClick(Sender: TObject);
begin
frmCDMngrChange := TfrmCDMngrChange.Create(Application);
frmCDMngrChange.ShowModal;
end;
end.
CD.DAT postoji, ali u ovdje vidim da ga ne ucita.
U ovaj dio nikako ne udje (provjerila sam sa porukama (ShowMessage)): while not Eof (cdFile) do begin
Kako da rijesim ovaj problem.
Unaprijed hvala.