Tüm yorumlar için teşekkür ediyorum bir konu içerisinde birçok yararlı bilgi oldu. Herkeşe ben rep : )
(07-02-2018, Saat: 01:34)hyperxman Adlı Kullanıcıdan Alıntı: [ -> ]Allah allah yaw, az önce onu kodluyordum. Kalp kalbe karşı imiş 
var
UpdatelenmisHali: String;
begin
UpdatelenmisHali := StringReplace(Memo1.Lines.Text, 'Merhaba', 'Selam', [rfReplaceAll, rfIgnoreCase]);
ShowMessage(UpdatelenmisHali);
end;
Kod için teşekkürler, yazmış olduğunuz kodu fonksiyona çevirecek olursam;
Function KelimeDegistir(KaynakYazi, DegisecekOlan, DegismesiGereken: String): String;
var
S1: String;
begin
S1 := StringReplace(KaynakYazi, DegisecekOlan, DegismesiGereken, [rfReplaceAll, rfIgnoreCase]);
Result := S1;
end;
Yukarıda Cyber'in yazdığı fonksiyonlara bakarsanız AnsiReplaceText tam da sizin KelimeDegistir'in yaptığını yapıyor. Yeniden fonksiyon tanımlamak gereksiz.
Konuyla alakalı ,
örneğin 500 kelimelik bir metin belgesi içerisindeki herkez kelimesini herkes , merhaba kelimesini selam , abartı kelimesini mübalağa kelimesi ile vs vs değiştirmek istiyorum bunun için kod önerileriniz nedir yukarıdaki kodları tek tek ayarlayınca olmuyor
(18-05-2018, Saat: 21:58)Paranoyaq Adlı Kullanıcıdan Alıntı: [ -> ]Konuyla alakalı ,
örneğin 500 kelimelik bir metin belgesi içerisindeki herkez kelimesini herkes , merhaba kelimesini selam , abartı kelimesini mübalağa kelimesi ile vs vs değiştirmek istiyorum bunun için kod önerileriniz nedir yukarıdaki kodları tek tek ayarlayınca olmuyor
Mesela fonksiyon hazırlayan olmuş(@
baqz) yapman gereken şu;
Function KelimeDegistir(KaynakYazi, DegisecekOlan, DegismesiGereken: String): String;
var
S1: String;
begin
S1 := StringReplace(KaynakYazi, DegisecekOlan, DegismesiGereken, [rfReplaceAll, rfIgnoreCase]);
Result := S1;
end;
KelimeDegistir(Yazim.Text, 'Herkez', 'Herkes');
KelimeDegistir(Yazim.Text, 'Merhaba', 'Selam');
Bu şekilde alt alta ne kadar değiştirmek istiyorsan değiştirebilirisin.
Veya iki liste oluştur değişmesi gerekenler ve yeni kelimeler yeni değerleri diye, hepsini satır karşılığında yaz. Sonra for döngüsü olarak satır sayılarını eşitle otomatik varsa zaten listedekine göre alır düzeltir.
(18-05-2018, Saat: 22:11)hyperxman Adlı Kullanıcıdan Alıntı: [ -> ] (18-05-2018, Saat: 21:58)Paranoyaq Adlı Kullanıcıdan Alıntı: [ -> ]Konuyla alakalı ,
örneğin 500 kelimelik bir metin belgesi içerisindeki herkez kelimesini herkes , merhaba kelimesini selam , abartı kelimesini mübalağa kelimesi ile vs vs değiştirmek istiyorum bunun için kod önerileriniz nedir yukarıdaki kodları tek tek ayarlayınca olmuyor
Mesela fonksiyon hazırlayan olmuş(@baqz) yapman gereken şu;
Function KelimeDegistir(KaynakYazi, DegisecekOlan, DegismesiGereken: String): String;
var
S1: String;
begin
S1 := StringReplace(KaynakYazi, DegisecekOlan, DegismesiGereken, [rfReplaceAll, rfIgnoreCase]);
Result := S1;
end;
KelimeDegistir(Yazim.Text, 'Herkez', 'Herkes');
KelimeDegistir(Yazim.Text, 'Merhaba', 'Selam');
Bu şekilde alt alta ne kadar değiştirmek istiyorsan değiştirebilirisin.
Veya iki liste oluştur değişmesi gerekenler ve yeni kelimeler yeni değerleri diye, hepsini satır karşılığında yaz. Sonra for döngüsü olarak satır sayılarını eşitle otomatik varsa zaten listedekine göre alır düzeltir.
Çalışırlığını denediniz mi hocam ben yapamadım da ? Function'u tanımlayıp
KelimeDegistir(memo1.Text, 'Herkez', 'Herkes');
şeklinde denedim
(19-05-2018, Saat: 17:26)Paranoyaq Adlı Kullanıcıdan Alıntı: [ -> ] (18-05-2018, Saat: 22:11)hyperxman Adlı Kullanıcıdan Alıntı: [ -> ]Mesela fonksiyon hazırlayan olmuş(@baqz) yapman gereken şu;
Function KelimeDegistir(KaynakYazi, DegisecekOlan, DegismesiGereken: String): String;
var
S1: String;
begin
S1 := StringReplace(KaynakYazi, DegisecekOlan, DegismesiGereken, [rfReplaceAll, rfIgnoreCase]);
Result := S1;
end;
KelimeDegistir(Yazim.Text, 'Herkez', 'Herkes');
KelimeDegistir(Yazim.Text, 'Merhaba', 'Selam');
Bu şekilde alt alta ne kadar değiştirmek istiyorsan değiştirebilirisin.
Veya iki liste oluştur değişmesi gerekenler ve yeni kelimeler yeni değerleri diye, hepsini satır karşılığında yaz. Sonra for döngüsü olarak satır sayılarını eşitle otomatik varsa zaten listedekine göre alır düzeltir.
Çalışırlığını denediniz mi hocam ben yapamadım da ? Function'u tanımlayıp
KelimeDegistir(memo1.Text, 'Herkez', 'Herkes');
şeklinde denedim
Memo1.Lines.Text diye dener misin bir olacak mı diye?
Merhaba,
Burayı siz benim yerime doldurun. Ne diyeceğimi bilemedim...
Buyurun kodları da atayım;
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
type
TForm1 = class(TForm)
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Function KelimeDegistir(KaynakYazi, DegisecekOlan, DegismesiGereken: String): String;
var
S1: String;
begin
S1 := StringReplace(KaynakYazi, DegisecekOlan, DegismesiGereken, [rfReplaceAll, rfIgnoreCase]);
Result := S1;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Guncellendi: String;
begin
Guncellendi := KelimeDegistir(Memo1.Lines.Text, LabeledEdit1.Text, LabeledEdit2.Text);
Memo1.Lines.Text := Guncellendi;
end;
end.
(19-05-2018, Saat: 23:54)hyperxman Adlı Kullanıcıdan Alıntı: [ -> ]Merhaba,
Burayı siz benim yerime doldurun. Ne diyeceğimi bilemedim...
Buyurun kodları da atayım;
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
type
TForm1 = class(TForm)
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Function KelimeDegistir(KaynakYazi, DegisecekOlan, DegismesiGereken: String): String;
var
S1: String;
begin
S1 := StringReplace(KaynakYazi, DegisecekOlan, DegismesiGereken, [rfReplaceAll, rfIgnoreCase]);
Result := S1;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Guncellendi: String;
begin
Guncellendi := KelimeDegistir(Memo1.Lines.Text, LabeledEdit1.Text, LabeledEdit2.Text);
Memo1.Lines.Text := Guncellendi;
end;
end.
Hocam çok teşekkür ederim emeğinize sağlık
