FreePascal.ru

У меня есть TDBEdit, который связан с числовым полем в БД. Я хочу, чтобы числа в нем отображались с разделением групп разрядов ("123 456 678.34"). Пробелы он ставить не дает, при принудительной вставке с пробелами программа вылетает. В принципе, можно оставить так, но хочется сделать красиво.
Если ...

устанавливаю в параметр Position со значением poScreenCenter у главной формы проекта, но главная форма, при запуске приложения появляется не по центру экрана, а в том месте где его в дизайнере оставил...

А использовать что-то типо этого не подойдет ????

Uses Forms;
....&#46 ...

Timid писал(а):Я многого хочу?

Ну не мало

вынь Хрю - Celeron2000 512ram ... глюков не обнаружено.

Добавлено спустя 32 секунды:
проработал весь день =/

хммм а у меня вообще вопрос как его использовать =)))
чтот пока не получается к сожалению =(..

Картина примерно такая


begin
.....
m_Node:=fileTree.Items.AddFirst(m_Node,SysToUTF8(getDirr.FileName));
scanFileTree(Filepach,m_Node);
.....&#46 ...

alexs писал(а):есть - но онии ещё не дописаны
прототипы работают под win32/gtk2 - смотри на LazarusCCR

хммм..... ла поглядимс....
пардон за флуд.

procedure TSearch_Thread.scanFileTree(strNode: string);
var SR: TSearchRec;
str:string;
begin
str:= SysToUTF8(strNode);
if FindFirst(str+'\*', faAnyFile, SR) = 0 then
repeat
str:= SysToUTF8(SR.Name);
if not ((str = '.')or(str = '..')or(str = '.&#46 ...

хмммм т.е. замены TRichEdit в Лазаре нема я так понял о_О ...........

а почему бы не воспользоваться стандартной функцией?
uses strutils;
const
exts: array[0..2] of String = ('.gif','.png','.jpg');
begin
if AnsiIndexStr(ExtractFileExt(SR&#46;Name),exts)<>-1 then &#46;&#46;&#46;

AnsiIndexStr()
Не знаком ес чесно с данной функцией ...

внёс поправочку. в расширениях символ * не нужен.
Да я знаю.
не просто проверяет соответсвие строк (filename='*.jpg' or filename=*.gif), а разбирает маску, и смотрит соответствие имени файла маске.
Смотри пример реализации выше, там так реализовано т.к. потом в кейсе смотреть удобнее по форматам ...

"умный" синтаксис развращает.

делфи теперь есть связка "regexp + set" ?

function isImageExt(const FileName&#58; String)&#58; Boolean;
var
s&#58; String;
i &#58; integer;
const
images &#58; array &#91;0&#46;&#46;2&#93; of string = ('*&#46;png', '*&#46;gif','*&#46;jpg');
begin
s&#58 ...

Подниму тему.
if (sr&#46;Attr <> faDirectory) and SR&#46;Name in &#91;'*&#46;gif','*&#46;png','*&#46;jpg'&#93; then &#46;&#46;&#46;
за подобное компилер по репе ошибкой дает =/ ....
а я уже привык множества в делфе использовать в условиях =( или мб както подругому а не писать по студенчески
if ...