//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UnitFilm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormFilm *FormFilm;
struct filmtype
{
char titel [41];
char medvirkende [81];
char leverand [41];
char pris [11];
char lager [11];
int genre;
bool pillet;
};
filmtype film [5000];
int nr,nrmax,nrgem;
bool oprettelse;
void nulstil_film()
{
strcpy(film[nr] .titel, "");
strcpy(film[nr] .medvirkende, "");
strcpy(film[nr] .leverand, "");
strcpy(film[nr] .pris, "");
strcpy(film[nr] .lager, "");
film[nr] .genre=0;
film[nr] .pillet=false;
}
void skriv_film()
{
fstream filmfil;
filmfil.open("SFILM.DAT", ios::binary | ios::out | ios::trunc);
int w=0;
while (w<=nrmax)
{
film[w] .pillet=false
filmfil .write((char*)&film[w], sizeof(filmtype));
w++;
}
filmfil.close();
}
void til_skaerm()
{
FormFilm->EditTitel->Text=film[nr] .titel;
FormFilm->EditMedvirkende->Text=film[nr] .medvirkende;
FormFilm->EditLeverand->Text=film[nr] .leverand;
FormFilm->EditPris->Text=film[nr] .pris;
FormFilm->ComboBoxGenre->ItemIndex=film[nr].genre;
}
void fra_skaerm()
{
char* tex=new char[81];
FormFilm->EditTitel->GetTextBuf(tex,41);
strcpy(film[nr] .titel,tex);
FormFilm->EditMedvirkende->GetTextBuf(tex,81);
strcpy(film[nr] .medvirkende,tex);
FormFilm->EditLeverand->GetTextBuf(tex,41);
strcpy(film[nr] .leverand,tex);
FormFilm->EditPris->GetTextBuf(tex,11);
strcpy(film[nr] .pris,tex);
FormFilm->EditLager->GetTextBuf(tex,11);
strcpy(film[nr] .lager,tex);
film[nr] .genre=FormFilm->ComboBoxGenre->ItemIndex;
}
void luk_skaerm()
{
FormFilm->EditTitel->Enabled=false;
FormFilm->EditMedvirkende->Enabled=false;
FormFilm->EditLeverand->Enabled=false;
FormFilm->EditPris->Enabled=false;
FormFilm->EditLager->Enabled=false;
FormFilm->ComboBoxGenre->Enabled=false;
FormFilm->ButtonForste->Visible=true;
FormFilm->ButtonNaeste->Visible=true;
FormFilm->ButtonTilbage->Visible=true;
FormFilm->ButtonOpret->Visible=true;
FormFilm->ButtonRet->Visible=true;
FormFilm->ButtonSlet->Visible=true;
FormFilm->ButtonOversigt->Visible=true;
FormFilm->ButtonHtml->Visible=true;
FormFilm->ButtoneExit->Visible=true;
FormFilm->ButtonOk->Visible=false;
FormFilm->ButtonFortryd->Visible=false;
}
void aaben_skaerm()
{
FormFilm->EditTitel->Enabled=true;
FormFilm->EditMedvirkende->Enabled=true;
FormFilm->EditLeverand->Enabled=true;
FormFilm->EditPris->Enabled=true;
FormFilm->EditLager->Enabled=true;
FormFilm->ComboBoxGenre->Enabled=true;
FormFilm->ButtonForste->Visible=false;
FormFilm->ButtonNaeste->Visible=false;
FormFilm->ButtonTilbage->Visible=false;
FormFilm->ButtonOpret->Visible=false;
FormFilm->ButtonRet->Visible=false;
FormFilm->ButtonSlet->Visible=false;
FormFilm->ButtonOversigt->Visible=false;
FormFilm->ButtonHtml->Visible=false;
FormFilm->ButtoneExit->Visible=false;
FormFilm->ButtonOk->Visible=true;
FormFilm->ButtonFortryd->Visible=true;
}
//---------------------------------------------------------------------------
__fastcall TFormFilm::TFormFilm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormFilm:
uttoneExitClick(TObject *Sender)
{
FormFilm->Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormFilm::FormCreate(TObject *Sender)
{
nrmax=-1;
nr=0;
nulstil_film();
til_skaerm();
luk_skaerm();
}
//---------------------------------------------------------------------------
void __fastcall TFormFilm:
uttonRetClick(TObject *Sender)
{
nrgem=nr;
oprettelse=false;
aaben_skaerm();
}
//---------------------------------------------------------------------------
void __fastcall TFormFilm:
uttonFortrydClick(TObject *Sender)
{
if (oprettelse) nrmax--;
nr=nrgem;
til_skaerm();
luk_skaerm();
}
//---------------------------------------------------------------------------
void __fastcall TFormFilm:
uttonOkClick(TObject *Sender)
{
fra_skaerm();
til_skaerm();
luk_skaerm();
}
//---------------------------------------------------------------------------
void __fastcall TFormFilm:
uttonOpretClick(TObject *Sender)
{
nrmax++;
if (nrmax>4999)
{
nrmax--;
return;
}
nrgem=nr;
oprettelse=true;
nr=nrmax;
nulstil_film();
til_skaerm();
aaben_skaerm();
}
//---------------------------------------------------------------------------
void __fastcall TFormFilm:
uttonForsteClick(TObject *Sender)
{
nr=0;
til_skaerm();
}
//---------------------------------------------------------------------------
void __fastcall TFormFilm:
uttonNaesteClick(TObject *Sender)
{
nr++;
if (nr>nrmax)nr=0;
til_skaerm();
}
//---------------------------------------------------------------------------
void __fastcall TFormFilm:
uttonTilbageClick(TObject *Sender)
{
nr--;
if(nr<0) nr=nrmax;
til_skaerm();
}
//---------------------------------------------------------------------------
Dette er min kode pt. -husk jeg er ny.
Og slet ikke færdig.
Men kan du se hvorfor den kommer med den fejl jeg har illustreret på billedet?