În acest articol, voi încerca să explic principiile de programare din Delphi
// Clasă pentru stocarea datelor despre angajați
numele String privat; // nume
id de identificare privat; // numărul personalului
public EmployeeRecord (String anname, String aid)
public void setName (șir anname)
// setarea numărului de personal
setul public void (Ajutorul pentru coarde)
// primirea numărului de personal
// Clasa principală de aplicații
public Application class
Vector employees; // array pentru stocarea listei de angajați
Fișierul FileInputStream; // descriptor de fișiere a datelor angajatului
Datele DataInputStream; // flux de date pentru citirea informațiilor despre angajați
flux = nou FileInputStream ("data.txt");
date = nou DataInputStream (flux);
acest lucru. createEmployees (); // umpleți matricea
acest lucru. Afișează angajați (); // informații despre ieșire
public void createEmployees ()
tmp3 = date. readLine (); // linie de intrare
dacă (tmp3 == null) retur; // verificați sfârșitul fișierului
StringTokenizer tokenizer = nou StringTokenizer (tmp3, ",");
tmp1 = tokenizer. nextToken (); // selectați numele
tmp2 = tokenizer. nextToken (); // selectați numărul de personal
Recordul angajatuluiRecord = noul angajatRecord (tmp1, tmp2);