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