Mega Code Archive

 

Categories / Delphi / Strings

 

Metin içerisindeki bir değerin değiştirilmesi [replace işlemi]

function Replace(var aSource: string; const aFind, aReplace: string): Integer; var I: Integer; begin Result := 0; I := Pos(aFind, aSource); while (I <> 0) do begin Insert(aReplace, aSource, I); Delete(aSource, I + Length(aReplace), Length(AFind)); Inc(Result); I := Pos(aFind, aSource); end; end; // Kullanımı: procedure TForm1.Button1Click(Sender: TObject); var S: string; Count: Integer; begin S := 'Deneme Değeri'; Count := Replace(S, 'De', 'XXX'); ShowMessage(Format('Yeni değer %s. Toplam %d kere değişim yapıldı', [S, Count])); end;