[Nekromant Set'а]

Вот возникла задача:
Надо удалить все пробелы из тикста находящигося в Memo. Кто знает как это сделать? 0_o

[mav_c]

Сообщение от Nekromant Set'а

Вот возникла задача:
Надо удалить все пробелы из тикста находящигося в Memo. Кто знает как это сделать? 0_o

Код:

uses StrUtils;

Memo.Lines.Text := AnsiReplaceStr(Memo.Lines.Text, ' ', '');

[Nekromant Set'а]

Гуд =) Спсб =) А есть способ это сделать вручную??? Там через циклы и т.д.

[mav_c]

Сообщение от Nekromant Set'а

Гуд =) Спсб =) А есть способ это сделать вручную??? Там через циклы и т.д.

Код:

var
 i, line  : integer;
 str : string;
begin
 for line := 0 to memo.Lines.Count - 1 do
 begin
  str := '';
  for i := 1 to length(memo.Lines.Strings[line]) do
  begin
   if (memo.Lines.Strings[line][i] <> ' ') then
    str := str + memo.Lines.Strings[line][i];
  end;
  memo.Lines[line] := str;
 end;
end;

[Winny]

Можно без циклов ещё вот так:

Код:

Memo1.Text:=StringReplace(Memo1.Text,' ','',[rfReplaceAll])

[Nekromant Set'а]

Спсб терь всё гуд...

[Winny]

Пожалуйста!

[Nekromant Set'а]

Ещё вопрос:
Как удалить все теги (<tag>) из текста Memo при помощи циклов???

[Winny]

То есть это все слова которые начинаются с символа "<' и заканчивается на ">"? И их надо удалить? Я правильно понял?

[Nekromant Set'а]

Да... Пробывал, но у меня получается медленный способ...

[Winny]

Можно ещё так: создать текстовые файл, записать в него все возможные названия тегов, а потом вставлять в переменную типа String строку из этого файла, после того, как StringReplace её удалит, перейти к следующей строчки файла. и так до конца. Понятно?

[Nekromant Set'а]

Попробуй расписать сам код, а потом посмотрим, чей быстрее Просто у меня надо профильтровать более чем 1000 строк, вот в этом вся и проблема...

[Winny]

Ап стол убица

[Winny]

Мне кажется быстро очитить Memo от тэгов невозвожно в принципе.

[Nekromant Set'а]

Напиши свой код, и я потом тебе кину свой =) У меня просто код громадный, там только переменных штук 6 объявляется, причём две из них - это объекты, так что лучше ты свой =)