- annatext.serwis
- ksiazka telefoniczna abonentów ery
- ksiazka telefoniczna woj. podkarpackiego
- księgarnia taniej książki
- ksiazki telefoniczne.pl.
- książka inny świat
- ksiazka.telefoniczna.pl
- książka pojazdu cena
- książka ojciec chrzestny
- ksiazka tele adresowa
- książka detektyw kwiatkowski
- zanotowane.pl
- doc.pisz.pl
- pdf.pisz.pl
- ricofoto.xlx.pl
annatext.serwis
Temat: [Delphi] Blad ktorego nie potrafie nparawic
...DataWydania : string[15];
Cena : integer;
LiczbaStron : ShortInt;
Ocena : ShortInt;
Wypozyczono : integer;
Wypozyczajacy : string[60];
procedura odczytajOpisKsiazki (znajduje sie w module głównym) :
procedure odczytajOpisKsiazki(var Ksiazka : TKsiazka);
begin
Ksiazka.Tytul := MainForm.edTytul.Text;
Ksiazka.AutorImie := MainForm.edImieAutora.Text;
Ksiazka.AutorNazwisko := MainForm.edNazwiskoAutora.Text; Ksiazka.Opis := MainForm.memOpisKsizaki.Text;
Ksiazka.Wydawca := MainForm.edWydawaca.Text;
Ksiazka.ISBN := MainForm.edISBN.Text;
Ksiazka.IDKsiazaki := StrToInt(MainForm.edIDKsiazki.text);
end;
funckja dodajKsiazke (znjaduje sie w module Ksiazka) :
function DodajKsiazke(const Ksiazka : TKsiazka) : boolean;
var
i : integer;
begin
if liczbaKsiazek >= MAX_KSIAZKI-1 then //zmienna i stala globalne
DodajKsiazke :=false...
Źródło: forum.ks-ekspert.pl/index.php?showtopic=106900
