Peki aynı orantıda yazıyı sayıya hash edebileceğim bi kod varmı yani bu mümkün mü? Teşekkürler.. -

Kod: void fastcall TForm1::Button1Click Kod: Forma Memo, Edit, Buton ekleyin. Edita girdiğiniz sayıyı basamaklara ayırır. void fastcall TForm1::SpeedButton1Click Kod: edita girilen sayıyı yazıya çevirme forma 2 edit 1 buton ekleyin. void fastcall TForm1::Button1Click { unsigned long int i, k, c; char a , b ; Edit2->Text=""; strcpy(a, Edit1->Text. c_str ; c= strlen ; for(i=0;i<21-c;i++) b ='0'; for(i=21-c;i<21;i++) b =a ; for(k=0;k<7;k++){ for(i=0;i<3;i++){ if(i 0) else if(i 1) else { if (b '1') if (b '2') Edit2->Text=Edit2->Text+"iki"; if (b '3') Edit2->Text=Edit2->Text+"üç"; if (b '4') Edit2->Text=Edit2->Text+"dört"; if (b '5') Edit2->Text=Edit2->Text+"beş"; if (b '6') Edit2->Text=Edit2->Text+"altı"; if (b '7') Edit2->Text=Edit2->Text+"yedi"; if (b '8') Edit2->Text=Edit2->Text+"sekiz"; if (b '9') Edit2->Text=Edit2->Text+"dokuz";}} if(b !='0'||b !='0'||b !='0'){ if(k 0) Edit2->Text=Edit2->Text+"kentrilyon"; else if(k 1) Edit2->Text=Edit2->Text+"katrilyon"; else if(k 2) Edit2->Text=Edit2->Text+"trilyon"; else if(k 3) Edit2->Text=Edit2->Text+"milyar"; else if(k 4) Edit2->Text=Edit2->Text+"milyon"; else if(k 5&&b !='0'&&b !='0') } } } Not : Alıntıdır. -