| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

есть вхождение подстроки в строку [D6, WinXP]

laser ©   (2003-01-09 17:52:00) 

как узнать рядом (слева и права) стояшие слова СПАСИБО

---

laser   (2003-01-09 18:12:00) [1]

СПАСИБО !!! Verg !!!

---

Verg   (2003-01-09 17:59:00) [2]


function SeparateLeft(const Value, Delimiter: string): string;
var
x: Integer;
begin
x := Pos(Delimiter, Value);
if x < 1 then
Result := Trim(Value)
else
Result := Trim(Copy(Value, 1, x - 1));
end;

{==============================================================================}

function SeparateRight(const Value, Delimiter: string): string;
var
x: Integer;
begin
x := Pos(Delimiter, Value);
if x > 0 then
x := x + Length(Delimiter) - 1;
Result := Trim(Copy(Value, x + 1, Length(Value) - x));
end;


---

Mike Kouzmine   (2003-01-09 17:58:00) [3]

Pos ?

---

Наверх