result.caption
lazarus / 16-Databases

----------------------------------------------------------------------
calvinruka · 2011-01-21 07:28

hi, my display code does't show my result on my labelbox. And this is
my code below here. Any clue?



 procedure TForm1.DigitButtonClick (sender: TObject);
   var
   sTem : string;
  begin
    stem := Tbutton(sender).caption;
 
      if (sTem = '1') or (sTem= '2')
       or (sTem= '3') or (sTem= '4')
       or (sTem= '5') or (sTem= '6')
       or (sTem= '7') or (sTem= '8')
       or (sTem= '9') or (sTem= '0')

       then
       begin
       result.Caption := result.Caption;
    end;
    end;

----------------------------------------------------------------------
Leledumbo · 2011-01-21 09:29

Code: [Select]result.Caption := result.Caption;Of course it won't.
This code will not change anything in result.Caption (assuming result
is a TLabel or something). Use:
Code: [Select]Result.Caption := sTem;instead.