Текущий архив: 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.018 c