trocar letras

19/01/2006

Olá,
tenho num maskedit o valor 00:23, quanto for 00 quero trocar para 24.. como faço?
If COPY(mskHora.Text,1,2) = IntToStr(00) then
até aqui consegui.. só não sei como substitui...
Podem me ajudar?


Daia

Respostas

19/01/2006

Edilcimar

temp1, temp2 : string;
temp := copy(maskedit1.text,1,2);
temp2 := copy(maskedit1.text,3,2);
if temp1 := ´00´ then
temp1 := ´24´;
maskedit1.text := temp1+temp2


Responder Citar

19/01/2006

Daia

muito obrigada funcionou direitinho!!!!


Responder Citar

19/01/2006

Edilcimar

estamos aí


Responder Citar

19/01/2006

Emerson

ou ainda:

maskedit1.text := stringreplace(maskedit1.text,´00:´,´24:´,[rfReplaceAll]);


Responder Citar