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) я там регулярно пасусь.
А пока, прощаюсь. Успехов!
W Cat.
