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

Вниз

надо проверить её на наличее двух одинаковых символов   Найти похожие ветки 

 
Beginer1 ©   (2002-10-02 19:52) [0]

Доброго времени суток.
Вопрос может показаться простым, но я не волшебник, я только учусь
ближе к суте:
генерируесся строкаю надо проверить её на наличее двух одинаковых символов, но так чтобы была одна пара одинаковых символов
Пример:
bydstik - не подходит (нет одинаковых символов)
tyuiopv - не подходит (нет одинаковых символов)
awrcayu - подходит (одна пара одинаковых символов)
fghjvfv - не подходит (две пары одинаковых символов)
qrqucrn - не подходит (две пары одинаковых символов)
thgotpt - не подходит (больше двух одинаковых символов)


А потом проверить на наличие этой строки в Memo1 и если нет то занести


 
TTCustomDelphiMaster ©   (2002-10-02 20:28) [1]

Несколько мыслей по поводу...

1. Обнуляете массив
k: array [0..255] of integer;

2. for i := 1 to Length(str) do
inc(k[ord(str[i])]);

3. n2p := 0; // то что Выс интересует
n3p := 0; // то что Вам не нужно

for i := Low(k) to High(k) do
begin
if k[i] = 2 then inc(n2p);
if k[i] > 2 then inc(n3p);
end;

4. if (n2p=1) and (n3p=0) then подходит;

5. F1 - TStringList.Duplicates

Оптимизируйте по вкусу ;)


 
MsGuns ©   (2002-10-02 22:33) [2]

fleq:=false
if Length(Stroka)>1 then
for i:=1 to Length(Stroka)-1 do
if Pos(Stroka[i],Copy(Stroka,i+1,Length(Stroka)-i)>0 then
begin
fleq:=true;
break;
end;


 
Beginer1 ©   (2002-10-07 17:59) [3]

Спасибово :)



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

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

Наверх




Память: 0.47 MB
Время: 0.018 c
1-92505
OMPH!!!
2002-10-18 15:11
2002.10.28
Проигрывание звука звуковой схемы.


1-92579
[BAD]Angel
2002-10-10 14:58
2002.10.28
Как сделать скриншот с компьютера в локальной сети?


8-92612
Deadlock
2002-06-30 05:30
2002.10.28
Тормоза DelphiX


1-92607
mafiya
2002-10-17 10:43
2002.10.28
Информация о CD-ROM диске


3-92392
Шурик Ш
2002-10-08 13:10
2002.10.28
Помогите составить запрос