var
i:integer;
begin
Memo2.Clear;
for i:=1 to StrToInt(Edit1.Text) do
Memo2.Lines.Add(IntToStr(i));
удалить все Nые строки из memo
Доброго времени суток товарищи программисты.
Помогите пожалуйста решить следующею проблему.
Суть вопроса в следующем!
Имеется мемо со следующими данными
1
2
3
4
5
вот данные записаны в строку.
Здесь мы создаем наш список.
теперь следующие!
необхадимо удалить скажем каждую 3 строку из мемо
в итоге получим
1
2
3
4
5
создали наш список
далее
1
2
пусто т к удалил 3стоку
4
5
далее
пусто т к удали 1 строку
2
4
5
далее
2
4
пусто т к удалил 5 строку
далее
пусто т к удалил 2 строку
4 осталось
значит если взять список из 5 строк и удалять каждую 3 строку то останется 3
как добиться такова результата??
Помогите пожалуйста решить следующею проблему.
Суть вопроса в следующем!
Имеется мемо со следующими данными
1
2
3
4
5
вот данные записаны в строку.
Код:
Здесь мы создаем наш список.
теперь следующие!
необхадимо удалить скажем каждую 3 строку из мемо
в итоге получим
1
2
3
4
5
создали наш список
далее
1
2
пусто т к удалил 3стоку
4
5
далее
пусто т к удали 1 строку
2
4
5
далее
2
4
пусто т к удалил 5 строку
далее
пусто т к удалил 2 строку
4 осталось
значит если взять список из 5 строк и удалять каждую 3 строку то останется 3
как добиться такова результата??
Так вроде можно:
Или с удалением строк:
Код:
i:=3;
while i<Memo2.Lines.Count do begin
Memo2.Lines='';
i:=i+3;
end;
while i<Memo2.Lines.Count do begin
Memo2.Lines='';
i:=i+3;
end;
Или с удалением строк:
Код:
i:=3;
while i<Memo2.Lines.Count do begin
Memo2.Lines.Delete(i);
i:=i+2;
end;
while i<Memo2.Lines.Count do begin
Memo2.Lines.Delete(i);
i:=i+2;
end;