С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Pavel_34
0 / 0 / 0
Регистрация: 03.10.2013
Сообщений: 13
1

Тыкните носом, а то я не пойму

09.02.2014, 00:12. Просмотров 856. Ответов 1
Метки нет (Все метки)

Помогите перевести на украинский всплывающее окно. Я полный чайник, кидайте тапки в пол силы)
0
Вложения
Тип файла: 7z БД_Щоденник.7z (346.6 Кб, 11 просмотров)
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.02.2014, 00:12
Ответы с готовыми решениями:

Ткните носом
Привет всем. Есть проблемка напиал программу по обработке текстового файла. Но...

Тыкните носом
Не могу найти на этом форуме часть с оплачиваемым программированием. Год назад...

Тыкните в ошибку пожалуйста(условия)
Написал простенький код,но почему-то после ввода имени,программа сразу пишет...

Непонятки с кодом, пожалуйста тыкните в ошибку
Пишу код и хочу создать "сетку" из текстов куда потом загружу значения из...

Не могу найти ошибку, подскажите и тыкните в нее:)
Задание: Пользуясь ассемблерными вставками в Pascal написать программу...

1
PsyhXxX
2 / 2 / 3
Регистрация: 28.01.2014
Сообщений: 32
09.02.2014, 03:43 2
Лучший ответ Сообщение было отмечено Pavel_34 как решение

Решение

нажми меню Run > Trace to Next Source Line
и появится следующий код
Кликните здесь для просмотра всего текста
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
// Главный модуль программы Организатор.
// Чтобы его увидеть, выберите в меню
// Project команду View Source.
program org;
 
uses
  Forms,
  org_ in 'org_.pas' {Form1},
  SysUtils,Dialogs,
  DateUtils,  // для доступа к IncDay
  DBTables;   // для доступа к Session, AddStandardAlias
 
{$R *.res}
 
var
  Present: TDateTime;       // сегодня
  NextDay: TDateTime;       // следующий день
  Year, Month, Day : Word;  // год, месяц, день
 
  Query: TQuery; // запрос, обеспечивающий
                 // создание БД (таблицы)
begin
  Application.Initialize;
  Application.Title := 'Ежедневник';
  Application.CreateForm(TForm1, Form1);
 
 { Псевдоним для доступа к базе данных создается во
   время запуска программы и существует только во
   время работы программы.
   База данных находится в том же каталоге, что
   и выполняемый файл программы. Имя каталога,
   в котором находится выполняемый файл можно получить
   обратившись к функции ParamStr. }
 
 // создадим псевдоним
 with Session do
 begin
    ConfigMode := cmSession;
    AddStandardAlias('diary',   // псевдоним БД
                      ExtractFilePath(ParamStr(0)), // каталог
                     'PARADOX');
 end;
 
 // определим текущую дату
  Present:= Now; // Now - функция, возвращает текущую дату и время
  DecodeDate(Present, Year, Month, Day);
 
  case {dof} DayOfWeek(Present) of
    6:   NextDay := IncDay(Present,3);   // пятница
    7:   NextDay := IncDay(Present,2);   // суббта
    else NextDay := IncDay(Present,1)
  end;
 
  // запрос к базе данных: есть ли дела, запланированные
  // на сегодня и ближайшие дни
  Form1.Query1.SQL[3] :=
         '(Data >= '''+ FormatDateTime('dd/mm/yyyy',Present)+''')' +  'and'+
         '(Data <= '''+ FormatDateTime('dd/mm/yyyy',NextDay)+''')';
 
  try
    Form1.Query1.Open;  // выполнить запрос
 
  except
    on E:EDBEngineError do
        // Ошибка при выполнении запроса может
        // быть вызвана тем, что файла базы данных нет.
        // Предложить пользователю создать
        // файл базы данных.
        begin
            MessageDlg('Файл таблицы базы данных не найден .'+#13+
            'Таблица будет создана.',mtWarning,[mbYes],0);
 
            Query := TQuery.Create(Form1);
            with Query do
            begin
                // сформируем запрос, обеспечивающий
                // создание БД
                SQL.Add('CREATE TABLE diary (');
                SQL.Add('What CHAR(80),');
                SQL.Add('Data DATE);');
 
                ExecSQL;
            end;
            // таблица создана
            Form1.Query1.Open; // выполним запрос
        end;
  end;
 
 
  if Form1.Query1.RecordCount <> 0  // есть дела, запланированные на ближайшие дни
    then
        Form1.DataSource1.DataSet := Form1.Query1
    else
        begin
            Form1.DataSource1.DataSet := Form1.Table1;
            Form1.Table1.Open;
            ShowMessage('На сегодня и ближайшие дни' +
                        'ни каких дел не запланировано.');
        end;
 
  Application.Run;
end.

далее измени то что тебе нужно
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.02.2014, 03:43

Ткните носом в ошибку
Подскажите ошибку. Говорит syntax error в 19-ой строке (даже местный хайлайтер...

Ткните носом в ошибку
Есть задача: отсеять по шаблону строки, которые не содержат выражение needle....

Ткните носом в ошибку сегментации. С++
Вроде все правильно,но тем не менее я слеп.Спасибо. #include &lt;iostream&gt;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru