Witam szystkich!
Mam male pytanko względem Memo lub Richedit. Mam jakis wyraz w jednej lini, chce aby po zaznaczeniu i nakliknięciu na jakis button do wyrazu zostały dodane dwa inne("z przodu i tyłu"):
tekst
klikniecie na button(wyraz jest zaznaczony);
tekst
Bardzo prosze o pomoc! [cygaro]
Spróbuj tak.
procedure TForm1.Button1Click(Sender: TObject);
var
S,S2 : string;
begin
S := Richedit1.SelText;
S2:=button1.Caption + S + Button1.Caption;
Richedit1.SelText := S2;
end;
Dziękuje wszystkim za odpowiedz!!! [cya]
| = kursor tekstu
_ = zaznaczenie
|tekst
var left,right:string;sel:string;ss:string;
poz:integer;
begin
left:='';
right:='';
sel:=memo.seltext;
ss:=left+sel+right;
memo.seltext:=sel;
memo.selstart:=memo.selstart+length(left);
memo.sellength:=length(sel);
end;
PS. moze niedziałać:)