E
ExtrEmAl
Я вот написал програмку, на которой я эксперементировал с функиями строки. Хотел создать чтото типа текстового буфера обмена, работающего только в моей проге
У меня получился такой код:
И в этой проге не хочит работать функция Insert()...
Кто может прогляните, плизз, и обьясните в чем проблема!
Заранее очень благодарен.
У меня получился такой код:
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
PopupMenu1: TPopupMenu;
Copy1: TMenuItem;
Paste1: TMenuItem;
procedure Copy1Click(Sender: TObject);
procedure Paste1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
s:string;
sel:integer;
implementation
{$R *.dfm}
procedure TForm1.Copy1Click(Sender: TObject);
begin
sel:=Length(Memo1.SelText);
s:=Copy(Memo1.SelText, 0, sel);
end;
procedure TForm1.Paste1Click(Sender: TObject);
var
ut:string;
i:integer;
begin
ut:=Memo1.Text;
i:=Memo1.CaretPos.X;
Insert(s, ut, i);
end;
end.
И в этой проге не хочит работать функция Insert()...
Кто может прогляните, плизз, и обьясните в чем проблема!
Заранее очень благодарен.