S. D. F.
Шрифт:
– Посему, изменяем RunSQL
В разделе переменных добавляем:
LPos : integer; // позиция ошибки
– Между строками 330 и 340 добавляем текст:
330 begin // была ошибка
331 Memo1.Clear;
332 Memo1.Lines.Add(S); // перезапись запроса одной строкой
333 LPos := GetSelStart(Mistake); // поиск места ошибки
334 if LPos > -1 then begin
335 Memo1.SelStart := LPos-1; // вкл индикатора
336 Memo1.SelLength := 1;
337 Memo1.SetFocus;
338 Panel5.Caption := IntToStr(LPos); //
339 end;
340 ShowMessage(Mistake); // сообщение об ошибке
– Как видишь, GetSelStart получает строку с описанием ошибки и пытается найти там информация о ее позиции:
function GetSelStart(S: string):integer;
var
i, n : integer;
ss : string;
begin
result := -1;
n := pos('column ',S);
if n > 0
then begin
delete(S,1,n+6);
ss := '';
for i := 1 to length(s) do
if S[i] in ['0'..'9']
then ss := ss + s[i]
else break;
if ss <> '' then
result := StrToInt(ss);
// ShowMessage(S);
end;
end;
– Согласись, тут все довольно просто. Но результат, впечатляет.
– Да, как всегда, что-то да упустишь, во-первых, в компоненте Memo1 измени свойство HideSelection на false – очень помогает, и второе под этим Memo поставь панельку (у меня это Panel5), которая будет показывать текущее положение курсора в строке, для этого вставь обработчик:
procedure TFMain.Memo1Click(Sender: TObject);
begin
Panel5.Caption := IntToStr( Memo1.SelStart );
end;
* Ну, ты загонял, то тут добавить, то там исправить.
– С моей точки зрения, это нормальная работа. Программа, как и живое существо, не рождается полностью функционирующей. Растем, развиваемся, главное, четко понимать, почему и для чего производятся эти манипуляции…
– Ну, что, теперь, твоя очередь тестировать программу.
– * -
– * -
– Ну, как успехи. Выходит?
* И входит, и выходит. Вообще-то мне нравится, но я обнаружил бревно в твоем глазу.
* Как-то раз вылезло такое сообщение:
“Cannot perform operation - DB is currently open”
– Так, так, в каких обстоятельствах появилась ошибка.
* Я отрывал базу.
– И чё сея строчка значит?
* Грит не может выполнять работу – база сейчас открыта.
– Объясни понятнее.
* Т.е. не может открыть базу, потому, что она уже открыта.
– Не обязательно она, но какая-то база открыта.
* Ну, и чего делать?
– Конечно, исправлять.
* Как?
– Думай.
* Ну, если какая-то база открыта, надо ее закрыть.
– Отлично, вот тебе две строчки, вставь их в двух местах… где сам найдешь.
if IBDatabase1.Connected then
IBDatabase1.Connected := false;
* Ты хочешь сказать, что все было запланировано?
– J
– Еще, есть целый ряд ситуаций в книге [1]
которые формально не являются ошибкой, но…* Ну-ка, ну-ка.
– Например такой запрос:
SELECT first.cname, second.cname, first.rating
FROM Customers first, Customers second
WHERE first.rating=second.rating;
* И в чем прикол?
– Попробуй.
* Останавливается на слове second.
– Я тоже не сразу понял, открой в книге [2] список зарезервированных слов.
* Да, не все йогурты одинаковы.
– Как и реализации SQL, но, все они полезны.
* Еще я заметил, что в некоторых случаях запросы выполняется, но порядок строк, не такой как в книге [1].
– Это, та же ситуация. Разные реализации SQL имеют разные установки (по умолчанию) для сортировки, т.е. если будет явно задан порядок, тогда таблица должны 100% совпасть.
* Так, что, задача выполнена?
– Нет, не совсем.
* И в чем дело, какие-то исправления?
– Поправки? Да, так, по мелочи, SetFocus для Memo1 при сбросах.
* И что дает?
– Попробуй, удобнее. Но как сказано это мелочь, а интереснее двигаться дальше.
* А куда дальше, мне кажется, что у меня появилось понимание SQL. Правда, хочется еще раз внимательно перечитать книгу [1].
– Это хорошо, но требуется еще понимание Firebird.
* ?
– Ну, вот сейчас, мы выяснили, что требуется знать зарезервированные слова Firebird. Но в этой системе есть и много вкусненького, что грех не использовать.
* Например?
– Мне очень нравится организация функции AutoIncrement.
– Часто в таблица нужно ключевое поле с уникальными значениями, проще всего его заполнять значениями счетчика.
– Знакомься:
CREATE GENERATOR gl;
SET GENERATOR gl TO 1;
CREATE TRIGGER Persons FOR Persons
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
IF (NEW.P_Id IS NULL) THEN
NEW.P_Id = GEN_ID(gl, 1);
END
// (- * -) умножить примерно на 1024.
* Продолжение следует??
– Даже не знаю, что тебе ответить. Предыдущий текст я писал примерно год назад, затем запал спал, появились новые задачи, то да сё, сам понимаешь.
* Не отбрешешься!
– Да, помнится, были задумки, но чтобы продолжить надо опять сосредоточится в нужное состояние, лень! А стоит ли!
* А я?!
– Ну, давай прикинем, сколько это будет «я». Скачают, сей файл раз 100 – 200, если отфильтровать скачки по ошибке, удаленные по прочтении двух предложений, прочтенные, но не понятые, и тд и тп, то останется 0.75 читателя, пусть из вежливости будет 1.
Так вот, мой дорогой единственный читатель, ежели тебе, почему-то захотелось продолжения нашего общения, оставь отзыв на флибусте (flibusta.net) я там регулярно пасусь.