» Вопросы по Delphi

Извените для едита!!!
Спасиба

Добавлено:
waik
а можна полную строку
или исправте мне пожалуйста

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in [0..9] then;
end;

Добавлено:
у вар ни чего не надо прописовать

Для того, чтобы можно было только цифры вводить я пишу так

Код:
if not (key in['0'..'9',#8]) then key:=#0;

OdesitVadim
ваш метод пошел! спасиба
а тот видает ошибку
если можеш waik напиши целиком

Olezka

Ну конечно ошибку будет выдавать Я ведь только подход показывал а не готовый обработчик писал А так OdesitVadim тебе уже правильно показал...

Все ОК главное пашет

Добавлено:
подскажите еще одно когда я делаю ехе файл то на файле отображается значок делфи, а можна ли его сменить??

Olezka
В свойствах проекта.

Я поставил на компьютер с хр дельфи 7. Какого было мое удивление, когда после успешной компилляции, моя прога не запустилась (при нажатии F9), а дельфи повис и не реагировал на нажатия. Пробовал переустановить - бесполезно. Что посоветуете (только не скачивание из инета многотонного инсталлятора). Спасибо!

nick444
а может, сначала в твоей проге ошибки поискать?

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

EZH
спасиба нашел
nick444
скинь униты попробуем у себя

nick444
Этот финт может быть если у тебя анивирь злосно настроен. Делфа когда запускает от себя приложение, то она стартует как отладчик. Может память процеса изменить - это вполне нормально, но не для некоторых антивирей/фаерволов.

Цитата:

а может, сначала в твоей проге ошибки поискать?

дураков нет! если прога идет на одном компе, а на моем-нет, то дело не в ошибках. Пробовал на приметивнейших прогрпммах (без ошибок точно).

Цитата:

Этот финт может быть если у тебя анивирь злосно настроен

антиврь просто промалчивает. Разве он не должен сообщить, что остановил действие дельфы? попробую убрать антиврь из автозаггрузки.
(Или дайте мне уже проверенную вами программу.)

Приветствую!
Народ может кто-нибудь подсказать, как окно выборки шрифтов сделать как в Worde, короче через ComboBox? А то пол дня делаю, так ни к чему и не пришел. Заранее благодарен!

mafiozy3
А зачем изобретать велосипед? Возьми готовый компонент, например TRzFontComboBox.

mafiozy3
combobox1.Items.AddStrings(Screen.fonts);

Подскажите как к бутону привязать чобы он открывал файл

Olezka
Бросай на форму TOpenDialog, у него есть метод Execute, потом из свойства FileName считывай имя выбранного файла. Всё это в OnClick у TButton. А уж как этот файл открывать зависит от его типа.

Olezka

procedure buton1klick(sender...)
бэгин
if OpenDialog1.Execute then Memo1.Lines.LoadFromFile (OpenDialog1.FileName);
конэц

Помогите начинающему, как сформировать в процедуре нажатия кнопки SQL запрос на поиск из 2-х столбцов базы искомого содержания. С поиском в одном столбце всё понятно, разобрался. У меня Delphi6? , база MSAccess.

ну все просто
SELECT t1.f1, t1.f2,....t1.fn FROM table1 t1 WHERE t1.f1 = v1 AND WHERE t1.f2 = v2
table1 - имя табл
t1 - псевдоним табл, придуманый тобой, можно не юзать
WHERE t1.f1 = v1 AND WHERE t1.f2 = v2
- это само условие выборки, то есть выбери все записи у которых поле1 = в1 И поле 2 равно в2, где в1, в2 - твои искомые значения.

А вообще почитай книги по теории реалиционных субд и скл.

EZH
RostY
Спасиба!!!

У меня такие два вопроса:
1) Как сделать копироваие текста из Webbrowser под средством drag and drop
2) Операции с файлами на жестком диске, копирование, создание папок и тд.

На счет 2, все просто:
CreateDirectory()
CreateDir()
CopyFile()
DeleteFile()

Уважаемые Корифеи!
В режиме консольного протокола нужны аналоги
функций KeyPressed() и ReadKey(). И еще вопрос -
как загнать символ в буфер клавиатуры?
Заранее благодарю за советы.

3anadJIo
копирорвание файлов:
делая всегда через поток

Код:
procedure FileCopy(const SourceFileName, TargetFileName: string);
var
S, T : TFileStream;
begin
S := TFileStream.Create(sourcefilename, fmOpenRead );
try
T := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate);
try
T.CopyFrom(S, S.Size ) ;
FileSetDate(T.Handle, FileGetDate(S.Handle));
finally
T.Free;
end;
finally
S.Free;
end;
end;

DroN_S
1. Твоя функция копир. файлов работает быстрее, чем функция API Windows ShFileOperation?
2. Копирует ли она файл с полным путем к нему?

Цитата:

2. Копирует ли она файл с полным путем к нему?

Не понимаю вопроса. Ведь "полный путь" по определению полный. Копирует.

Я имею ввиду копирование с сохранением структуры папок.

Vitus_Bering
ты навеоно немного не понял из исходника, у меня идёт не копирование каталогов а только файлов...
для копирования файлов с каталогами, я делаю так

Код:
var
OpStruc: TSHFileOpStruct;
frombuf, tobuf: array [0..128] of Char;
begin
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, 'c:\1\*.*' );
StrPCopy( tobuf, 'c:\2' );
with OpStruc do
begin
Wnd:= Handle;
wFunc:= FO_COPY;
pFrom:= @frombuf;
pTo:=@tobuf;
fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:= False;
hNameMappings:= nil;
lpszProgressTitle:= nil;
end;
ShFileOperation( OpStruc );

DroN_S
Меня интересует, есть ли другой способ копирования файлов с каталогами, не используя ShFileOperation, и который делает это быстрее.