View Single Post
Old Nov 23rd, 2007, 2:12 PM   #1
maikeru
Newbie
 
Join Date: Nov 2007
Posts: 2
Rep Power: 0 maikeru is on a distinguished road
calculator clear code

hiya this is my work for college and i have searched on the internet but it is so hard to find out this could anyone help please i am creating a calculator on lazarus i have managed to work out how to do the numbers and the clear all button but i am having problems with one thing

probally basic for most of you but i would appreciate it if anyone can help

here is the problem

i need to know how to deleat one string from my calculator number so when i click it the number will go from 4563 to 456 i have variables and i will show the code and if you need anymore code reply and i will post it because this is my first time posting

this isnt all of it but a small bit of the code i have


Form1: TForm1;
  Number1: char;
  Number2: char;

procedure TForm1.btn8Click(Sender: TObject);
begin
  edtaccumulate.text := edtaccumulate.text + '8'
end;

procedure TForm1.btn9Click(Sender: TObject);
begin
  edtaccumulate.text := edtaccumulate.text + '9'
end;

procedure TForm1.btnclearallClick(Sender: TObject);
begin
  edtaccumulate.text := ''
end;

procedure TForm1.btnclearClick(Sender: TObject);
begin
end;
i hope you can help

Last edited by DaWei; Nov 23rd, 2007 at 9:12 PM. Reason: Added code tags. Moved to appropriate forum.
maikeru is offline   Reply With Quote