На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS

Дорогие друзья! Поздравляем вас с Новым 2018 годом!

Всем удачи, успеха и благополучия!
В новом году ожидаем новых рекордов при подсчёте количества ёлочек на экране ;)


msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.


Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
  
> Значение с базы данных, Запрос к базе данных SQL
    Добрый день.
    Подключился к базе данных SQL, проблем не возникло.
    Не получается получить правильно результат.

    Делаю запрос к базе данных. Для понимания результата что получаю попробовал вывести результат в Memo.

    ExpandedWrap disabled
      var
        i: integer;
        s : string;
      begin
        with FDQuery1 do begin
        SQL.Clear;
        Open;
        Memo1.Lines.Clear;
        First;
        while not FDQuery1.EOF do
        begin
          s := '';
          For i := 0 to Fields.Count - 1 do
          s := s + Fields[i].AsString;
          memo1.Lines.Add(Fields[0].Value);
          Next;
        end;
        Close;
        end;
      end;


    Помогите пожалуйста с данной проблемой. Оформить в одну процедуру.
    Сообщение отредактировано: Myrus -
      Мои религиозные убеждения не позволяют мне комментировать код.
      Моё мировоззренье таково: в программе комментария ни одного!
        Никогда с ними не работал, статью посмотрел, для меня сложно с таким разобраться.
          Хелп :)
          0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script Execution time: 0,0697 ]   [ 18 queries used ]   [ Generated: 22.01.18, 16:11 GMT ]