FreePascal.ru

begin
SQLQuery1.Close;
SQLQuery1.SQL.Text:='update groups set naimenovanie="'+EditNew.Text+'" where id_group=2';
SQLQuery1.ExecSQL;
SQLQuery1.ApplyUpdates;
SQLTransaction1.Commit;

Теперь ругается, что dataset не активный..., уберешь SQLQuery1.Close ...

Всем привет!
Объясните пожалуйста, как правильно построить код, чтобы Лазарус не ругался.

if SQLQuery1.State in [dsEdit] then
begin
SQLQuery1.Close;
SQLQuery1.SQL.Text:='update groups set naimenovanie="'+EditNew.Text+'" where id_group=2';
SQLQuery1.Open ...

alexsa , а тут для исключения догадок и домысливаний лучше бы выложить тестовый проект в архиве, и тогда все сразу станет ясно... Не все вопросы можно решить заочно
От великого до смешного - один шаг. Переименовываю StatusBar1 в StatusBar2 - ЗАРАБОТАЛО!!! Перименовываю назад - получаю ошибку ...

Ребята, давайте жить дружно.
Там имеются именно две панели, одна выдает по "AutoHint:=true", установленному в свойствах компонента, а вторая выдает то, что я написал в первом посте...

Всем привет!
Объясните мне пожалуйста, что это может значить?

выдает ошибку: List index (1) out of bounds

Можно подумать в том направлении - FontDialog их как-то получает... и выводит в Memo

если у вас работает эта команда, то Убунта странная система
upx --best Main1 /media/Файлы/Lazarus/Проекты/Запуск консоли

на федоре результатом выполнения данной команды является ошибка
IOException: not a regular file -- skipped
Не знаю, насколько она странная. Но именно так и стало ...

var
AProcess: TProcess;
begin
AProcess := TProcess.Create(nil);
AProcess.CommandLine := 'upx --best /media/Файлы/Lazarus/Проекты/Main';
AProcess.Options := AProcess.Options + [poWaitOnExit];
AProcess.Execute;
AProcess.Free;
end;
Стало работать ...

uses unix;
if fileexists('/media/Файлы/Lazarus/Проекты/main')=true then
begin
shell('bash -c "upx --best /media/Файлы/Lazarus/Проекты/main"');
showmessage('Бинарник упакован');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if fileexists('/media/Файлы/Lazarus/Проекты ...

alex208210 писал(а):uses unix; не спроста там написан..

Виноват. Не обратил внимание. Теперь ошибки не выдает, сообщение, что "Бинарник упакован" получаю ТУТ ЖЕ! Но скрипт не запускается...

var
AProcess: TProcess;
begin
AProcess := TProcess.Create(nil);
AProcess.CommandLine := 'upx --best /media/Файлы/Lazarus/Проекты/Main';
AProcess.Options := AProcess.Options + [poWaitOnExit];
AProcess.Execute;
AProcess.Free;
end;
Здесь никто ни ...

изучайте вопрос по TProcess
Спасибо. Как сказала бы Машенька: "Давай-давай учиться"

Добавлено спустя 34 минуты 30 секунд:
изучайте вопрос по TProcess
Зашел, почитал, попробовал - не получилось.

Что я должен сделать по аналогии, если в консоли я пишу:
cd /media/Файлы/Lazarus/Проекты/
upx ...

Ism писал(а):

Код: Выделить всё

if gdSelected in State

У меня похожее было, решилось объявлением модуля содержащего описание данных структур. (можно попробовать поискать по содержимому файлов модулей Lazarus gdSelected)

Спасибо. Я этого не знал, поэтому сделал и стало работать.

Всем привет!
(UBUNTU 11.04)
Вот такой вопрос у меня есть - Можно ли программно запустить на выполнение скрипт, типа того что мы пишем в консоли, и чтобы программа узнала, когда скрипт закончил свою работу?

Спасибо. Постараюсь обязательно.