Edit1->Text je tipa AnsiString.
AnsiString ima metodu SetLength() kojom mozes postaviti zeljenu velicinu, dakle:
Code:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if ( Edit1->Text.Length() > 0 ) // mada moze i bez ovog reda jer to SetLength() interno proverava
Edit1->Text = Edit1->Text.SetLength( Edit1->Text.Length() - 1 );
}
[Ovu poruku je menjao X Files dana 05.03.2006. u 14:33 GMT+1]
FREEWARE
Di rečnik,
v1.0.058 (srp-eng/eng-srp priručni rečnik)
http://www.antivari.com