Главная страница
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.017 c
4-92799
DeMoN-777
2002-09-16 10:14
2002.10.28
Програмное нажатие кнопки в чужом окне


3-92375
PAVELsinicinV
2002-09-29 20:27
2002.10.28
Добавить ещё один столбец в существующую таблицу ...


6-92634
Mostak
2002-08-28 11:10
2002.10.28
NMFTP не работает?


1-92547
Jel
2002-10-15 17:24
2002.10.28
Окошко, не желающее становиться активным


14-92717
Anatoly Podgoretsky
2002-10-04 09:26
2002.10.28
С днем рождения Павел Озерский