Проверка на палиндромность!!!

[MNaz]

Делфи. Есть Мемо, в котором в каждой новой строке записаны числа, в двоичном коде. Нужно сосчитать кол-во палиндромных(тех, которые справа в лево и наоборот одинаково читаются: 10101, 110011, 1001, 1). В общем пока все хорошо получается, но совет не помешает! Главный вопрос: как запретить вводить в мемо другие символы, кроме 1 и 0 ??

[Stilet]

в OnKeyPress пропиши

if not (key in ['1','0']) then key:=#0;

[MNaz]

Спасиб, напомни код бекспеса, вспомнил только ентер)

Ненадо, вспомнил - #08 )

[MNaz]

А еще: как разобрать слово(очередность символов) по букве(символу). Например в моем случае как 001100 получить каждую цифру в отделюную переменную? (типа: a=0, b=0, c=1, d=1, e=0, f=0 ? ) В работе с символами новичек!

[Step_UA]

конкретно в твоем случае, s - номер строки, i-номер символа

Memo1.Lines.Strings[s][i]

[Вадим Мошев]

А еще: как разобрать слово(очередность символов) по букве(символу). Например в моем случае как 001100 получить каждую цифру в отделюную переменную? (типа: a=0, b=0, c=1, d=1, e=0, f=0 ? ) В работе с символами новичек!

Зачем? Можно ведь к строке обращаться, как к элементам массива.
То есть

var s: string;
begin
s:='001100 ';

for i:=1 to length(s) do
         Memo1.Lines.Add(s[i]); // например вот что можно сделать
end;
//...

[MNaz]

Ребят, спасибо) читаю сейчас темы 5-ти летней давности, и с себя ржу