Tüm Platformlar için Hızlı Uygulama Geliştirme Kitabı... Delphi
Ön Sipariş Talebinde Bulunan Üyelerimiz
Sipariş Talebinde Bulunan Üyelerimiz

Konuyu Paylaş : facebook gplus twitter

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ı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlAllah 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
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#15
(18-05-2018, Saat: 21:58)Paranoyaq Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlKonuyla 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.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#16
(18-05-2018, Saat: 22:11)hyperxman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(18-05-2018, Saat: 21:58)Paranoyaq Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlKonuyla 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
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#17
(19-05-2018, Saat: 17:26)Paranoyaq Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(18-05-2018, Saat: 22:11)hyperxman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMesela 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?
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#18
(19-05-2018, Saat: 17:34)hyperxman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(19-05-2018, Saat: 17:26)Paranoyaq Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlÇ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
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
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.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#20
(19-05-2018, Saat: 23:54)hyperxman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba,


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
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Bileşen Özelliklerini Değiştirme SercanTEK 7 314 26-10-2018, Saat: 11:10
Son Yorum: SercanTEK
  Overbyte SSLSmtpCli Open SSL path değiştirme ahmet_sinav 5 164 12-10-2018, Saat: 10:23
Son Yorum: ahmet_sinav
  Dil Değiştirme gonulali 2 253 05-06-2018, Saat: 12:05
Son Yorum: gonulali
  sql like ile birden fazla kelime arama erdogan 10 544 08-05-2018, Saat: 17:41
Son Yorum: erdogan
  Sayıyı değiştirme serhat 7 776 12-06-2017, Saat: 23:51
Son Yorum: serhat



Konuyu Okuyanlar: 1 Ziyaretçi