Буфер

[Черничный]

парни! такая темка! Отловил я сообщение изменения буфера, считал, надо найти в тексе считаном собаку "@" и если есть, то скопировать все влево и вправо. Весь e-mail. Как реализовать такое?

[puporev]

Надо знать сколько знаков влево и вправо, или какие-то особые признаки начала и конца e-mail, иначе никак.

[dr.Chas]

ну почему, если я правильно понял. То в любому нормальном тексте эмейл будет отделён пробелами.

var s, lef, rig:string;
    k, i:integer;
begin
  lef:='';
  rig:='';
  s:='Текст с мылом kuky@mail.ru';
  k:=Pos('@',s);
  i:=k-1;
  while i<>0 do
  begin
    if s[i]<>' ' then lef:=s[i]+lef
    else break;
    dec(i);
  end;
  i:=k+1;
  while i<>Length(s)+1 do
  begin
    if s[i]<>' ' then rig:=rig+s[i]
    else break;
    inc(i);
  end;
  //Ну и соотвествено левая часть эмейла в переменой lef
  //правая в rig
end;

Ну и когда ща стал писать сообщение, понял возможен вариант с запятой или точкой ну это уж вы сами доделаете.

[Черничный]

ну ништяк, брат, спасибо, будем работать

[puporev]

возможен вариант с запятой или точкой ну это уж вы сами доделаете.

А я о чем?

признаки начала и конца e-mail

[dr.Chas]

Сообщение от puporev

А я о чем?

К чему этот вопрос?