[ Sole_boy @ 16.05.2002. 10:35 ] @
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.
[ Riste Pejov @ 16.05.2002. 14:12 ] @
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
[ Sole_boy @ 23.05.2002. 00:03 ] @
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!
[ Riste Pejov @ 23.05.2002. 12:38 ] @
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;
[ Sole_boy @ 23.05.2002. 19:49 ] @
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;|