» Вопросы по Delphi 2

Цитата:

вроде как нужно проверить валидность имени файла нового не обязяательно существующего

тогда делать сканирование директории где находятся файлы и проверять наименования..

Jokerjar
Вот такая функция проверяет полное имя файла на валидность. Можно дополнить чтобы поставляла сама расширение default-ное.
[more]
{ Look for invalid chars and simple invalid sequences. }
function isValidFileName( s: string ): Boolean;
var i: Integer;
begin
i := 1;
while ( i <= Length( s ) ) do
begin
if IsDBCSLeadByte( Byte( s[i] ) ) then
Inc( i,2 )
else if s[i] in ['/', '|','<','>','*','?',':','\','"',''''] then
begin
Result := False;
Exit;
end
else
Inc( i );
end;
Result := True;
end;
[/more]
Вот видоизменил в фоответствии с твоими требованиями.
Мне кажется она немного бістрее будет работать чем каждый раз перебирать Pos.

RedPromo, спасибо. Мне надо проверять имя без пути к нему. Вроде удовлетворился этим:

function Nname(s: string): boolean;
begin
result := (pos('\',s)=0)and(pos('/',s)=0)and(pos(':',s)=0)and
(pos('*',s)=0)and(pos('?',s)=0)and(pos('"',s)=0)and
(pos('<',s)=0)and(pos('>',s)=0)and(pos('|',s)=0);
end;

Может кто подсказать у меня с какогото момента в проекте BDS2006 начинает при авто созданиии функции например ButtonDown после begin лепить inherited самое главное там где это совсем не в тему и в тему.

Если есть override - тогда так и должно быть. Но может какой-то эксперт балуется

OdesitVadim
Нет override нет он ставит inherited даже на нажатие кнопки. Мне кажется єто потому как у меня переопределен родитель формы TForms. Вот он и балуется.

Спасибо всем кто откликнулся на мой вопрос.
Всё заработало.

Особое спасибо RostY

Почему-то мне казалось что рекомендации по поводу WaitForSingleObject не могут вызывать сомнений. Оказалось, что именно в нём и вся загвоздка!!!

Как только я вызов WaitForSingleObject поменял на циклирование - всё стало как шёлкоевое. Я так и не понял почему. Вероятно WaitForSingleObject что-то такое ещё специфическое делает. Но что? Именно из-за него дочерний процесс чувствует родительский...

Правда при вызове WaitForSingleObject программа как бы замораживалась и пока не вернётся управление просто простаивала (проц не грузила), а теперь оно циклится и грузит проц

Как бы от этого избавиться ?

Saxonika

Цитата:

Правда при вызове WaitForSingleObject программа как бы замораживалась и пока не вернётся управление просто простаивала (проц не грузила), а теперь оно циклится и грузит проц
Как бы от этого избавиться ?

Делай проверку не в цикле а по таймеру - период можешь подобрать под себя в зависимости от среднего времени выполнения проги

Цитата:

Делай проверку не в цикле а по таймеру

Если без компонентов пишешь, попробуй типо так :

program testtimer;

uses Windows,Messages;

var
WinClass:TWndClassA;
Handle,Label1,Timer1:Integer;
Msg:TMsg;
t:integer;

procedure timer_do;
var s:string;
begin
inc(t);
str(t,s);
SetWindowText(Label1,Pchar(s));
end;

function WindowProc(hWnd,uMsg,wParam,lParam:Integer):Integer; stdcall;
begin
if uMsg = WM_DESTROY then begin
KillTimer(Handle,Timer1);
halt;
end;
Result:=DefWindowProc(hWnd, uMsg, wParam, lParam);
end;

begin
with WinClass do begin
style := CS_CLASSDC or CS_PARENTDC;
lpfnWndProc := @WindowProc;
hInstance := hInstance;
hbrBackground := color_btnface + 1;
lpszClassname := 'test_timer';
hCursor := LoadCursor(0, IDC_ARROW);
end;
RegisterClass(WinClass);
Handle:=CreateWindowEx(WS_EX_WINDOWEDGE, 'test_timer', 'test timer',
WS_VISIBLE or WS_SIZEBOX or WS_CAPTION or WS_SYSMENU,
363, 278, 305, 65, 0, 0, hInstance, nil);
Label1:=Createwindow('Static', '', WS_VISIBLE or WS_CHILD or SS_CENTER,
8, 12, 76, 13, Handle, 0, hInstance, nil);

Timer1:=SetTimer(Handle,0,1000,@timer_do);
SetWindowText(Label1,'0');

while(GetMessage(Msg,Handle,0,0)) do begin
TranslateMessage(msg);
DispatchMessage(msg);
end;

end.

Saxonika
по таймеру, наверно, лучше всего будет, но если тебе нужен цикл сделай в цикле что-то типа

while ....
do
sleep(500);
...
...
Application.ProcessMessages;
end; //while

Saxonika

Цитата:

Как только я вызов WaitForSingleObject поменял на циклирование

попробуй msgWait* она обрабатывает сообщения.

скажите люды добрыя,если есть dll "123.dll" неизвестно чья и кемнаписанная, есть к ней заголовочный 123.pas, можно ль как то заставить ее работать переименованной в 3456.dll ? пробовал переименование и обоих фалов + соответствующую правку 123.pas с заменой "external 123dll" на "external 456dll" но все равно просит 123.dll...

Цитата:

скажите люды добрыя,если есть dll "123.dll" неизвестно чья и кемнаписанная, есть к ней заголовочный 123.pas, можно ль как то заставить ее работать переименованной в 3456.dll ? пробовал переименование и обоих фалов + соответствующую правку 123.pas с заменой "external 123dll" на "external 456dll" но все равно просит 123.dll...

при компиляции чего просит? если в модуле 123.pas то смотри внимательнее модуль, где то она используется или смотри приложение, которое компилируешь... в общем, где то у тебя эта dll'ка используется...

Erazer, в модуле в самом верху unit 456 написать не забыл?

говорит не могу запуститься поскольку 123.dll не найдена... а я ж вроде везде перписал все под 456.dll

Erazer Посмотри внимательнее, скорее всего что-то пропустил.
Сделай поиск по "123". Расширение 'dll', по моему, не обязательно.

ниче вроде не пропустил.... сначала просит dll а потом project ... faulted with message 'privilaged' instruction in 0x.........

А если рядом положить 123.dll, то работает нормально?
Если да, то проверь, не осталось ли у тебя файла 123.dcu и основной проект гдето в uses не использует его. Удали dcu и сделай билд проекта. У меня такое бывало - удаляеш файл с проекта (pas), а он спокойно dcu берёт

Или показывай свой модуль. Вместе поищим

Подскажите, как мне лучше оформить работу с базой данных.
Конкретно, есть база данных M$ Access с одной таблицей. Необходимо: при отображении таблици пользователь должен выбирать место строк ( с помощью кнопок Переместить Вверх, Переместить вниз, как это сделано например в ReGet`e). У самого есть варианты:
1. Тупо поменять местами значения ячеек в соседних строках. ( в таблице столбцов немного, сделать это не сложно)
2. Ввести еще одно поле, сортировать таблицу по нему, а при нажатии указанных кнопок менять местами значения в этом поле.

OrlangurStep
Правильным будет второй вариант. Никогда нельзя полагаться на порядок записей в таблице (даже по теории - это просто множество неупорядоченных объектов).

EZH

Цитата:

Правильным будет второй вариант.

Я так и начал. Спасибо за совет.

OrlangurStep
Полностью согласен с EZH - ТОЛЬКО второй вариант.
Он 1) быстрее 2) проще и 3)самое главное - он единстенно рабочий, для любого варианта БД (в нормальной (SQL) СУБД нет понятия 'физический порядок записей'!!)

SDI Application, Delphi 7,
на главной форме (SDIAppForm) лежит ActionManager1 и ActionToolBar1,
из главной формы (создаются и) вызываюся другие (вспомогательные) формы (Form2),
на них лежат ActionToolBar2, ActionToolBar3 и т.д. соответсвенно, (Form2 uses SDIMAIN);
и соответсвенно:
Form2.ActionToolBar2.ActionManager:=SDIAppForm.ActionManager1

как визуально (при разработке формы) добавлять на ActionToolBar2 и какие-либо Action из ActionManager1 ?

или лучше ActionManager положить на родительскую форму а остальные формы наследовать

SERGE_BLIZNUK
В базе данных также есть ключевое поле - счетчик так, что его можно использовать для формирования "физического порядка данных", но все равно лучше 2 вар.

как передать потоку при создании некоторые значения?

Существует ли что-то вроде DRKB для Делфи, только для С++?

andead, через глобальные переменные

глобальные переменные не подходят по некоторым обстоятельствам

andead, как так? Ты как поток делаешь? Классом? Я обычно просто процедурой CreateThread

andead
Если используешь TThread, то можно сделать тремя способами:
1. Переписать конструктор класса-потока, в который добавить свой передаваемый параметр
2. Создавать поток с CreateSuspended = True, потом писать ему в public-переменную и делать Resume
3. Все таки через глобальную переменную, которая используется только для передачи потокам параметра, и они ее читают в своем конструкторе - так ка конструкторы потоков выполняются в контексте основного, то конфликтов не будет

На мой взгляд лучше делать первым способом - и параметр передать не забудешь, и программа читабельней - сразу видно, что твоему потоку нужен этот параметр

Jokerjar

Цитата:

Я обычно просто процедурой CreateThread

Использование делфи для того, чтобы писать на голом АПИ - это все-таки на любителя