Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.20;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
6-62686
Viksoft
2002-11-20 22:37
2003.01.20
Как написать свой DNS сервер


14-62740
KIR
2003-01-04 12:05
2003.01.20
Народ, у кого стоит RxLib+D7? Нормально работает?


14-62838
Val
2003-01-02 18:47
2003.01.20
Как спрятать курсор?


1-62475
Ag2002
2003-01-09 18:54
2003.01.20
Sender


1-62460
SeGo
2003-01-08 11:19
2003.01.20
Графики