сравнение строк -?

[Evgenii]

procedure TForm1.ButtonClick(Sender: TObject);
begin
if Edit1.Text='password' then
Edit2.Text:='Пароль верный'
else
Edit2.Text:='Неверно';
end;

Этот код работает следующим образом: если в edit1 и edit2 введени значения 12,34,56 и 12,34,56, значит все правильно, пароль верный. В любом другом случае, пароль неверный.
И значит вот какой вопрос: как бы сделать так чтобы, если мы вводим часть правильного значения, например 12,34 или 12 или 34 или 12,56 то пароль тоже был бы верным?
То есть программа как бы проверяет, если введенный фрагмент присутствует в кодовом слове, значит все в порядке, иначе неверно (например 21 или 12,43)

[Evgeniy26]

Смотри Pos. Разбивай введенную строку на значения и смотри вхождение данного значения в пароль. Если все введенные значения входят, тогда давай допуск.

[Evgenii]

что такое Pos? и где его смотреть?

[Evgeniy26]

Pos и PosEx(StrUtils) - функции поиска подстроки в строке. Поиск.

[Пепел Феникса]

if Pos(Edit1.text,'12,34,56')<>0 then //значит часть строки '12,34,56' присутствует в Эдите
а вообще Pos, выделить его, и нажать F1

[Evgenii]

а если сравниваются значения в 2х ячейках dbedita?

[Evgeniy26]

Вот пример, но его еще дорабатывать надо. Например: если пароль 56,66,55 и ввели 56,55,55 он даст труе, придумай подсчет повторений. Или пароль тоже разбивай и подсчитывай значения.

var
  index, i: Integer;
  IsPassword: String;
  Digit: array of String;
begin
  IsPassword := Edit1.Text;
  if Length(IsPassword) = 0 then
    exit;
  SetLength(Digit, 0);
  index := 1;
  while PosEx(',', IsPassword,  index) > 0 do
  begin
    SetLength(Digit, Length(Digit) + 1);
    Digit[High(Digit)] := Copy(IsPassword, index,
    PosEx(',', IsPassword,  index) - index);
    index := PosEx(',', IsPassword,  index) + 1;
  end;
  SetLength(Digit, Length(Digit) + 1);
  Digit[High(Digit)] := Copy(IsPassword, index, Length(IsPassword));
  index := 0;
  for i := 0 to High(Digit) do
    if Pos(Digit[i], Edit2.Text) > 0 then
      Inc(index);
  if index = Length(Digit) then
    Caption := 'Yes'
      else
        Caption := 'No';

Думаю идея понятна.

[Evgenii]

попробую разобраться. спасибо

[QunneD]

var
  i, k : integer;
  s : string;
begin
  s := edit1.text;
  k := 0;

  i := pos('12', s);
  if i > 0 then begin k := k+1; end else begin k := k-1; end;
  i := pos('34', s);
  if i > 0 then begin k := k+1; end else begin k := k-1; end;
  i := pos('56', s);
  if i > 0 then begin k := k+1; end else begin k := k-1 end;

  if k > 0 then
  showmessage('пароль правильный')
  else
  showmessage('пароль неправильный')
end;

[Stilet]

если введенный фрагмент присутствует в кодовом слове, значит все в порядке

Дык что ж это за пароль, который можно подобрать за десять (ато и меньше) ходов?