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

Вниз

подскажите как определить код символа табуляции в тексте   Найти похожие ветки 

 
апельсин== ©   (2003-03-25 13:45) [0]

задача. из текста выбрать отдельные слова.
слова разделены либо пробелами(вопросов не вызывает)либо табуляцией.


 
Palladin ©   (2003-03-25 13:48) [1]

код символа табуляции #9


 
snake1977   (2003-03-25 13:53) [2]

Функция выдает лексему № n из строки S с разделителем лексем L
например:
myStr:=GetLex(2,"ффф#$еее#$yyyyy","#$");
..
результат: myStr:="eee"

в твоем случае параметр L=#9

Function GetLex(n:Integer; s:String; l:String):String;
Var i:Integer;
lx,st:String;
Begin
If S<>"" Then
Begin
lx:="";
i:=1;
st:=s;
Delete(st,Length(l)+1,Length(st)-Length(l));
While (st<>l) and (s<>"") do
Begin
lx:=lx+s[1];
Inc(i);
Delete(s,1,1);
st:=s;
Delete(st,Length(l)+1,Length(st)-Length(l));
End;
Delete(s,1,Length(l));
If n>1 Then lx:=GetLex(n-1,s,l);
End
Else
lx:="";
GetLex:=lx;
End;


 
апельсин== ©   (2003-03-25 13:57) [3]

спасибо



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

Текущий архив: 2003.04.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
14-19778
Vad
2003-03-18 02:21
2003.04.07
До начала конца осталось 72 часа?


14-19781
Vint
2003-03-19 14:19
2003.04.07
Прикол всем любителям Буша !


14-19818
race1
2003-03-19 12:00
2003.04.07
opera 7


6-19732
Vampire
2003-02-11 18:51
2003.04.07
Перекачка


1-19583
Кот Джин
2003-03-28 14:52
2003.04.07
Как сделать, чтобы Edit не пикал?