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

Вниз

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

 
elf   (2003-09-02 15:15) [0]

Нужно сравнить edit1.tex со строкой, где 1-й символ "a", далее любые символы, за ними "f", и далее один любой символ. Как это записать?

if edit1.tex="a"+*+"f"+$


 
MBo ©   (2003-09-02 15:20) [1]

matchesmask


 
KSergey ©   (2003-09-02 15:23) [2]

Это задание для курсовой или к следующей лабе? А подумать?

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

i: integer;

if (Length(edit1.text) > 3) AND (edit1.text[1] = "a") then
begin
i := Pos("f", edit1.text);
if (i > 1) AND (Length(edit1.text) = i+1) then
// УРА! именно то что надо!!
end;


 
KSergey ©   (2003-09-02 15:24) [3]

2 MBo © (02.09.03 15:20)

Ух ты, все уже написано до нас... Спасибо за подсказку.


 
KSergey ©   (2003-09-02 15:25) [4]

2 MBo © (02.09.03 15:20)++

Просто пока писал - вы раньше опубликовали, я еще не видел ;)


 
MBo ©   (2003-09-02 15:30) [5]

>KSergey
конечно, в частных случаях эффективнее свою функцию писать бывает, что-то вроде
l:=length(s);
if (l>=3) and (s[1]="a") and (s[l-1]="f")



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

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

Наверх




Память: 0.47 MB
Время: 0.033 c
1-48545
ZoKr
2003-09-02 05:32
2003.09.15
Excel Copy


1-48637
lipskiy
2003-08-30 21:40
2003.09.15
Как заставить работать прокрутку колесом в TWebBroiwser...


4-48839
Пубертанец
2003-07-16 11:36
2003.09.15
Как сделать кнопку в другой прикладухе Enabled из своей прикладух


3-48475
lesalesa
2003-08-22 17:31
2003.09.15
Перерисовка scrollbar в dbGrid?


9-48390
Paroplan
2003-03-02 11:19
2003.09.15
Кто знает как увеличить кол-во оперативки под делфи а?