subject:"RES\: \[delphi\-br\] Dividir caracter"

RES: [delphi-br] Dividir caracter

2005-07-11 Por tôpico Douglas - CPD

if Length(Edit1.Text) >0 then if Trim(RightStr(Edit1.Text),1) = '%' then begin ... ... end else begin ... ... end; Douglas - CPD SISTEMAS - Torres ( Ramal 225 * [EMAIL PROTECTED] * [EMAIL PR

Res: [delphi-br] Dividir caracter

2005-07-11 Por tôpico Eduardo RC Neto

Faz assim: var iTamanho : integer sUltimoCaracter : string; Begin iTamanho := Length(trim(edit1.text); SUltimoCaracter := copy(edit1.text,iTamanho,1); if sUltimoCaracter = '%' then begin // FAZ A PORCENTEAGEM end else begin // FAZ A SUBTRAÇÃO end;