Форум: "Основная";
Текущий архив: 2003.01.20;
Скачать: [xml.tar.bz2];

Вниз

есть вхождение подстроки в строку   Найти похожие ветки 

← →
laser   (2003-01-09 17:52) [0]

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

---

← →
Mike Kouzmine   (2003-01-09 17:58) [1]

Pos ?

---

← →
Verg   (2003-01-09 17:59) [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;


---

← →
laser   (2003-01-09 18:12) [3]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.01.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.01 c