Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
function fMudaChar(pStr: string; pForgChar: Char; pNewChar : Char; const pIni: Integer = 1; const pFim: Integer = -1 ): string; var lvStr: string; lvIdx : Integer; lvIniIdx: Integer; lvFimIdx: Integer; begin lvStr := pStr; lvIniIdx := pIni; if (lvIniIdx = 0) then lvIniIdx := 1; if (pFim = -1) then lvFimIdx := Length(pStr) + lvIniIdx else lvFimIdx := pFim + lvIniIdx;; for lvIdx := lvIniIdx to lvFimIdx do if (lvStr[lvIdx] = pForgChar) then lvStr[lvIdx] := pNewChar else lvStr[lvIdx] := lvStr[lvIdx]; Result := lvStr; end;Como usarBota isso antes de begin, e se existir, depois de var. ou declare global.
Poem 2 edit, e bota esse codigo
Edit2.Text := fMudaChar(fMudaChar(Edit1.Text,'''',''),'"','')
ou seja, se tiver no edit1 "abc''Adas"''" vai ficar "abcAdas*****"
Ai voce me pergunta, pra que isso?!
Pra quando precisar :P
E se eu quero muda so um pedaço, pode?
Sim
Faz assim
Edit2.Text := fMudaChar(R_e_n_t_o,' ','_')
Isso fica "Rento"
Se quiser agora, que fique "R_e_n t o" faz isso
Edit2.Text := fMudaChar('R e n t o', ' ', '_', 1, 3)
obs: pra remover espaço em branco, tem que transformar nada em char, moh rolo...
Alguem sabe?
Carregando comentários...