Форум: "Основная";
Текущий архив: 2003.09.15;
Скачать: [xml.tar.bz2];
Внизсравнение строк Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c