Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Kelime Değiştirme
#11
Tüm yorumlar için teşekkür ediyorum bir konu içerisinde birçok yararlı bilgi oldu. Herkeşe ben rep : )
Cevapla
#12
(07-02-2018, Saat: 01:34)hyperxman Adlı Kullanıcıdan Alıntı: Allah allah yaw, az önce onu kodluyordum. Kalp kalbe karşı imiş Smile

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;
Cevapla
#13
Yukarıda Cyber'in yazdığı fonksiyonlara bakarsanız AnsiReplaceText tam da sizin KelimeDegistir'in yaptığını yapıyor. Yeniden fonksiyon tanımlamak gereksiz.
There's no place like 127.0.0.1
WWW
Cevapla
#14
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
Cevapla
#15
(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.
kisisel_logo_dark.png
WWW
Cevapla
#16
(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
Cevapla
#17
(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?
kisisel_logo_dark.png
WWW
Cevapla
#18
(19-05-2018, Saat: 17:34)hyperxman Adlı Kullanıcıdan Alıntı:
(19-05-2018, Saat: 17:26)Paranoyaq Adlı Kullanıcıdan Alıntı: Ç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?

Olumsuz
Cevapla
#19
Merhaba,


Burayı siz benim yerime doldurun. Ne diyeceğimi bilemedim...

j6PBAL.gif



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.
kisisel_logo_dark.png
WWW
Cevapla
#20
(19-05-2018, Saat: 23:54)hyperxman Adlı Kullanıcıdan Alıntı: Merhaba,


Burayı siz benim yerime doldurun. Ne diyeceğimi bilemedim...

j6PBAL.gif



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
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Exclamation dosya özellikleri değiştirme erdogan 1 295 09-10-2023, Saat: 16:09
Son Yorum: hi_selamlar
  Tarih formatını değiştirme Nedim 3 693 12-10-2022, Saat: 08:28
Son Yorum: frmman
  Devexpress cxgrid gruplama bilgisi değiştirme cinarbil 3 1.160 18-07-2022, Saat: 08:42
Son Yorum: m_ekici
Sad Hex değiştirme programı Mehmet01 4 1.705 24-01-2021, Saat: 20:06
Son Yorum: Mehmet01
  Çalışma anında bileşen isimlerini değiştirme kurucu76 2 1.173 11-11-2020, Saat: 09:14
Son Yorum: kurucu76



Konuyu Okuyanlar: 1 Ziyaretçi