Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Не понятно почему из TMemo в function появляются пустые строки [D5]


vlgrig1961 ©   (2004-05-13 08:37:00) 

Такой глюк ??? У меня Oracle 8.0.5 и Delphi 5
в Memo или RichEdit ввожу скрипт функции или процедуры
типа create procedure AAA ....
потом переношу текст из Мемо в Query.SQL и делаю
Query.ExecSQL и у меня в базу записывается после каждой
строчки скрипта пустая строка.
Почему, может кто подскажет?
Заранее спасибо.


vlgrig1961   (2004-05-13 14:10:00) [1]

процедура любая

create or replace
procedure tt1
 (p1 OUT NUMBER0
is
begin
 p1:=10;
end;

программный код
var  SQLScript: TQuery;
    reScript: TRichEdit;
 
 SQLScript.SQL.Clear;
 SQLScript.SQL.Text:='';
 SQLScript.SQL.Add(reScript.Text);  
 SQLScript.ExecSQL;

при набору любого текста в Memo, Query после каждой
строчки вставляет пустую строку (#13#10)
Если считываю из базы созданную ранее оракловскими способами
любую процедурку, и записываю ее обратно, то все нормально,
а если набираю сам или загружаю из файла
(reScript.Lines.LoadFromFile('ff.txt')),
то такая получается неприятность?


DenK_vrtz   (2004-05-13 08:49:00) [2]

текст процедуры и кусок кода программы в студию


Наверх

Титульная страница Поиск, карта сайта Написать письмо