Mudando char de uma string

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?