Главная страница
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.025 c
14-62846
Dmitriy_R
2002-12-24 07:34
2003.01.20
Сервис Win 2000 (NT)


1-62594
Andrey V.
2003-01-09 08:58
2003.01.20
Картинка в FreeReporte


8-62677
nsvi
2002-09-30 11:32
2003.01.20
Предлагаю решение проблемы сохранения 256-цветных иконок


14-62788
Tornado
2002-12-31 14:02
2003.01.20
Система управления сайтом


14-62801
Anatoly Podgoretsky
2003-01-01 01:25
2003.01.20
С Новым Годом