1. Акция на весь декабрь! Получай оплату х2 за уникальные статьи, объемом от 200 слов, если в заголовке темы и теле статьи присутствует слово Python
    Скрыть объявление

Помогите с функциями строки!

Тема в разделе "Delphi - FAQ", создана пользователем ExtrEmAl, 23 сен 2006.

Статус темы:
Закрыта.
  1. ExtrEmAl

    ExtrEmAl Гость

    Я вот написал програмку, на которой я эксперементировал с функиями строки. Хотел создать чтото типа текстового буфера обмена, работающего только в моей проге
    У меня получился такой код:

    Код (Text):
    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()...
    Кто может прогляните, плизз, и обьясните в чем проблема!
    Заранее очень благодарен.
     
  2. Barmutik

    Barmutik Гость

    Что то не совсем понятно что происходит в Вашей функции где используется Insert

    Вы получили текст из мемо контрола

    Взяли позицию курсора

    Потом пытаетесь вставить в пустую строку hel с позиции курсора весь текст из ut и на этом всё ..

    В итоге так и не понятно чего Вы хотели добиться ...
     
  3. ExtrEmAl

    ExtrEmAl Гость

    Извиняюсь, я не тот код выложил... :angry:
    Я отредактировал сообщение, нормальный код в нем, но он все равно не работает...
    Опять же что то в функции Insert. :) :) Помогите, пожалуйста...
     
  4. zubr

    zubr Гость

    Код (Text):
    procedure TForm1.Paste1Click(Sender: TObject);
    var
    ut:string;
    i:integer;
    begin
    ut:=Memo1.Text;
    i:=Memo1.CaretPos.X;
    Insert(s, ut, i);
    Memo1.Text:=ut;//;)
    end;
     
  5. ExtrEmAl

    ExtrEmAl Гость

    О-о-о... Чтото я протупил:) :) Извините, не додумался. А до чего же бывают простые вещи... И до чего же долго до них пытаешся додуматся. :ph34r:
    Извините еще раз, чето я не додумался... А решение ведь до ужаса простое!
    Я просто не был внимателен, и просто пока учусь:( Спасибо за помощь!
     
Загрузка...
Похожие Темы - Помогите функциями строки
  1. limbra
    Ответов:
    3
    Просмотров:
    42
  2. NylevoiChelovek
    Ответов:
    4
    Просмотров:
    93
  3. Ruska132
    Ответов:
    34
    Просмотров:
    250
  4. gURaBA_N
    Ответов:
    7
    Просмотров:
    140
  5. uxbmw3w
    Ответов:
    0
    Просмотров:
    58
Статус темы:
Закрыта.

Поделиться этой страницей