FreePascal.ru

Теперь еще на 15 лет изучения все, что вы мне посоветовали спасибо!

Вот например я так пишу всегда, Это пример главного Unit.
Достаточно понятен код или стоит изменить свой стиль написания кода?

{ TForm1 }
//Откроем проект через диалог - Вызываем функцию Вывод каталога в TreeView1
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
MenuItem12&#46 ...

Это такое дело.. Пока новичок, оно нафиг не надо. А когда делаешь серьезные вещи, оно само приходит.

Есть официальный Object Pascal Style Guide - начни с него.
Спасибо большое ! А то надоело уже просто быдлокодить)) Сори за ворожение)

Добавлено спустя 25 минут 7 секунд:
Прочитал от начало и ...

Вот уже программирую (самоучка) больше 15 лет но никак не могу научится правильному введению структуры проекта(
Покажите пожалуйста ваши варианты ведения структуры проекта, просто у меня всегда получается каша в которой потом сложно даже самому разобраться)
Если можно видео урок, скрин, или ...

Может есть другие варианты?
Положите и Image, и Label (и всё что угодно) в контейнер (TPanel).
Да это понятно но потом надо следить за 3 компонентами да еще и прозрачность у панели не нашел(

Добавлено спустя 3 минуты 34 секунды:
Не досмотрел
Воспользуйтесь AnchorSide
LabalCreate&#46 ...

Попробуй заменить LabelCreate.Parent := ImageCreate.Parent; на LabelCreate.Parent := ImageCreate ;
Компилятор просит что бы я указал Parent по крайне мере я так думаю)
decorator.pas(55,36) Error: Incompatible type for arg no. 1: Got "TImage", expected "TWinControl"

Здравствуйте как Image сделать контейнером например как Panel на котором можно размещать компоненты?
Суть такая создаю динамически Image и размещаю* на нем Label, после Image перетаскиваю мышкой в рунтиме, Image перетаскивается, а Label остается на месте.
Вообщем как их таскать вместе?

Задумка ...

B4rr4cuda писал(а):Как раз на этой неделе решал подобную задачу, наваял для этого дела небольшой класс:

Все работает тоже понравилось сохранил у себя спасибо!)

при поиске не добавлять результат поиска в Synedit .... Я вас понял но проблема именно.. у Synedit то же есть BeginUpdate, EndUpdate. Вы явно не поняли посыл
Спасибо я обязательно посмотрю что это и поможет ли оно мне в данном случае)
Поменял Pos на PosEx теперь ищет текст в файле на 70% быстрей ...

Если можете напишите пожалуйста функцию как искать часть текст в файле использую память (поток) возможно вы все правы только я упертый думаю что все что мы обсуждаем одно и тоже?

Добавлено спустя 55 минут 28 секунд:
Вообщем нашел причину иза чего так долго ищет если при поиске не добавлять ...

В общем "на глаз" замеры были.

Попробуйте в вашем коде воспользоваться BeginUpdate, EndUpdate.
т.е.
не

FindAllFiles(PascalFiles, 'Путь до папки', '*', True);

, а

PascalFiles.BeginUpdate;
FindAllFiles(PascalFiles, 'Путь до папки', '*', True);
PascalFiles.EndUpdate;

Аналогичные ...

он пропускает все символы в нетипизированне файлах ?? Он не пропускает их.. он не перебирает каждый Items а читает весь Raw

Добавлено спустя 2 минуты 45 секунд:
Не файлы маленькие с текстом по несколько килобайт
тогда как измеряете скорость?там все мгновенно происходит.
Может проблема в ...

Специально залес в исходник оказалось что это одно и тоже чтение "строками" <> загрузкой "сразу". Но это не важно.
Вы спросили как . Вам попытались объяснить. В общем... у вас всё работает? Не трогайте.

п.с.
Может POS научить обходить стороной нетипизированне символы? имею введу dll dat exe и тп ...

Если вы про массив и так все кладу в него TStringList про TStringList, я могу ошибаться, но он форматирует raw данные, т.е. делает обработку до строк, где каждая строка это отдельный Items.Я могу ошибаться.
Если это так то процессорное время тратится на генерацию Items.

Для меня это очень сложно ...

Можно ли заменить pos на, что то другое ?
Зачем?
По поводу ускорение..
имеет смысл размещать все в памяти..
[блок][блок][блок][блок][блок][блок][блок][блок]
и потом пройтись pos
Но нужно учесть что pos - Integer - т.е. есть ограничения по размеру.
Если вы про массив и так все кладу в него ...