memo ile ilgili ufak bir soru

[maqro]

abilerim bir memodaki bütün 'a' harflerini nasıl 'b' harfi yaparız?

kolay bir soru ama yeni sayılırım....

not:ewet arama yaptım:) birşeyler çıktı memo ile ilgili ama sanırım bu soruya cewap değiller, gözümden kaçan birşey olduysa kusuruma baqmayın...

[hdayi]

AnsiReplaceStr() ile memo'nun text özelliğini kullanarak yapabilirsin.

Kolay Gelsin

[maqro]

abicim biraz daha açabilirmisin?

[hdayi]

Arama yaparsan örnekleri mevcut.

Kolay Gelsin...

[maqro]

abi dediğin kodu arattım benim sorularımla alakasız şeyler çıktı.
ben sadece bir memodaki "a" harflrini nasıl "b" harfi yaparız onu soruyordum...

[hdayi]

Şimdi, bir memodaki a harflerinin nasıl b yapıldığını anlatan bir şey bulamazsın ama AnsiRaplaceStr'nin nasıl kullanıldığını anlatan
viewtopic.php?t=5357&highlight=ansireplacestr
viewtopic.php?t=10121&highlight=ansireplacestr
viewtopic.php?t=11171&highlight=ansireplacestr
bi çok yer bulabilirsin.

Kolay Gelsin...

[maqro]

ya abi kusura bakma ama zaten forumda olmadığı için yeni bir konu açtım ! zaten her konuyu forumda arıcaksak buraya yazmaları kaldıralım döküman arşiwine çewirelik !

ben yardım istiyorum sadece...

[hdayi]

Kod: Tümünü seç

Memo1.Text:=AnsiReplaceStr(Memo1.Text,'a','b');

istediğin bu sanırım

Verdiğim linklerde bunun nasıl yapıldığı anlatılıyordu, baksaydın ilave olarak bir kaç şey daha öğrenebilirdin.

[maqro]

tamam abi kızma saol warol....

ama emin ol hepsini okudum o linktekilerin de uygulamaya geçiremiom işte. belkide yawaş yawaş öğrenecem

[ozkanagiral]

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses StrUtils;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
memo1.Lines.Text := StringReplace(memo1.Lines.Text,edit1.Text,edit2.Text,[rfReplaceAll]);
end;

end.

[ozkanagiral]

açıklama yazmayı unuttum gerek varmı bilmiyorum ama yinede açıklama yapayım. 2 edit bileşeni biri aranacak kelime girişi için, edit2 ise yerine konulacak kelime girişi için memo1 bileşeni içindeki tüm eşleşenleri değiştirir. tabi edit bileşenlerini kullanıcıya giriş hakkı vermek istersen kullan eğer bu hakkı vermeyecek kod içinde yapacaksan editlerin yerin aranan ve değişecek cümleleri yaz. İyi çalışmalar