Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Kelime Değiştirme
#21
(20-05-2018, Saat: 00:07)Paranoyaq Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(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

Rica ederim hocam, REP ile süsle bende mutlu olayım  Heart
May the force be with you!
Cevapla
#22
(20-05-2018, Saat: 00:12)hyperxman Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlRica ederim hocam, REP ile süsle bende mutlu olayım  Heart
Herzaman hocam +rep
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
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
  Dil Değiştirme gonulali 2 96 05-06-2018, Saat: 12:05
Son Yorum: gonulali
  sql like ile birden fazla kelime arama erdogan 10 291 08-05-2018, Saat: 17:41
Son Yorum: erdogan
  Sayıyı değiştirme serhat 7 515 12-06-2017, Saat: 23:51
Son Yorum: serhat
  [Çözüldü] Timer ile resim değiştirme Lord_Ares 4 600 16-04-2017, Saat: 04:09
Son Yorum: Lord_Ares
  Karakter rengini değiştirme izmirlikemal 2 1.122 23-11-2016, Saat: 23:45
Son Yorum: izmirlikemal



Konuyu Okuyanlar: 1 Ziyaretçi