Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
04.06.2010, 20:59
|
|
Познающий
Регистрация: 06.05.2010
Сообщений: 34
Провел на форуме:
20723
Репутация:
0
|
|
Удаление пустых строк
У меня очень простой вопрос:
Как удалить пустые строки и строки состоящие только из пробелов из memo1?
Я пробовал 2 варианта:
1. вариант (более эффективный)
Код:
i:= 0; While i <> Memo1.Lines.Count - 1 do begin if Length(Memo1.Lines.Strings[i])=0 then begin Memo1.Lines.Delete(i); dec(i); end; inc(i); Next; end;
Но все равно в середине или еще где то остается пара пустых строк и строки состоящие из пробелов тоже остаются.
Это АНТИВАРИАНТ. Проблема не решена!
2. вариант. (Ваще не эффективный)
Код:
for i:=0 to memo1.lines.count-1 do if memo1.lines.strings[i]='' then memo1.lines.delete(i);
Не нужных строк остается гораздо больше.
Я долго немог найти ответ в Гугле. Но истина где то рядом...
Я думаю должно быть простое и гениальное решение для этой НЕВЕРОЯТНО трудно задачи!  |
|
|
04.06.2010, 21:07
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290
Репутация:
29
|
|
Попробуй так:
PHP код:
for i:=memo1.lines.count-1 downto 0 do
begin
if memo1.lines.strings[i]='' then
memo1.lines.delete(i);
end;
|
|
|
|
04.06.2010, 21:08
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
Провел на форуме:
1085601
Репутация:
110
|
|
используй trim(Memo1.Lines.Strings[i]) вместо Memo1.Lines.Strings[i] в условиях.
во втором варианте цикл неверный, количество меняется при удалении строки. верно будет for i:=memo1.lines.count-1 downto 0 do
|
|
|
|
04.06.2010, 21:11
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
тему научись сначало правильно называть, затем хоть почитай доку по делфи, и тока потом называй это НЕВЕРОЯТНО трудной задачей.
тебе реально достаточно пробежаться по всем элементам и сравнить по двум условиям
1) пустая строка. просто проверяй <> '';
2) проверя строку на пробелы. циклом прогоняй по всем символам и если символ не пробел, то строку оставляй в покое. тоже самое и на табуляторы проверяй.
Хотя можеш и trim заюзать, но всё равно могут быть еще непечатные символы, которые трим может пропустить случайно
|
|
|
|
04.06.2010, 21:14
|
|
Познающий
Регистрация: 28.01.2009
Сообщений: 90
Провел на форуме:
432613
Репутация:
80
|
|
Код:
SL: TStringList;
function CheckPattern(s: string; c: char): boolean;
begin
Result:=true;
for i:=1 to Length(s) do
if s[i]<>c then begin Result:=false; break; end; // если не пробел то строка не валидная
end;
SL:=TStringList.Create;
for i:=0 to SL.Count-1 do
if (Length(SL.Strings[i])=0) or (CheckPattern(SL.Strings[i], #32)) then SL.Delete(i);
SL.Free;
Должно все работать) |
|
|
|
04.06.2010, 21:15
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
229
|
|
Как удалить пустые строки и строки состоящие только из пробелов из memo1?
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i, i2, schetchik: integer;
current_str: string;
begin
for i:=0 to Memo1.Lines.Count-1 do
begin
schetchik:=0;
if memo1.lines.strings[i]='' then
begin
memo1.lines.delete(i);
end;
for i2:=1 to length(Memo1.Lines.Strings[i]) do
begin
current_str:=Memo1.Lines.Strings[i];
if current_str[i2]=' ' then inc(schetchik);
if schetchik=length(Memo1.Lines.Strings[i]) then memo1.lines.delete(i);
end;
end;
end;
|
|
|
|
04.06.2010, 21:48
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
Пустая строка в мемо это на самом деле #13#10, т.е. как бы не совсем пустая
|
|
|
|
05.06.2010, 08:51
|
|
Познающий
Регистрация: 06.05.2010
Сообщений: 34
Провел на форуме:
20723
Репутация:
0
|
|
Не работает
Сообщение от wolmer
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i, i2, schetchik: integer;
current_str: string;
begin
for i:=0 to Memo1.Lines.Count-1 do
begin
schetchik:=0;
if memo1.lines.strings[i]='' then
begin
memo1.lines.delete(i);
end;
for i2:=1 to length(Memo1.Lines.Strings[i]) do
begin
current_str:=Memo1.Lines.Strings[i];
if current_str[i2]=' ' then inc(schetchik);
if schetchik=length(Memo1.Lines.Strings[i]) then memo1.lines.delete(i);
end;
end;
end;
Проверил - это АНТИВАРИАНТ. 
После первого нажатия на кнопку - почти ничо не удаляет.
Нажимаю 2,3,4,5 раз - более менее что то удалило, но все же остаются строки из пробелов.
Решение не найдено.
|
|
|
|
05.06.2010, 08:56
|
|
Познающий
Регистрация: 06.05.2010
Сообщений: 34
Провел на форуме:
20723
Репутация:
0
|
|
Не работает
Сообщение от TrueBit
Попробуй так:
PHP код:
for i:=memo1.lines.count-1 downto 0 do
begin
if memo1.lines.strings[i]='' then
memo1.lines.delete(i);
end;
Проверил - тоже не работает.
Остаются и пустые строки и строки из пробелов.
|
|
|
|
05.06.2010, 09:01
|
|
Познающий
Регистрация: 06.05.2010
Сообщений: 34
Провел на форуме:
20723
Репутация:
0
|
|
Не работает
Сообщение от flacs
Код:
SL: TStringList;
function CheckPattern(s: string; c: char): boolean;
begin
Result:=true;
for i:=1 to Length(s) do
if s[i]<>c then begin Result:=false; break; end; // если не пробел то строка не валидная
end;
SL:=TStringList.Create;
for i:=0 to SL.Count-1 do
if (Length(SL.Strings[i])=0) or (CheckPattern(SL.Strings[i], #32)) then SL.Delete(i);
SL.Free;
Должно все работать) Проверил. Не работает. Остаются и пустые строки и строки из пробелов.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
