Отсечение нужного кода

[-HunteR-]

Я сделал клиента и сервера на TServerSocket & TClientSocket, но не в этом дело(я о том, что не надо тему переносить в раздел про сетевое программирование):
Клиент шлет серверу текст, например:"привет*мой_ник*как_дела?"

Вопрос: Как в Edit1 записать "привет", тоесть текст, который идет до первой звездочки, в Edit2 - текст, который после перовой звездочки, а в Edit3 - текст, который после второй звездочки???

Вопрос2: Можно ли наоборот, отсекать вначале "как_дела", как например если есть адрес файла: "C:\Folder\Folder\file.exe", как мне отсечь только file.exe и записать его в один из Edit???

[Makarov]

Вопрос 1:сообщение клиента серверу - это прока и рассматривайте ее как массив символов. То есть по цикл проверяйте посимвольно, пока не встретится символ '*'. Считайте количество символов до звездочки и разбивайте полученную строку на 3 строки.

[-=<[Evklidd]>=-]

Можно использовать функцию Pos(p,s:string):byte, которая ищет в строке s подстроку p и возвращает номер первого символа строки s, с которого начинается строка p или 0,если строка p не была найдена. Тогда вашу разбивку строки на три можно организовать так (Delphi):

s:= 'привет*мой_ник*как_дела?';// ваша строка
 x:= Pos('*',s); // находим первую звездочку
 Edit1.Text:= Copy(s,1,x-1); // все, что до нее, копируем в Edit1 
 Delete(s,1,x);// удаляем из строки то, что скопировали + сама звездочка 
 x:= Pos('*',s);// вновь ищем '*', но находим уже ту, что была второй
 Edit2.Text:= Copy(s,1,x-1);// опять копируем
 Delete(s,1,x); // удаляем 
 Edit3.Text:= s;// в третий Edit вставляем то, что осталось

[-HunteR-]

-=<[Evklidd]>=-
Вот это как раз и нужно было!!! Спасибо!!

[-HunteR-]

А второй вопрос, никто не знает???

[-=<[Evklidd]>=-]

Ну почему же, знаем, можно так file.exe отсечь:

var
 s, s1, s2: string;
 k: integer;
begin
 s:= 'C:\Folder\Folder\file.exe';
 for k:= Length(s) downto 1 do
  s1:= s1 + s[k]; // переворачиваем строку
 k:= Pos('\',s1);// находим первый слэш
 s2:= Copy(s1,1,k-1);// копируем то, что до него
 s1:= '';// освобождаем вспомогательную строку
 for k:= Length(s2) downto 1 do
  s1:= s1 + s2[k];// обратно переворачиваем
 Edit1.Text:= s1;// вывод в Edit
end;

[-HunteR-]

Большре спасибо, -=<[Evklidd]>=-