BCB Problem - 2 Edity,Button i String

0

Witam

Problem wygląda następująco:
Chcę aby po kliknięciu buttona została pobrana wartość z edita PobierzNr i wstawiona do WyswNr. Napisałem coś takiego dla buttona:

 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
szuk=PobierzNr->Text;
WyswNr->Text = WyswNr->Text + szuk;
}

Niby wszystko ok, tylko gdy wpiszę nową wartość do PobierzNr i wcisnę buttona to zamiast wpisać nową wartość do WyswNr dopisuje ją tylko do poprzednio wpisanej.

Przykład:
wpisuję do PobierzNr 123, klikam button, WyswNr pokazuje 123
wpisuję do PobierzNr 456, klikam button, WyswNr pokazuje 123456 zamiast oczekiwanego 456.
Jak to ugryżć? Prosze o pomoc, jestem początkujący w BCB

1

Jeśli dobrze zrozumiałem to kod powinien tak wyglądać:

 void __fastcall TForm1::Button1Click(TObject *Sender)
{
szuk=PobierzNr->Text;
WyswNr->Text = szuk;
}
0

Działa dziękuję za pomoc :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1