FreePascal.ru

Здравствуйте!

Пишу ненужную программку чтобы не было скучно. По пути написания есть проблемка…

Суть такова: создается массив байтов ("array of Byte", длину меняю командой "SetLength"), который интерпретируется как массив элементов, размер которых S-байт и которые заполняются нулями (использую ...

Уважаемые, не найдётся ли у Вас какого-нибудь простенького примера с реализацией описанного вами подхода, потому как официальная документация, увы, обделена примерами, а без примера теория плохо идёт…

Ок, спасибо SSerge, важно было знать почему не заработает.
И другим тоже спасибо, воспользуюсь крит-ой секц-ей…

Решено!

Здравствуйте!

К сожалению смутно понимаю многопоточность… со всякими там критическими секциями связываться не охота. Надо как можно проще предотвратить одновременное выполнение функции в двух потоках.

Пока решил сделать с помощью переменной (объявленной вне функции), типа

function MyClass&#46 ...

проверять все эти коды... тем более что исключения затем и были введены, чтобы от них избавиться

а если в список добавить переменную типа
ErrCode2Except : Boolean; // преобразовывать коды ошибок в исключения (по-умолчанию True)
и в конце каждой функции редактирования списка добавить вызов ...

Следую советам выше подправил код.
1) Убрал лишние коды удачного завершения. Теперь коды можно не проверять, просто сравнить с единицей (означает что всё в порядке), например
if List&#46;Add(10) <> 1 then
Label1&#46;Caption &#58;= 'Something is very Wong'
2) Убрал блокировку числовым ключом
3 ...

Это какой-то монстр Не стал бы таким пользоваться, проверять все эти коды...
Попробую в дальнейшем документацию замутить и комментариев в код ещё добавить…
…исключения затем и были введены, чтобы от них избавиться.
Можно, пожалуйста, немного разжевать, я не понял что ты имеешь ввиду ?
Кстати, о ...

Здрасте!
Практических целей не стоит, просто хобби. Не помню зачем как-то понадобился список (хранить, например, строки). Читать про готовые решения было лень. Решил написать свой… Основной прикол: список создаётся для конкретного размера элементов в нём.
Исходный код: bitbucket.org
Программка для ...

Вот классическое "сначала создаем себе проблемы, потом героически их решаем". А что мешает создать событие или семафор, на котором будет ждать поток (в четко заданном месте), и сигналить его извне, когда потоку пора проснуться? Две лишних строчки в программе или что?
Собственно по данному поводу ...

Предыстория:
Года 3 тому пользовался Delphi. Возникла необходимость (скорее желание) поработать с объектом TThread. Работать с ним показалось сложным, потому был создан компонент для простого добавления на окно при разработке (на основе TComponent). Никакого серьёзного разбора сей проблемы перед ...

Раньше пытался что-то делать в delphi, там не было того что надо, пришлось писать самому... в lazarus'е пока тоже не нашел (потому, собственно и пишу).
Нужно:
1. Функции чтобы нарисовать один tbitmap на другом с учетом альфа канала
2. Функции чтобы нарисовать один tbitmap на другом с учетом ...

svk12 писал(а):ИМХО, ответ содержится в самом вопросе...

копипаст не конает, потом час искать где разница и одинаковые ли они. Я имею ввиду что-бы две декларации функций ссылались на одну реализацию

Собственно как?
Есть две функции, но код у них должен быть одинаковый.
Спасибо

Здравствуйте, продолжаю переделывать свои скромные наработки в Delphi для совместимости с Lazarus'ом
ну тут и загвоздка

Delphi
unit Unit1;

&#46;&#46;&#46;

var
Form1&#58; TForm1;
NE&#58; TNotifyEvent;

implementation

&#46;&#46;&#46;

procedure TForm1&#46;Button1Click(Sender&#58; TObject ...

Пора добавить в ссылки вот это
"чукча не читатель, чукча писатель", пожалуйста, не надо меня посылать в... библиотеку)

написал свое на "хлопський розум", для меньшего заморачивания сделал movememory такой же как и copymemory, вроде работает, главное что бы также как в WinAPI, если не затруднит ...