void __fastcall TForm1::Button1Click(TObject *Sender)

{ fstream f;

f.open("produse.txt",ios::in);

if(f==0)

ShowMessage("fisierul nu exista!");

else

{ShowMessage("fisierul exista!");

AnsiString s=Edit1->Text;

int gasit=0;

char den[20];

char pret[20],nb[20];

char *s1=s.c_str();

Label2->Caption="";

char rezultat[1000]="Produsul ";

while(f>>den>>pret>>nb)

if(stricmp(s1,den)==0)

{strcat(rezultat,den);

strcat(rezultat," are pretul ");

strcat(rezultat,pret);

strcat(rezultat,".Mai sunt: ");

strcat(rezultat,nb);

strcat(rezultat," bucati");

Label2->Caption=rezultat;

gasit=1;

}

if(gasit==0)

Label2->Caption="Produsul nu se gaseste in baza de date!";

f.close();

}//else

}