editte veya memode bir isaretten sonrasi..

[gloryboy]

merhabalar,

editte veya memo satirinde ornegin /isaretinden sonraki yazilari almak istiyorum yani ;

bugun okula /geldim

bunu butona basınca edit2 ye geldim olarak atacak , nasil yapabilirim [/b]

[mrmarman]

- String Operasyonlardan Pos , Length ve Copy komutları işini görecektir.

- Pos komutu bir karakterin kaçıncı sırada olduğunu bildirir. Length yazının kaç karakterden oluştuğunu öğrenmeye, Copy ise belli karakterden itibaren yine belirlenen karakter kadarını kopyalamaya yarar.

Uzun örnek:

Kod: Tümünü seç

Var
  Yazi         : String;
  Bolum        : String;
  KarakterYeri : Integer;
  Uzunluk      : Integer;
begin
  Yazi := Edit1.Text;
  KarakterYeri := Pos('/', Yazi);
  If KarakterYeri > 0 then begin
    Bolum := Copy(Yazi, KarakterYeri+1, Length(Yazi)-KarakterYeri);
    ShowMessage(Bolum);
  end else ShowMessage('Bölme Yok');
end;

Kısa örnek:

Kod: Tümünü seç

  If Pos('/', Edit1.Text) > 0 then begin
    ShowMessage( Copy(Edit1.Text, Pos('/', Edit1.Text)+1, Length(Edit1.Text)-Pos('/', Edit1.Text)) );
  end else ShowMessage('Bölme Yok');