del delphi noriu paklaust ka blogai padariau?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtCtrls, StdCtrls;
type
stud=record
Vardas:string[15];
Pavarde:string[20];
Gimimodata:integer;
Slaptazodis:string[10];
Kurstudijuoji:string;
end;
masyvas = array [1..30] of stud;
TForm1 = class(TForm)
MainMenu1: TMainMenu;
valdymas1: TMenuItem;
Skolos1: TMenuItem;
Informacijaapiestudent1: TMenuItem;
Ijungtiprogram1: TMenuItem;
Prisijungti1: TMenuItem;
Atsijungti1: TMenuItem;
Registracija1: TMenuItem;
Panel1: TPanel;
Label1: TLabel;
ListBox1: TListBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Panel2: TPanel;
Label5: TLabel;
Button2: TButton;
ListBox2: TListBox;
Edit3: TEdit;
Edit4: TEdit;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Edit5: TEdit;
Label9: TLabel;
Edit6: TEdit;
Label10: TLabel;
Edit7: TEdit;
Label11: TLabel;
Label12: TLabel;
Edit8: TEdit;
Panel3: TPanel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Panel4: TPanel;
Label17: TLabel;
Panel5: TPanel;
Button3: TButton;
Label18: TLabel;
Label19: TLabel;
Button4: TButton;
Panel6: TPanel;
Label20: TLabel;
Label21: TLabel;
Button5: TButton;
Button6: TButton;
Panel7: TPanel;
procedure Prisijungti1Click(Sender: TObject);
procedure Registracija1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Informacijaapiestudent1Click(Sender: TObject);
procedure Skolos1Click(Sender: TObject);
procedure Atsijungti1Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Ijungtiprogram1Click(Sender: TObject);
procedure Panel2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
st:masyvas; s:stud; n:integer;
F: File of stud;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Prisijungti1Click(Sender: TObject);
begin
panel1.Visible:=true;
panel2.Visible:=false;
panel3.Visible:=false;
panel4.Visible:=false;
panel5.Visible:=false;
panel6.Visible:=false;
panel7.Visible:=false;
end;
procedure TForm1.Registracija1Click(Sender: TObject);
begin
panel1.Visible:=false;
panel2.Visible:=true;
panel3.Visible:=false;
panel4.Visible:=false;
panel5.Visible:=false;
panel6.Visible:=false;
panel7.Visible:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
var x,y,z:string;
begin
z:=edit1.Text;
y:=edit2.Text;
x:=edit7.Text;
if x='12345'
then begin
Prisijungti1.Enabled:=false;
Registracija1.Enabled:=false;
Atsijungti1.Enabled:=true;
Informacijaapiestudent1.Enabled:=true;
Skolos1.Enabled:=true;
Ijungtiprogram1.Enabled:=false;
panel7.Visible:=false;
panel1.Visible:=false; end
else panel7.Visible:=true;
if y='ignat'
then begin
Prisijungti1.Enabled:=false;
Registracija1.Enabled:=false;
Atsijungti1.Enabled:=true;
Informacijaapiestudent1.Enabled:=true;
Skolos1.Enabled:=true;
Ijungtiprogram1.Enabled:=false;
panel7.Visible:=false;
panel1.Visible:=false; end
else panel7.Visible:=true;
if z='lukas'
then begin
Prisijungti1.Enabled:=false;
Registracija1.Enabled:=false;
Atsijungti1.Enabled:=true;
Informacijaapiestudent1.Enabled:=true;
Skolos1.Enabled:=true;
Ijungtiprogram1.Enabled:=false;
panel7.Visible:=false;
panel1.Visible:=false; end
else panel7.Visible:=true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Prisijungti1.Enabled:=true;
Registracija1.Enabled:=true;
Atsijungti1.Enabled:=false;
Informacijaapiestudent1.Enabled:=false;
Skolos1.Enabled:=false;
Ijungtiprogram1.Enabled:=true;
panel1.Visible:=false;
panel2.Visible:=false;
panel3.Visible:=false;
panel4.Visible:=false;
panel5.Visible:=false;
panel6.Visible:=false;
panel7.Visible:=false;
end;
procedure TForm1.Informacijaapiestudent1Click(Sender: TObject);
begin
panel1.Visible:=false;
panel2.Visible:=false;
panel3.Visible:=true;
panel4.Visible:=false;
panel5.Visible:=false;
panel6.Visible:=false;
panel7.Visible:=false;
end;
procedure TForm1.Skolos1Click(Sender: TObject);
begin
panel1.Visible:=false;
panel2.Visible:=false;
panel3.Visible:=false;
panel4.Visible:=true;
panel5.Visible:=false;
panel6.Visible:=false;
panel7.Visible:=false;
end;
procedure TForm1.Atsijungti1Click(Sender: TObject);
begin
panel1.Visible:=false;
panel2.Visible:=false;
panel3.Visible:=false;
panel4.Visible:=false;
panel5.Visible:=false;
panel6.Visible:=true;
panel7.Visible:=false;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Atsijungti1.Enabled:=false;
Informacijaapiestudent1.Enabled:=false;
Skolos1.Enabled:=false;
Ijungtiprogram1.Enabled:=true;
panel1.Visible:=true;
panel2.Visible:=false;
panel3.Visible:=false;
panel4.Visible:=false;
panel5.Visible:=false;
panel6.Visible:=false;
end;
procedure TForm1.Ijungtiprogram1Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Panel2Click(Sender: TObject);
begin
Assignfile (F,'reg.std');
Rewrite (F);
Write (F, s);
Closefile (F);
ShowMessage ('Irasyta');
end;
procedure TForm1.Button2Click(Sender: TObject);
var e,m: string; i,j: integer;
begin
s.Vardas:=edit4.Text;
s.Pavarde:=edit3.Text;
s.Gimimodata:=edit5.integer;
s.Slaptazodis:=edit8.text
s.Kurstudijuoji:=listbox2.text;
end;
end.
ir va kokiu erorus ismeta
[Error] Unit1.pas(88): Type 'stud' needs finalization - not allowed in file type
[Error] Unit1.pas(258): Undeclared identifier: 'TCaption'
[Error] Unit1.pas(260): Missing operator or semicolon
[Error] Unit1.pas(260): Undeclared identifier: 'text'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
del delphi
Žinutė
Autorius
#1 Standartinė alach » 2007 04 29 10:48
Pereiti į
- Bendri forumai
- ↳ Taisyklės
- ↳ Dėl GameZone.lt diskusijų
- ↳ test
- ↳ Bendras forumas
- ↳ Apie viską
- ↳ Asmeniškumai
- ↳ Skelbimai
- ↳ Parduodu
- ↳ Perku
- ↳ Keičiu
- ↳ Ieškau
- ↳ Dovanoju
- ↳ Linksmybės
- Teminiai forumai
- ↳ Mokslai
- ↳ Mokslai
- ↳ Archeologija
- ↳ Astronomija
- ↳ Informatika
- ↳ Matematika
- ↳ Teisė
- ↳ Geografija
- ↳ Istorija
- ↳ Dailė
- ↳ Anglų kalba
- ↳ Medicina
- ↳ Chemija
- ↳ Fizika
- ↳ Informologija
- ↳ Architektūra
- ↳ Politologija
- ↳ Lotynų kalba
- ↳ Filologija
- ↳ Kūno kultūra
- ↳ Biologija
- ↳ Lietuvių kalba
- ↳ Ekonomika
- ↳ Vadyba
- ↳ Geologija
- ↳ Psichologija
- ↳ Politologija
- ↳ Psichiatrija
- ↳ Mokyklos
- ↳ Mokytojai
- ↳ Moksleiviai
- ↳ Studentai
- ↳ Mokslininkai
- ↳ Pedagogika
- ↳ Poetai
- ↳ Poezija
- ↳ Proza
- ↳ Knygos
- ↳ Rašytojai
- ↳ Auto - Moto
- ↳ Automobiliai
- ↳ Motociklai
- ↳ Auto-tuningas
- ↳ Automobilių dalys
- ↳ Dragai
- ↳ Rally
- ↳ Vairavimas
- ↳ Teisės
- ↳ Kelių policija
- ↳ Aviacija
- ↳ Oro uostai
- ↳ Skrydžiai
- ↳ Lėktuvai
- ↳ Aviacijos klubai
- ↳ Sklandytuvai
- ↳ Kinas, TV
- ↳ Kinas
- ↳ Filmai
- ↳ Siaubo filmai
- ↳ Fantastiniai filmai
- ↳ Komedijos
- ↳ Animaciniai filmai
- ↳ Dramos
- ↳ Veiksmo filmai
- ↳ Dokumentiniai filmai
- ↳ Snobo filmai
- ↳ Erotiniai filmai
- ↳ Romantiniai filmai
- ↳ Lietuviški filmai
- ↳ TV laidos
- ↳ Serialai
- ↳ TV programos
- ↳ TV kanalai
- ↳ Anonsai
- ↳ Žvaigždės
- ↳ Kompiuteriai
- ↳ Internetas
- ↳ Komunikacijos
- ↳ Mobilieji telefonai
- ↳ Nokia
- ↳ Samsung
- ↳ Sony Ericsson
- ↳ Motorola
- ↳ LG
- ↳ Siemens
- ↳ Panasonic
- ↳ HTC
- ↳ Apple
- ↳ Mobiliųjų telefonų programinė įranga
- ↳ Mobiliųjų telefonų remontas
- ↳ Programinė įranga
- ↳ Antivirusinės programos
- ↳ Audio ir MP3 programos
- ↳ Grafikos programos
- ↳ Interneto naršyklės
- ↳ Operacinės sistemos
- ↳ Linux
- ↳ Windows
- ↳ P2P programos
- ↳ Video programos
- ↳ Kompiuterinė įranga
- ↳ Aušintuvai
- ↳ Atmintis (RAM)
- ↳ Garso Plokštės
- ↳ FDD
- ↳ Optiniai įrenginiai
- ↳ Pagrindinės Plokštės
- ↳ Procesoriai
- ↳ Pelės
- ↳ Kietieji diskai
- ↳ Korpusai ir priedai
- ↳ Kolonėlės
- ↳ Klaviatūros
- ↳ Maitinimo blokai
- ↳ Monitoriai
- ↳ Vaizdo plokštės
- ↳ Programavimas
- ↳ PHP
- ↳ ASP
- ↳ Perl
- ↳ Python
- ↳ HTML
- ↳ Java
- ↳ C
- ↳ C++
- ↳ Pascal
- ↳ Basic
- ↳ Elektronika
- ↳ Svetainių kūrimas
- ↳ Įvertinkite interneto svetainę!
- ↳ Kompiuteriniai žaidimai
- ↳ Populiariausi žaidimai
- ↳ Counter-strike
- ↳ Final Fantasy
- ↳ The Sims
- ↳ StarWars
- ↳ RuneScape
- ↳ Grand Theft Auto
- ↳ Žaidimų forumai
- ↳ Žaidimai
- ↳ Action (Veiksmo žaidimai)
- ↳ Adventure (Nuotykiniai žaidimai)
- ↳ Strategy (Strateginiai žaidimai)
- ↳ Arcade (Arkade žanro žaidimai)
- ↳ Racing (Lenktynių žaidimai)
- ↳ Simulator (Žaidimai imitatoriai)
- ↳ RPG (Role-Playing Game/Vaidmenų žaidimai)
- ↳ Sport (Žaidimai apie sportą)
- ↳ Cards (Žaidimai kortomis)
- ↳ Logic (Loginio mąstymo žaidimai)
- ↳ Stalo žaidimai
- ↳ Žaidimai kortomis (Stalo)
- ↳ Žaidimų kodai
- ↳ Žaidimų demo versijos
- ↳ Žaidimų svetainės
- ↳ Žaidimų galerija
- ↳ Žadimų konsolės
- ↳ Hakerių forumai
- ↳ Hakerių diskusija
- ↳ Hakerių diskusija 2
- ↳ Saugumas
- ↳ Virusai
- ↳ AntiHack
- ↳ Sveikata
- ↳ Sveikata
- ↳ Sveikas gyvenimo būdas
- ↳ Sveikuolių klubai
- ↳ Sanatorijos ir kurortai
- ↳ Relaksacija
- ↳ Meditacija
- ↳ Joga
- ↳ Karyba, ginklai
- ↳ Karyba
- ↳ Karininkai
- ↳ Ginklai
- ↳ Prievartinė tarnyba armijoje
- ↳ Krašto apsauga
- ↳ Pasieniečiai
- ↳ Muitininkai
- ↳ Kelionės
- ↳ Kelionės
- ↳ Kelionių agentūros
- ↳ Kelionių maršrutai
- ↳ Bilietai
- ↳ Kelionių inventorius
- ↳ Kelionių įspūdžiai
- ↳ Kaimo turizmas
- ↳ Poilsis
- ↳ Egiptas
- ↳ Palanga
- ↳ Nida
- ↳ Mėgstamiausi užsienio kurortai
- ↳ Gyvūnai
- ↳ Gyvūnai
- ↳ Augintinių maistas
- ↳ Augintinių priežiūrą
- ↳ Šiltakraujai gyvūnai
- ↳ Šeškai
- ↳ Šunys
- ↳ Katės
- ↳ Žirgai
- ↳ Paukščiai
- ↳ Smulkūs graužikai
- ↳ Naminiai gyvuliai
- ↳ Triušiai
- ↳ Kiti
- ↳ Šaltakraujai gyvūnai
- ↳ Akvariumai
- ↳ Driežai
- ↳ Ropliai
- ↳ Terariumai
- ↳ Vabzdžiai
- ↳ Varliagyviai
- ↳ Vėžliai
- ↳ Voragyviai
- ↳ Kiti
- ↳ Hobby
- ↳ Medžioklė
- ↳ Žvejyba
- ↳ Filatelija
- ↳ Kolekcionavimas
- ↳ Fotografija
- ↳ Mezgimas
- ↳ Siuvimas
- ↳ Kulinarija
- ↳ Alus
- ↳ Arbata
- ↳ Desertai
- ↳ Kava
- ↳ Konditerija
- ↳ Mityba
- ↳ Mityba
- ↳ Padažai
- ↳ Prieskoniai
- ↳ Siubos
- ↳ Šokoladas
- ↳ Žuvis
- ↳ Vynas
- ↳ Meilė
- ↳ Pirmoji meilė
- ↳ Meilė
- ↳ Jausmai
- ↳ Draugystė
- ↳ Bučiniai
- ↳ Romantika
- ↳ Pasimatymai
- ↳ Išdavystė
- ↳ Išsiskyrimas
- ↳ Vedybos
- ↳ Mergvakariai
- ↳ Bernvakariai
- ↳ Medaus mėnuo
- ↳ Mistika
- ↳ Mistika
- ↳ Būrtai
- ↳ Būrtininkai
- ↳ Būrimai
- ↳ Egzorcizmas
- ↳ NSO
- ↳ Ateiviai
- ↳ Kabala
- ↳ Parapsichologija
- ↳ Reinkarnacija
- ↳ Spiritizmas
- ↳ Feng shui
- ↳ Raganos
- ↳ Vampyrai
- ↳ Liaudies papročiai
- ↳ Fantastika
- ↳ Fantastika
- ↳ Sci-fi
- ↳ Fantastai
- ↳ Klubai
- ↳ Muzika
- ↳ Grupės
- ↳ Dainos
- ↳ Dainų tekstai
- ↳ Dainininkai
- ↳ Koncertai
- ↳ Dainų top 10
- ↳ Instrumentai
- ↳ Kaimo kapelos
- ↳ Muzikos stiliai
- ↳ Teisėsauga
- ↳ Advokatai
- ↳ Teisėjai
- ↳ Teismai
- ↳ Įstatymai
- ↳ Nusikaltimai
- ↳ Narkomanija
- ↳ Prostitucija
- ↳ Policija
- ↳ Policininkai
- ↳ Prevencija
- ↳ Nusikalstamumas
- ↳ Pažintys
- ↳ Naujos pažintys
- ↳ Pažinčių skelbimai
- ↳ Pažinčių klubas
- ↳ Draugai
- ↳ Patarimai
- ↳ Poezija
- ↳ Poezija
- ↳ Poetai
- ↳ Eilėraščiai
- ↳ Politika
- ↳ Politika
- ↳ Politikai
- ↳ Partijos
- ↳ Rinkimai
- ↳ Seimas
- ↳ Vyriausybė
- ↳ Prezidentas
- ↳ Politologai
- ↳ Valdžia
- ↳ Korupcija
- ↳ Proza
- ↳ Proza
- ↳ Literatūra
- ↳ Apsakymai
- ↳ Novelės
- ↳ Pasakos
- ↳ Romanai
- ↳ Knygos
- ↳ Mėgstamiausia knyga
- ↳ Rašytojai
- ↳ Pramogos
- ↳ Pramogos
- ↳ Laisvalaikis
- ↳ Renginiai
- ↳ Kazino
- ↳ Klubai
- ↳ Barai
- ↳ Kavinės
- ↳ Picerijos
- ↳ Šventės
- ↳ Religija
- ↳ Krikščionybė
- ↳ Religijos istorija
- ↳ Tikėjimas
- ↳ Islamas
- ↳ Budizmas
- ↳ Jehovos liudytojai
- ↳ Saintologija
- ↳ Munistai
- ↳ Tikėjimo žodis
- ↳ Evangelija
- ↳ Dievas
- ↳ Biblija
- ↳ Lietuvos bažnyčios
- ↳ Kunigai
- ↳ Vienuoliai
- ↳ Seksualinė psichologija
- ↳ Vaikinai
- ↳ Merginos
- ↳ Psichologija, patarimai
- ↳ Kiti forumai
- ↳ Seksas
- ↳ Erotika
- ↳ Seksualumas
- ↳ Skaistumas
- ↳ Seksualinis švietimas
- ↳ Seksualinės fantazijos
- ↳ Masturbacija
- ↳ Vaikinų masturbacija
- ↳ Merginų masturbacija
- ↳ Nudistai
- ↳ Prostitucija
- ↳ Pornografija
- ↳ Prievarta
- ↳ Striptizo klubai
- ↳ Tradicinis seksas
- ↳ Pirmas kartas
- ↳ Apsisaugojimo priemonės
- ↳ Kontracepcija
- ↳ Sekso pozos
- ↳ Orgazmas
- ↳ Šeimos planavimas
- ↳ Netradicinis seksas
- ↳ Analinis seksas
- ↳ Oralinis seksas
- ↳ Grupinis seksas, svingeriai
- ↳ BDSM
- ↳ Ekshibicionizmas
- ↳ Virtualus seksas
- ↳ Seksualinės mažumos
- ↳ Merginoms
- ↳ Nėštumas
- ↳ Intymios šukuosenos
- ↳ G-taškas
- ↳ Higiena
- ↳ Higieniniai paketai
- ↳ Mėnesinės
- ↳ Lytinis šaltumas
- ↳ Sekso prekės
- ↳ Sekso prekės
- ↳ Vibratoriai
- ↳ Vibratoriai analiniam seksui
- ↳ G taško vibratoriai
- ↳ Kitokių formų vibratoriai
- ↳ Klasikiniai vibratoriai
- ↳ Realios formos vibratoriai
- ↳ Strap on vibratoriai
- ↳ Vibratoriai nelaidūs vandeniui
- ↳ Analiniam seksui
- ↳ Analiniai kaiščiai
- ↳ Analiniai rutuliukai
- ↳ Faloimitatoriai
- ↳ Faloimitatoriai analiniam seksui
- ↳ Strap on faloimitatoriai
- ↳ Lubrikantai, kremai, kosmetika
- ↳ Analiniam seksui
- ↳ Jam ir Jai
- ↳ Kvepalai
- ↳ Lubrikantai
- ↳ Masažo aliejai
- ↳ Meilės žaisliukų valikliai
- ↳ Oraliniam seksui
- ↳ Tik moterims
- ↳ Tik vyrams
- ↳ Tik moterims
- ↳ Lėlės moterims
- ↳ Pompos moterims
- ↳ Stimuliatoriai moterims
- ↳ Vaginaliniai kamuoliukai
- ↳ Tik vyrams
- ↳ Pompos
- ↳ Sekso lėlės vyrams
- ↳ Vaginos vyrams
- ↳ Sportas
- ↳ Krepšinis
- ↳ Futbolas
- ↳ Regbis
- ↳ Beisbolas
- ↳ Biliardas
- ↳ Plaukimas
- ↳ Tenisas
- ↳ Stalo tenisas
- ↳ Tinklinis
- ↳ Šaudymas
- ↳ Boksas
- ↳ Dažasvydis
- ↳ Kovos menai
- ↳ Gimnastika
- ↳ Lengvoji atletika
- ↳ Irklavimas
- ↳ Šachmatai
- ↳ Šaškės
- ↳ Dviračių sportas
- ↳ Aerobika
- ↳ Žirgų sportas
- ↳ Rankinis
- ↳ Sklandymas
- ↳ Riedlentės
- ↳ Stilius
- ↳ Avalynė
- ↳ Drabužiai
- ↳ Elitas
- ↳ Mada
- ↳ Rūbų dizaineriai
- ↳ Interjero dizainas
- ↳ Papuošalai
- ↳ Parfumerija
- ↳ Prabanga
- ↳ Soliariumai
- ↳ Tatuiruotės
- ↳ Technologijos
- ↳ Technologijos
- ↳ Elektronika
- ↳ Išradimai
- ↳ Mokslo progresas
- ↳ Pasiekimai
- ↳ Ateities prognozės
- ↳ Žinių visuomenė
- ↳ Užsienis
- ↳ Gyvenimas užsienyje
- ↳ Užsieniečiai
- ↳ Amerikos lietuviai
- ↳ Darbas: Amerika, Airija, Londonas, Ispanija, Vokietija
- ↳ Verslas
- ↳ Verslas
- ↳ Verslininkai
- ↳ Smulkus ir vidutinis verslas
- ↳ Ekonomika
- ↳ Nekilnojamas turtas
- ↳ Vox Populi
- ↳ Liaudies balsas
- ↳ Nuomonės
- ↳ Tavo nuomonė
- ↳ Tavo požiūris
- ↳ Kritika
- ↳ Skundai
- ↳ Žemdirbiams
- ↳ Augalininkystė
- ↳ Daržininkystė
- ↳ Gėlininkystė
- ↳ Paukštininkystė
- ↳ Sodininkystė
- ↳ Veterinarija
- ↳ Ūkininkai
- ↳ Žemdirbystė
- ↳ Žuvininkystė
- ↳ Žmogaus teisės
- ↳ Žmogaus teisių gynimo agentūros
- ↳ Žmogaus teisų pažeidimai Lietuvoje ir užsienyje
Dabar prisijungę
Vartotojai naršantys šį forumą: 2 ir 0 svečių