Memo & pointer

Odgovori Nova tema

4 odgovora
3.210 pregleda

Memo & pointer 16.05.2002. u 11:35 · pre 297 meseci #1

Postovanje,

treba mi code koji ce mi recimo
kada dodajem pomocu button-a neki tekst u memo
(memo1.lines.add('neki tekst') prvo naci poziciju
pointera |, pa zatim iza njega dodati a ne stalno
jedno ispod drugog?

Nadam se da ste me razumeli
Hvala.

Re: Memo & pointer 16.05.2002. u 15:12 · pre 297 meseci #2

Ubaci na formu memo, editbox i button,
na onClick buttona, ide nesto slicno ovome:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
   i:word;
   CPos:word;
   MText:string;
begin
CPos:=Memo1.SelStart;
MText:=memo1.Text;
insert(edit1.Text,MText,Cpos+1);
memo1.Text:=MText;
end;

Ovaj kod ubacije text iz editboxa na posiciju caret-a u memo

Potpis

People who think they know everything tend to irritate those of us who do.

Re: Memo & pointer 23.05.2002. u 01:03 · pre 297 meseci #3

Postovanje,

ovaj code lepo radi samo ima jednu gresku koju ne mogu da provalim
kad god dodam nesto ono POINTER stavi na pocetak teksta, kako to da ispravim?

Hvala!

Re: Memo & pointer 23.05.2002. u 13:38 · pre 297 meseci #4

Kod radi, samo ti si prevideo da kad memo1 nema focus onda selstart je -1,
zato samo izmeni malo taj isti kod.

Deklariraj
CPos:word; kao globalnu

A ovaj red

Code:
CPos:=Memo1.SelStart;

samo prebaci u Memo1.OnExit;

Potpis

People who think they know everything tend to irritate those of us who do.

Re: Memo & pointer 23.05.2002. u 20:49 · pre 297 meseci #5

Ne vredi, ovo ne moze ni da radi
stavio sam CPos:word; kao globalnu promenljivu.
i tamo memo1.onexit;
ali ne vredi, ne moze da se iskompajlira

>> Not Enough Actual Parametars << memo1.onexit;|

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme