close

 

  public
    FInput:String;
    { Public declarations }

 

var
  mInput:WideChar;
begin
  mInput := TSpeedButton(Sender).Text[1];
  if mInput = '<' then
  begin
    Delete(FInput,Length(FInput),1);
  end else
  if mInput = 'X' then
  begin
    FInput := '';
  end else
  if True then
  begin
    FInput := FInput + mInput;
  end;
  Text1.Text := FInput;

arrow
arrow
    文章標籤
    Delphi
    全站熱搜

    kuraki5336 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄