Как из мемо вытащить слова содержащие символ @

← →
Delon (2007-06-17 17:37) [0]

Очень прошу помочь возникла вот такая проблемка. Заранее огромное спасибо!!!
Как из мемо вытащить слова содержащие символ @ и записать выбранные слова в другое memo

← →
ferr © (2007-06-17 17:49) [1]

такие вещи обычно делаются регулярными выражениями

← →
Delon (2007-06-17 17:51) [2]

> такие вещи обычно делаются регулярными выражениями

какими скажи пожалуйста поподробнее

← →
Johnmen © (2007-06-17 18:00) [3]

А как просто слова вытащить знаешь?

← →
Delon (2007-06-17 18:03) [4]

> А как просто слова вытащить знаешь?

нет

← →
Anatoly Podgoretsky © (2007-06-17 18:11) [5]

> Delon (17.06.2007 18:03:04) [4]

Вот с этого и начни, а @ это уже мелкие буквы.
Заодно дай определение, что такое слово, иначе не получится.

← →
Delon (2007-06-17 18:15) [6]

> Заодно дай определение, что такое слово, иначе не получится.

нужно вытащить набор символов разделяющимися друг от друга пробелом и содержащие символ @

← →
Anatoly Podgoretsky © (2007-06-17 18:18) [7]

> Delon (17.06.2007 18:15:06) [6]

CommaText + Delete

← →
Delon (2007-06-17 18:21) [8]

> Anatoly Podgoretsky © (17.06.07 18:18) [7]

очень прошу покажи как это делается поподробнее

← →
Anatoly Podgoretsky © (2007-06-17 18:22) [9]

> Delon (17.06.2007 18:21:08) [8]

Надо понимать, что ты уже посмотрел справку и что то в ней не понял, а что именно?

← →
Delon (2007-06-17 18:51) [10]

i:=1; //начинаем с 1
while i<=Length(s) do //i может равняться последнему символу
begin
if s[i]="*" then
begin
inc(k);
if k mod 2<>0 then
begin
st:=copy(s,i-1,1); //копировали
delete(s,i,1); //удалили
insert(st,s,i); //вставили, теперь значение i тут монижать не надо
end;
end;
inc(i); //изменяем i только здесь
end;

так наверное на большее не способен

var
i,pos1:integer;
sobaki:TStrings;
begin
try
sobaki := TStringList.Create;
except
end;
Memo1.text := AnsireplaceStr(Memo1.text," ",#13#10);
for i:=0 to Memo1.Lines.Count-1 do
begin
pos1 := pos("@",Memo1.lines[i]);
if pos1<>0 then
begin
sobaki.add(Memo1.lines[i]);
end;
end;
end;

А вдруг он спамер, молодой.. =)

Сейчас нет толку спамить мыла, это вчерашний день

Как из мемо вытащить слова содержащие символ @ Найти похожие ветки