procedure TForm1.suiButton44Click(Sender: TObject);
var
uzunluk:integer;
begin
uzunluk:=length(suimemo1.Text);
suimemo1.Text:=copy(suimemo1.Text,0,uzunluk-1);
end;
bu kodla siliyorum ama sildiktem sonra tekrar yazma işlemi sırasında sildigi yerden degil de en bastan yazmaya baslıyor bu konu hakkında bana yardım edebilirmisiniz işin içinden cıkamadım.
- Çözüm için SelStart'ı kullanabilirsin. Bir Memo olduğu gibi TEdit ile de aynı şekilde işlem yapabilirsin... Bunu bir butondan yaptığını düşünerek en sona bir de SetFocus ekledim ki tekrar Memo'ya dönsün...
var
uzunluk:integer;
begin
uzunluk:=length(suimemo1.Text);
suimemo1.Text:=copy(suimemo1.Text,0,uzunluk-1);
suimemo1.SelStart := Length(suimemo1.Text);
SuiMemo1.SetFocus;
end;
yardımlarınız için ikinizede cok tesekkur ederim.
mrmcop'un verdigi kodlar tam aradıgım kodlar.sorunumu hallettim ama
bu kodlarla silerken eskisine nazaran daha yavaş silme yapıyor buna birsey ekleyerek silme işini hızlandırabilirmiyim?
coderlord yazdı:Ben mi yanlış anladım acaba? Memo içeriğini tümüyle silmek için Memo1.Clear yeterli.
@coderlord bende ilk başta öyle sanmıştım ama @secret_boy un kodunu deneyince BackSpace gibi silmekten bahsettiğinin farkettim.
Bu arada ilk mesajı ben gönderdim zannediyorum ama @mrmcop hızlı davranmış
Çok tesekkur ederim hersey için saolun.bunlar tam aradıgım kodlardı.sayenizde hallettim ve bir kısmı bitti simdi bunu paket programlar bolumune koyup diger arkadasların yorumlarını ögrenmek istiyorum.Eger forumca bir sakıncası yoksa.
Cevabınızı bekliyorum.Kolay gelsin.
....
