Bu fonksiyonu nasıl çalıştırabilirim

[kara_kule06]

Herkese slm. benim sorunum şu;
Bir edit nesnesi içindeki text'de aranılan karakteri bulup istenilen karakterlen değiştirmek. tabi bu replacedialog kutusuylan olur diyeceksiniz fakat ben bunu kutu gözükmeden yapmak istiyorum ayrıca delphi help'de şöyle bir fonksiyon bukdum sanırım bu işime yarıyacak fakat bu fonksiyonun nasıl çalıştığını bilmiyorum.
yardım ederseniz sevinirim. fonksiyon şu;

Kod: Tümünü seç

Function AnsiReplaceStr(const Atext, Afromtext, Atotext : string): string;

[naile]

Bunu kullan:

Edit1.Text := AnsiReplaceText(Edit1.Text,'eski','yeni');

edit1. içindeki yazıdan "eski" kelimesini "yeni" kelimesi ile değiştirir

[kara_kule06]

teşekkürler

[kara_kule06]

kardeş dediğin gibi yaptım ana olmadı.
şu şekilde yaptım;

Kod: Tümünü seç

Function AnsiReplaceStr(const Atext, Afromtext, Atotext : string): string;
var
yenitext: string;
begin
yenitext(atext,afromtext,atotext)
end;

Button1 in click olayına ise;

Kod: Tümünü seç

edit1.text:=ansireplacetext(edit1.text,'eski','yeni');

yaptım ama çalışmıyor hata veriyor.

[ulu coder]

kardeş dediğin gibi yaptım ama olmadı.
şu şekilde yaptım;

Kod: Tümünü seç

Function AnsiReplaceStr(const Atext, Afromtext, Atotext : string): string;
var
yenitext: string;
begin
yenitext(atext,afromtext,atotext)
end;

Oluşturduğunuz fonksiyonu anlayamadım, acaba ben mi bilmiyorum, yoksa yanlış mı?

AnsiReplaceStr önereyim. Kullanımı;

Kod: Tümünü seç

Edit1.Text := AnsiReplaceStr(Edit1.Text, 'a', 'b');

bütün a'ları b yapar.

(Not: bu fonsiyon parantez içine girilen değeri değiştirmez, geriye sonuç döndürür.)

[Ancestor]

Uses'a StrUtils kütüphanesini eklemeyi unutma