-
procedure TForm1.DELbtn3Click(Sender: PObj);
begin
klm1.DeleteLines(klm1.Count,0);
end;
подскажите как правильно удалять строки
-
In a memo or in a listview ?
in memo
klm1.deletelines(0{start}, klm1.count{count})
-
procedure TForm1.Button1Click(Sender: PObj);
begin
memo1.text:='';
end;
-
не сосем то - это удаляет весь текст из memo, я хочу лишь строчку с позиции курсора удалить
добавляю строку вот таким кодом:
procedure TForm1.ADDbtn2Click(Sender: PObj);
begin
klm1.Add (('Íîâàÿ ñòðîêà')+#13#10);
end;
- может это не правильный метод?
-
не сосем то - это удаляет весь текст из memo, я хочу лишь строчку с позиции курсора удалить
добавляю строку вот таким кодом:
procedure TForm1.ADDbtn2Click(Sender: PObj);
begin
klm1.Add (('Новая строка')+#13#10);
end;
- может это не правильный метод?
-
-
-
Удалить строку, в которой находится каретка, можно так:
var CurLineIdx: Integer;
...
CurLineIdx := Memo.Pos2Item(-1);
Memo.DeleteLines(CurLineIdx, CurLineIdx);
-
Спасибо огромное Дмитрию К.
Получается что метод Add тоже неправильный т.к. после метода DeleteLines он возвращает затёртое и прибавляет новую строку - вобщем буду признателен за просвещение и этого метода
-
у меня получилось так:
//Очистить
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;
Уважаемые Мастера - поправьте если что не так
-
//Добавить
procedure TForm1.ADDbtn2Click(Sender: PObj);
begin
klm1.Text;
klm1.add(('Новая строка')+#13#10);
end;
понял что так правильно
-
вопрос к знатокам:
как загружаться в мемо из файла?
-
разобрался:
procedure TForm1.KOLFormShow(Sender: PObj);
begin
klm1.Text:=StrLoadFromFile('memo.txt');
end;
-
ещё вопрс:
как перемещать курсор?