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

Вниз

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

← →
Alx2   (2002-02-18 12:53) [6]


function GetValue(Const subStr,FromStr:String):String;
Var id : Integer;
begin
Result := "";
Id := pos(subStr,FromStr);
if Id>0 then
begin
Result := Copy(FromStr,Id+Length(SubStr),Length(FromStr));
Id := pos(",",Result);
if Id>0 then
SetLength(Result,Id-1);
end;
end;

Пример:
GetValue("1=","1=aaa,2=bbbb,7=ccc,4=qqq") = "aaa"

---

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

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

Наверх

Память: 0.43 MB
Время: 0.005 c