Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
1-48592
МаХиМ
2003-09-03 17:20
2003.09.15
Загрузка Дельфи


3-48447
sash2
2003-08-25 08:12
2003.09.15
Копирование из одного Dbf файла в другой Dbf файл.


1-48498
Calm
2003-09-02 17:13
2003.09.15
Корректно ли создать в методе TThread.Execute VCL-компоненты?


6-48661
Maverick
2003-07-15 18:49
2003.09.15
какой компонент?


1-48567
Man
2003-09-03 13:02
2003.09.15
Как в своё приложение встроить чужую программу





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский