Search options (Page 30 of 61)

tmpTag := UpperCase(Trim(Tags[i]));

var
  tmpList: TStringList;
...
  tmpList := TStringList.Create;
  tmpList.Add('SELECT');
  tmpList.Add('FROM');
  ...
  if tmpList.IndexOf( tmpTag ) >= 0 then
  begiin
  ...
  end;

procedure frmImageEdit_TagTimer_OnTimer (Sender: TObject);
// обработка списка тегов в редакторе тегов
var
  i: integer;
  Tags: array of string;
  s: string;
  tmpTag: string;
  tmpETag: string;
begin
  TagTimer.Enabled := False; // оставновить таймер
  s := frmImageEdit.redTags.Text; // взять данные о тегах
  frmImageEdit.redTags.Clear; // очистить редактор
  // запятые заменить пробелами, убрать перевод строки и двойные пробелы
  s := ReplaceStr(s,',',' ');
  s := ReplaceStr(s,chr(13),' ');
  s := ReplaceStr(s,'  ',' ');
  Tags := SplitString( s,' '); // получить список тегов в виде строкового массива
  for i := 0 to length(Tags) - 1 do
  begin
    tmpTag := Trim(Tags[i]); // на всякий случай, чтобы остался только текст
    if (tmpTag <> '') then
    begin
      // ищем тег в базе
      tmpETag := VarToStr( SQLExecute('SELECT name FROM tag WHERE upper( name ) = upper("'+tmpTag+'")') );
      // если не найден, то
      if tmpETag = '' then
      begin // вставляем тег в написании пользователя, но с заглавной первой буквой, жёлтым цветом
        tmpTag := UpperCase(copy(tmpTag,1,1)) + copy(tmpTag,2,length(tmpTag)-1);
        frmImageEdit.redTags.InsertTextEx(tmpTag,$00FFFF,11,0,'Segoe UI')
      end // если найден, то вставляем в написании из базы, белым цветом
      else
        frmImageEdit.redTags.InsertTextEx(tmpETag,$FFFFFF,11,0,'Segoe UI');
     // добавляем пробел
     frmImageEdit.redTags.InsertTextEx(' ',$FFFFFF,11,0,'Segoe UI');
    end;
  end;
end;

// локализация сообщения при авторизации.
procedure Login_OnClick( Sender:TObject; var Cancel:boolean );
// обработчик нажатия новой кнопки
var
  tmpMD5: string;
  tmpUsername: string;
  // так как у комбобокса нет имени, то найти его можно только полным перебором компонентов
  function GetCombo: TdbComboBox;
  //
  var
    i: integer;
  begin
    for i := 0 to frmdbCoreLogin.componentCount - 1 do
    begin
      if frmdbCoreLogin.Components[i] is TdbCombobox then
      begin
        Result := TdbCombobox( frmdbCoreLogin.Components[i] );
        exit;
      end;
    end;
  end;
begin
  // в зависимости от режима ввода логин находится в поле ввода
  if frmdbCoreLogin.edLogin.Visible then
    tmpUsername := frmdbCoreLogin.edLogin.Text
  else // или в выпадающем списке
    tmpUsername := GetCombo.Text;
  // вычисляем код, хранящийся в базе
  tmpMD5 := StrToMD5( frmdbCoreLogin.edPassword.Text + tmpUserName );
  // если соотвествующей записи в базе нет, то
  if SQLExecute('SELECT count(*) FROM _user WHERE username = "'+tmpUserName+'" AND password = "'+tmpMD5+'" ') = 0 then
    // выдаем наше локализованное сообщение
    // то, из-за чего весь сыр-бор и состоялся ))))
    MessageBox('Что-то пошло не так...','Ошибка', MB_ICONWARNING + MB_OK )
  else // если все нормально, то
  begin // нажимаем стандартную кнопку логина
   SendMessage( frmdbCoreLogin.bLogin.handle , wm_LButtonDown, 0, 0);
   sleep(100);
   SendMessage( frmdbCoreLogin.bLogin.handle , wm_LButtonUp, 0, 0);
 end;
end;

procedure Init;
var
  tmpLoginButton: TdbButton;
begin
  // создаем новую кнопу
  tmpLoginButton := TdbButton.Create( frmdbCoreLogin );
  tmpLoginButton.Parent := frmdbCoreLogin;
  // размещаем на месте стандартной
  tmpLoginButton.Top := frmdbCoreLogin.bLogin.Top;
  tmpLoginButton.Left := frmdbCoreLogin.bLogin.Left;
  tmpLoginButton.Width := frmdbCoreLogin.bLogin.Width;
  tmpLoginButton.Height := frmdbCoreLogin.bLogin.Height;
  tmpLoginButton.Caption := frmdbCoreLogin.bLogin.Caption;
  tmpLoginButton.Font := frmdbCoreLogin.bLogin.Font;
  // теперь новая кнопка будет срабатывать от Enter
  tmpLoginButton.Default := True;
  // назначаем обработчик
  tmpLoginButton.OnClick := 'Login_OnClick';
  // старую кнопку прячем
  frmdbCoreLogin.bLogin.Visible := False;
end;

begin
  Init;
end.

...
MessageBox('Verkeerde naam/wachtwoord','Fout', MB_ICONWARNING + MB_OK )
...

procedure Form1_Memo1_OnClick (Sender: TObject);
var
  s: string;
  i: integer;
  StartPos, EndPos: integer;
begin
  s := Form1.Memo1.Lines[ Form1.Memo1.CaretPosY ];
  for i := Form1.Memo1.CaretPosX downto 1 do
  begin
    StartPos := i;
    if s[i] = ' ' then break;
  end;
  for i := StartPos + 1 to length(s) do
  begin
    EndPos := i;
    if s[i] = ' ' then break;
  end;
  s := Trim(Copy(s,StartPos,EndPos-StartPos+1));
  case s of
  'два': Form2.ShowModal;
  'три': Form3.ShowModal;
  end;
end;