Tüm yorumlar için teşekkür ediyorum bir konu içerisinde birçok yararlı bilgi oldu. Herkeşe ben rep : )
Konuyu Oyla:
Kelime Değiştirme
|
10-02-2018, Saat: 16:07
(07-02-2018, Saat: 01:34)hyperxman Adlı Kullanıcıdan Alıntı: Allah allah yaw, az önce onu kodluyordum. Kalp kalbe karşı imiş 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;
10-02-2018, Saat: 17:45
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
18-05-2018, Saat: 21:58
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: 22:11
(Son Düzenleme: 18-05-2018, Saat: 22:47, Düzenleyen: Halil Han BADEM.)
(18-05-2018, Saat: 21:58)Paranoyaq Adlı Kullanıcıdan Alıntı: Konuyla alakalı , 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ı , Ç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:34
(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; Memo1.Lines.Text diye dener misin bir olacak mı diye?
19-05-2018, Saat: 21:03
(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 Olumsuz
19-05-2018, Saat: 23:54
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.
20-05-2018, Saat: 00:07
(19-05-2018, Saat: 23:54)hyperxman Adlı Kullanıcıdan Alıntı: Merhaba, Hocam çok teşekkür ederim emeğinize sağlık |
« Önceki Konu | Sonraki Konu »
|
Konu ile Alakalı Benzer Konular | |||||
Konular | Yazar | Yorumlar | Okunma | Son Yorum | |
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 |
|
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