Mega Code Archive

 

Categories / Delphi / Strings

 

Metin icerisinden bir karakter silme

Function DeleteCharacterInString(InputCharacter,InputString: String): String; Var CharPos : Integer; Begin Result := InputString; While True Do Begin CharPos := Pos(InputCharacter,InputString); If Not (CharPos = 0) Then Begin Delete(InputString,CharPos,1); End Else Begin Break; End; End; Result := InputString; End;