» Вопросы по Delphi

AlphaBet
а поиском пошуршать?
посмотри здесь, и по ссылкам пройдись:
http://forum.ru-board.com/topic.cgi?forum=33&topic=3380&start=0#lt

krast
Спасибо, я пошуршал, только ссылки там мертвые.На сайте симплеИксЭмЭль скачать нельзя, страница не найдена...

AlphaBet
посмотри вот здесь:
http://mv.rb.ru/simplexml.htm

Я самостоятельно учусь програмировать в делфи.
Я открываю таблицу dbf, где все записи на русском языке и в дос кодировке, а мне вместо этих записей видно "#########" вот такие строки, как справиться с этим???
Использую BDE.
LANGDRIVER ставлю cp866 не помогает.

krast
Спасибо! Нашел! Изучаю...

adg208
Без самого файла трудно что либо сказать. Может ты сам накрутил с системными драйверами, обычно все отображается нормально.

crash_rider

Цитата:

Ну представьте сидит студенть и тыкает куды попало переключает с окна на окно а так все чтоб 5 форм окна было видно ну типа так удобнее

Задача не заслуживает и 15 минут, затраченных на неё.


Цитата:

Короче нужно обойти просто правило винды когда одно окно только с верху вот и все...

Как ты себе представляешь обход закона природы? Ну не может быть больше чем одного окна поверх всех других окон...

Доброе время суток. Тут почти дописал планировщик, но после того как таймер проходит отведенный ему интервал времени мой проект загружает CPU на 100%.
Вот код события OnTimer:
---------------------------------
var NowDate,BDate: string;
begin
ClientDataSet1.First;
While not ClientDataSet1.Eof do
begin
NowDate:= DateTimeToStr(now);
BDate:= DateTimeToStr(ClientDataSet1.FieldByName('DateTime').AsDateTime);
Delete (NowDate,length(NowDate)-2,2);
Delete (BDate,length(bdate)-2,2);
IF NowDate=Bdate then
begin
//код команды будет здесь
ClientDataSet1.Delete;

end;
application.ProcessMessages;
end;

end;
-----------------------------------------
Как можно решить эту проблему?

Выполняется цикл. В течение выполнения цикла необходимо его остановить нажатием кнопки, выполнить некоторые действия в окне и запустить цикл с того же места. Короче организовать что-то Play/Pause для цикла, сохраняя работоспособность компонент на форме. Вопрос: как?

imonah
Выноси цикл в отдельный поток и останавливай/запускай его из основного потока через TThread методы Suspend/Resume.

EZH
Про потоки слышал только краем уха... Как запустить цикл в отдельном потоке?

imonah
File > New > Thread Object и называешь типа TMyThread
Цикл отписываешь в методе Execute созданного TMyThread (не использовать VCL, только через синхронизацию (Synchronize)!)
В основном потоке (в главной или другой форме где у тебя кнопки) пишешь в объявлениях:

private
{ Private declarations }
myThread : TMyThread;

по кнопке запуска:

myThread := TMyThread.Create(false);

по кнопке стоп:

myThread.Suspend;

по кнопке продолжить:

myThread.Resume;

А вообще настоятельно рекомендую изучить работу с потоками, штука только кажется страшной, главное понять и всё будет просто.

EZH
Понятно, спасибо Ушел экспериментировать. Мне тут еще линк на хороший юзер-гайд о потоках подкинули. Может кому будет надо:
http://forum.vingrad.ru/index.php?showtopic=60076&view=all

Как вынести цикл в отдельный поток, чтобы он через некоторое время останавливался и потом сам запускался?

Проще всего CreateThread. Поместив перед этим нужный кусок кода в процедуру.

Господа, объясните пожалуйста, как можно очистить таблицу Access через ADO с сохранением ее структуры?

zvyagaaa
Обычно это делается так: выполнить ADOCommand с текстом "DELETE FROM <имя таблицы>".
Не знаю как в Access, но в SQL Server для полной очистки таблицы ещё есть команда TRUNCATE <имя таблицы>

О! Клево, спасибки. EZH
Только сначала нужно AdoTable1.Close а потом
AdoTable1.Open чтобы изменения были видны.

Господа, объясните пожалуйста, как в форму вставить график функции x,y чтобы он строился в зависимости от введённых нами чисел?

gryzchik
Компонент TChart для этого юзают...

Люди, а подскажите как лучше организовать поиск по поддиректориям некого файла? Долго думал, вроде как надо дерево папок строить с указателями... Или какие то компоненты предоставляют более простой и удобный интерфейс поиска?

AlphaBet
Рекурсивно.
Тоесть перебираеш в каталоге файлы и проверяеш, подходят ли они, потом для всех каталогов запускаеш эту же процедуру, но поправляеш каталог, в котором ищем.
Так как вложености не бесконечны, то выход с рекурсии будет.

OdesitVadim
Я как раз бьюсь над этим кодом. Нет ли примера?

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

AlphaBet
http://forum.ru-board.com/topic.cgi?forum=33&topic=2352&start=0#lt
только вместо удаления, делай сравнение.

AlphaBet
c0r0ner
Рекомендую проект Delphi Jedi. Там все что вам надо и еще чуток
Jedi Code Library: File List on SourceForge:
http://sourceforge.net/project/showfiles.php?group_id=47514

AlphaBet

Цитата:

Люди, а подскажите как лучше организовать поиск по поддиректориям некого файла? Долго думал, вроде как надо дерево папок строить с указателями... Или какие то компоненты предоставляют более простой и удобный интерфейс поиска?

Компоненты разумеется есть. Загляни на www.torry.ru (баааальшой сайт с компонентами, пользуюсь уже несколько лет) или www.delphikingdom.ru. Там большой архив заданных вопросов и ответов на них. Имеется приличный поиск

gryzchik

Цитата:

Господа, объясните пожалуйста, как в форму вставить график функции x,y чтобы он строился в зависимости от введённых нами чисел?

На torry.ru в разделе Chart есть простой (но эффективный и легкий) компонент TChartXY. Если интересно, дай свой адрес могу выслать собственный компонент для отрисовки двухмерных графиков. Мне он нравится больше

Цитата:

Люди, а подскажите как лучше организовать поиск по поддиректориям некого файла? Долго думал, вроде как надо дерево папок строить с указателями... Или какие то компоненты предоставляют более простой и удобный интерфейс поиска?

В книжке "Delphi 5. Руководство разработчика", кажется, во втором томе есть пример.

AlphaBet
Есть Disk Controls - вроде ниче компоненты
Если надо - пришлю

Вот такой глупый вопрос.
Когда ставлю в коде БрейкПоинт - ставится, но когда запускаю компиляцию - этот БрейкПоинт становится вместо красного - зеленый и перечеркнутый крестиком.
Не могу найти нигде причину, а без отладки - туго дело.

Иногда такое случается, если поставить его в неисполняемом коде, но я ставлю вполне нормально.

Помогите советом.

Solnake

Цитата:

Когда ставлю в коде БрейкПоинт - ставится, но когда запускаю компиляцию - этот БрейкПоинт становится вместо красного - зеленый и перечеркнутый крестиком.
Не могу найти нигде причину, а без отладки - туго дело.

Что именно ты компилируешь? Компонент или программу? Проверь в свойствах проекта (пакета) пути. Возможно, что у тебя в двух папках храняться разные версии твоего кода (dcu, bpl или pas файлы). В разработке у тебя одна версия, а компилятор использует старую. При этом, там где у тебя код - в старой версии пустые строки или комментарии...

Есть еще версия. Ты ставишь точки останова на строках, которые никогда в программе не используются (функция, к которой нет обращений, к примеру) и потому исключаются при компиляции за счет оптимизации кода.

Попробуй удалить все dcu твоего проекта и пути к старым версиям кода или перекомпилировать пакеты, в которые входит твой код. А также проверить обращения к этой строке.