• митя (20.08.14 01:12) [0]
    procedure TForm1.DELbtn3Click(Sender: PObj);
    begin
     klm1.DeleteLines(klm1.Count,0);
    end;

    подскажите как правильно удалять строки
  • Thaddy © (20.08.14 09:38) [1]
    In a memo or in a listview ?
    in memo

    klm1.deletelines(0{start}, klm1.count{count})
  • RusSun © (20.08.14 18:32) [2]
    procedure TForm1.Button1Click(Sender: PObj);
    begin
    memo1.text:='';
    end;
  • митя (20.08.14 22:02) [3]
    не сосем то - это удаляет весь текст из memo, я хочу лишь строчку с позиции курсора удалить

    добавляю строку вот таким кодом:
    procedure TForm1.ADDbtn2Click(Sender: PObj);
    begin
    klm1.Add (('Íîâàÿ ñòðîêà')+#13#10);
    end;
    - может это не правильный метод?
  • митя (20.08.14 22:02) [4]
    не сосем то - это удаляет весь текст из memo, я хочу лишь строчку с позиции курсора удалить

    добавляю строку вот таким кодом:
    procedure TForm1.ADDbtn2Click(Sender: PObj);
    begin
    klm1.Add (('Новая строка')+#13#10);
    end;
    - может это не правильный метод?
  • А не проще ли ... (20.08.14 22:06) [5]
  • А не проще ли ... (20.08.14 22:06) [6]
  • Дмитрий К © (21.08.14 00:11) [7]
    Удалить строку, в которой находится каретка, можно так:
    var CurLineIdx: Integer;
    ...
     CurLineIdx :=  Memo.Pos2Item(-1);
     Memo.DeleteLines(CurLineIdx, CurLineIdx);

  • митя (21.08.14 01:35) [8]
    Спасибо огромное Дмитрию К.
    Получается что метод Add тоже неправильный т.к. после метода DeleteLines он возвращает затёртое и прибавляет новую строку - вобщем буду признателен за просвещение и этого метода
  • митя (21.08.14 02:01) [9]
    у меня получилось так:
            //Очистить
    procedure TForm1.CLRbtn1Click(Sender: PObj);
    begin
      klm1.clear;
    end;
          //Добавить
    procedure TForm1.ADDbtn2Click(Sender: PObj);
    begin
     klm1.Text;
     klm1.DeleteLines(klm1.Pos2Item(-1), klm1.Pos2Item(-1));
    klm1.add(('Новая строка')+#13#10);
    end;
        //Удалить
    procedure TForm1.DELbtn3Click(Sender: PObj);
    begin
    klm1.DeleteLines(klm1.Pos2Item(-1), klm1.Pos2Item(-1));
    end;

    Уважаемые Мастера - поправьте если что не так
  • митя (22.08.14 20:59) [10]
    //Добавить
    procedure TForm1.ADDbtn2Click(Sender: PObj);
    begin
    klm1.Text;
    klm1.add(('Новая строка')+#13#10);
    end;
    понял что так правильно
  • митя (24.11.14 02:31) [11]
    вопрос к знатокам:
    как загружаться в мемо из файла?
  • митя (24.11.14 03:23) [12]
    разобрался:

    procedure TForm1.KOLFormShow(Sender: PObj);
    begin
    klm1.Text:=StrLoadFromFile('memo.txt');
    end;
  • митя (24.11.14 10:28) [13]
    ещё вопрс:

    как перемещать курсор?
Есть новые Нет новых   [134427   +34][b:0][p:0.001]