Pereiti prie turinio

c++ builder. reikia pagalbos.


Rekomenduojami pranešimai

sveiki. gal kas galetu pagelbeti?

 

 

 

void __fastcall TForm1::Button1Click(TObject *Sender)
{

 AnsiString E = "Uz preke ";
 AnsiString F;
 strcpy(A.pav, Edit4->Text.c_str());
 A.kai = StrToFloat(Edit1->Text);
 A.kie = StrToFloat(Edit3->Text);
 A.ant = (StrToFloat(Edit1->Text) *  StrToFloat(Edit3->Text)) *
          StrToFloat(Edit5->Text) /100;
 A.pvm = (StrToFloat(Edit1->Text) *  StrToFloat(Edit3->Text)) *
          StrToFloat(Edit2->Text) /100;
 A.sum = A.kai * A.kie + A.ant + A.pvm;
 E = E + A.pav + "     " + A.kie + "  Vnt." + " reikia sumoketi "  ;
 F = FloatToStrF(A.sum, ffFixed, 8,2) + " LT";
 Memo1->Lines->Add(E);
 Memo2->Lines->Add(F);
 Memo2->Lines->SaveToFile(CRez);

 ListBox1->Items->Add(E + "  " + F);

 if(Duomenys()) {
     Pinigai();
     Rodyti();
 }

}

 

man reikia kad is edit4->Text, ivesti duomenys butu automatiskai prailginti.

pvz. i laukeli buvo yrasytas zoodis 7 raidziu, mant ta zodi prailgintu iki 30 simboliu, likusi atstuma uzpildydamas tarpu

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

×
×
  • Pasirinkite naujai kuriamo turinio tipą...