Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Memo & pointer

[es] :: Pascal / Delphi / Kylix :: Memo & pointer

[ Pregleda: 2516 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Sole_boy

Član broj: 2486
Poruke: 58
*.ptt.yu



Profil

icon Memo & pointer16.05.2002. u 10:35 - pre 266 meseci
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.
 
Odgovor na temu

Riste Pejov
Team Leader/Senior Software Developer @
Ein-Sof ltd Skopje
Skopje, Macedonia

Član broj: 128
Poruke: 571
212.110.78.*

Jabber: richie@bagra.net.mk
ICQ: 154236769
Sajt: riste.softver.org.mk


Profil

icon Re: Memo & pointer16.05.2002. u 14:12 - pre 266 meseci
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
People who think they know everything tend to irritate those of us who do.
 
Odgovor na temu

Sole_boy

Član broj: 2486
Poruke: 58
*.ptt.yu



Profil

icon Re: Memo & pointer23.05.2002. u 00:03 - pre 266 meseci
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!
 
Odgovor na temu

Riste Pejov
Team Leader/Senior Software Developer @
Ein-Sof ltd Skopje
Skopje, Macedonia

Član broj: 128
Poruke: 571
212.110.78.*

Jabber: richie@bagra.net.mk
ICQ: 154236769
Sajt: riste.softver.org.mk


Profil

icon Re: Memo & pointer23.05.2002. u 12:38 - pre 266 meseci
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;
People who think they know everything tend to irritate those of us who do.
 
Odgovor na temu

Sole_boy

Član broj: 2486
Poruke: 58
*.ptt.yu



Profil

icon Re: Memo & pointer23.05.2002. u 19:49 - pre 266 meseci
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;|
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Memo & pointer

[ Pregleda: 2516 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.