работа с copy(s,1,2), Delete(s,1,2) и Pos( ; ,s)

← →
Konus (2007-04-18 09:05) [0]

задача такая:
приходит сообщение, надо распознать, кому оно предназначено и показать текст адресатам
нашел пример чата, там реализовано примерно так:

простое сообщение:
if Copy(s,1,2) = "#M" then begin
Delete(s,1,2);
Memo1.Lines.Insert(0,Copy(s,1,Pos(";",s)-1)+"> "+
Copy(s,Pos(";",s)+1,Length(s)-Pos(";",s)));

это, как я понимаю, мы определили что M - message, общее сообщение
далее берем часть строки до ; - имя, добавляем > и текст сообщения от ; до конца

приватное сообщение:
if Copy(s,1,2) = "#P" then begin
Delete(s,1,2);
to_ := Copy(s,1,Pos(";",s)-1);
Delete(s,1,Pos(";",s));
from_ := Copy(s,1,Pos(";",s)-1);
Delete(s,1,Pos(";",s));

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

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

← →
Konus (2007-04-18 09:10) [1]

если я вставлю еще какой-то специальный символ, указывающий на начало текста, как его определить?

сначала цикл добавления имен в список адресатов по такой схеме
пока не нашел специальный символ
Copy(s,1,Pos(";",s)-1);
Delete(s,1,Pos(";",s));

а потом Copy(s,Pos("СПЕЦСИМВОЛ",s)+1, Length(s)-Pos(";",s)) - текст сообщения?

если так, то каким образом сделать цикл до нахождения специального символа?

← →
Sha © (2007-04-18 10:29) [2]

Проще всего этих нескольких адресатов разделять запятой.

И еще, начиная с D7, есть PosEx - так что можно обойтись без Delete

← →
Konus (2007-04-19 11:29) [3]

спасибо
D5 стоит :/

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

Предлогаю заветсти класс «Сообщение» где и инкапсулирвать весь этот разбор.

работа с copy(s,1,2), Delete(s,1,2) и Pos( ; ,s) Найти похожие ветки