FreePascal.ru

Счётчик в твоем цикле util не на работает, то есть его вообще нет) i постоянно равна 1, цикл бесконечный получается.

Автор, какова сумма вознаграждения то?) у меня есть мысли как её решить!
Видимо учёба в институте закипела:)

Я не считаю линукс панацеей, но считаю более удобной ос чем та же виндовс. При использовании малозависимых бинарников я представляю насколько увеличилось бы занятое дисковое пространство, ведь каждое приложение должно содержать все необходимые библиотеки и компоненты. К примеру допустим сотня утилит ...

Не соглашусь во многом. Что значит "Нормальной" в данном контексте? Лет 10 назад - да, линукс был не готов для домашнего десктопа. Сейчас - плюс/минус (кроме игр). Не Холивар - только ИМХО.
пока линукс не откажется от пакетной зависимости, нормальным он не будет.

А мне пакетная "зависимость" не ...

shyub писал(а):А при переименовании файла физические адреса данных сохраняются?

А это уже зависит от типа сипользуемой ФС

Я так понял вся проблема как создать n-ое кол-во массивов?
Если да, то как вариант воспользоваться указателями:


type
PSpis_massivov = ^Spis_massivov;
Spis_massivov = record
// тут Описание своего массива
next: PSpis_massivov //указатель на след запись или nil если последний


Ну а потом ...

McLion писал(а):Что взял? Мне на глаз минт лучше всего... не хочу уходить... хм...

Попробуй другой de поставить, циннамон или крысу.

А первый вариант работает ?

Да работает, это же по сути просто оптимизированный однострочный запрос, вот если бы строки было 2 то уже бы непрошел. Как правильно Выше подсказали нунжо использовать TZSQLProcessor, идеально подошел.

Я работаю на компонентах лазаруса (MySQL).
Спасибо, но вот ...

А может кто знает в zeos нет ли встроенного метода выполнения всех запросов из TSringList или нужно свой метод написать?

Компонент TZSQLProcessor.
Спасибо добрый человек , это то что необходимо.
Если не трудно ниукого документации по zeos'у нет? Офф сайт давно у них уже в ауте.



либо можно в ...

Понял, благодарю.

Да, Вы правы. Как жаль что по zeos доков не осталось. А может кто знает в zeos нет ли встроенного метода выполнения всех запросов из TSringList или нужно свой метод написать?

Первый же серьезный противник (Турция) играючи сбила самолет когда понадобилось. То есть боевой обкатки техника не прошли - а значит никого рекламного эффекта нет и быть не может.
А как еще можно сбить истребителем фронтовой бобардировщик не имеющего вооружения для БВБ или ДВБ. Другое дело ...

Добавляю вот так:

temp:=FCategory;
while temp^&#46;Next <> nil do
begin
s&#58;=False;
ZQuery1&#46;First;
while not ZQuery1&#46;EOF do
begin
if ZQuery1&#46;FieldByName('category_id')&#46;AsInteger = temp^&#46;category_id then s&#58;=True;
ZQuery1&#46;Next;
end;
if not s then ZQuery2 ...

Little_Roo писал(а):ZQuery2.ExecSQL; \0
? и это что?

Это я из редактора Лазаруса вставлял. Незнаю почему он добавил. В исходниках этого нет

Добавлено спустя 2 минуты 2 секунды:

vitaly_l писал(а):Покажите как Вы несколько строк отправляете?

В цикле через ZQuery.sql.add(), затем после цикла execsql.

Доброго времени суток.
Ситуация следующая добавляю строки в ZQuery:

ZQuery2&#46;SQL&#46;Add(format('INSERT INTO oc_category_to_store (category_id, store_id) VALUES (''%d'', ''0'');',&#91;temp^&#46;category_id&#93;));\0


Добавив все необходмиые запросы выполняю:

ZQuery2&#46;ExecSQL; \0 ...