» Вопросы по Delphi

Насущный вопрос - с какой БД и через что проще всего работать?
Скорость не критична, устойчивость в принципе тоже, объем небольшой

Smog
Вопрос конечно интересный. Что лучше всего знаешь - с тем и работай.

Delphi ругается что нет файла bde.pas. Где его взять.....Вроде полную версию ставил.

Попытайся его серчем найти... существует ли он вообще...
Найдешь... либо директории проверяй... либо повтыкай его всюду...
P.S. А у меня такого файла нет...

Кому не лень, напишите пример поиска по БД. Так ничего и не вышло.

PowerChute
Ладно, поставим вопрос по-другому
Что легче узнать? )

Smog
Самое простое сейчас это создать базу на основе акцеза и работать с ней на дельфи через АДО если база не большая, то через First Next, иначе при помощи запросов SQL. Поставь задачу что тебе надо, будем определяться что и как.
STEEL
Тебе нужен поиск фрагмента в любом столбе или как?
вот способ при помощи SQL
('select * from MyTable where MyColumn like %'+Template+'%');
MyTable таблица в которой надо искать, MyColumn столбец в котором происходит фильтрация записей, Темлэйт это шаблон к5оторый тебе надо найти.
Кидаешь на форму TQUery соединяешь ее с базой при помощи BDE или указываешь полный путь к таблице.

ПОмогите, пожайлуста!
Мне нужно импортировать данные из DBF-файла в текстовой файл по заданной структуре текстового файла!

ShIvADeSt
А с помощью TTable в стобце NAME допустим ?

STEEL

Цитата:

А с помощью TTable в стобце NAME допустим ?

Если тебе принципиально нужен TTable (хотя я не понимаю зачем), то есть 3 способа стандартный при помощи DBLookupComboBox (как использовать смотри в Хелпе)
второе

Цитата:

Searches the dataset for a specified record and makes that record the current record.
function Locate(const KeyFields: String; const KeyValues: Variant; Options: TLocateOptions
): Boolean;
Description
Call Locate to search a dataset for a specific record and position the cursor on it.
KeyFields is a string containing a semicolon-delimited list of field names on which to search.
KeyValues is a variant array containing the values to match in the key fields. If KeyFields lists a single field, KeyValues specifies the value for that field on the desired record. To specify multiple search values, pass a variant array as KeyValues, or construct a variant array on the fly using the VarArrayOf routine. For example:

with CustTable do
Locate('Company;Contact;Phone', VarArrayOf(['Sight Diver', 'P', '408-431-1000']), [loPartialKey]);

Третий (сам когда то его юзал, самый не правильный ИМХО) это используя медоды First Next для таблицы пробегать все записи в поисках нужной. В зависимости от ситуации я использую либо первый либо второй способы, а так вообще делаю просто выборку через TQuery (но тебе я так понял надо чтобы таблица была вся видна и просто осуществить переход к определ записи).

ALL
А никто не встречал в WIN32 API или других библиотеках функции по расширению относительных путей в полные?
т.е. задан путь вида '.\myDir\SubDir\fileName.ext' а получаем на выходе 'C:\programm files\CoolProg\myDir\SubDir\fileName.ext'. Вроде в встречал когдато такую функцию, щас понадобилось, а найти не могу. :((

ViktorSila

Цитата:

Delphi ругается что нет файла bde.pas. Где его взять.....Вроде полную версию ставил.

Borland к BDE исходники не поставляет.

vserd

Цитата:

т.е. задан путь вида '.\myDir\SubDir\fileName.ext' а получаем на выходе 'C:\programm files\CoolProg\myDir\SubDir\fileName.ext'.

ExpandFilePath (сорри если немного не так, щас под рукой хелпа нет, но если я не ошибаюсь то ключевое слово здесь Expand)

Люди, помгите сделать ConnectionString для ADOConnection.
Если делать его через менеджер получается строка :

Код: Provider=SQLOLEDB.1;Password=masterkey;Persist Security Info=True;User ID=roton;Initial Catalog=Roton;Data Source=SNAKE

Solnake

Цитата:

Люди, помгите сделать ConnectionString для ADOConnection.

А что за ошибка???
У меня всё работало ;)

Tropin

Цитата:

А что за ошибка???

Цитата:

Project Roton.exe raised esception class EAccessViolation with message 'Access violation at address
004A00CF module 'Roton.exe'. Read of address 00000058'. Process stoped. Use Step or Run to continue.

ShIvADeSt

Цитата:

ExpandFilePath

она самая, спасибо!!!

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

kanat35
GetLocalTime и далее по хелпу пиолучаеешь время.

Подскажит, пожалуйста. Как забивать данные в двумерный массив из файла? То есть имеется файл с данными:

1 0 1 1 1
1 1 0 1 1
0 0 1 0 1
1 1 1 1 1

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

Если у тебя все числа в одну цифру, то забивай через номер символа.
st:string

a[1,1]:=st[1]
a[1,2]:=st[3]
....

HelL_Doctor

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
F: Text;
A: array [1..4, 1..5] of Byte;
i, j: Byte;

begin
AssignFile(F, 'C:\file.txt');
Reset(F);
for i:=1 to 4 do begin
for j:=1 to 5 do begin
Read(F, A[i, j]);
end;
Readln(F);
end;
CloseFile(F);
end.

Доброго времени суток.

Вот такая вот проблема:

каким образом мне можно послать в другую программу в ее главное окно в компонент Edit текст?
Хэндл окна я получил, кнопки жать тоже получается, но вот почему то не хочет посылаться текст:


Цитата:

wHandle:=FindWindow(nil,'Name_of_Window');
wHandle:=FindWindowEx(wHandle,0,'Edit',nil);
SendMessage (wHandle, WM_SETTEXT,0,Longint(Edit1.Text));

интересен факт, что например

wHandle:=FindWindow(nil,'Name_of_Window');
SendMessage (wHandle, WM_SETTEXT,0,Longint(Edit1.Text));

благополучно меняет название окна.

Как таки достучаться до моего EDITа?

FighterZP

Цитата:

wHandle:=FindWindowEx(wHandle,0,'Edit',nil);

Имя класа TEdit обычно, если программист не поменял.
Впрочем так тоже не хочет...
А не работает по причине, что на форме может быть несколько TEdit. Какой первым будет - винде видней.
Если писать так FindWindowEx(wHandle,0,nil,'Edit1'); - всю работает

OdesitVadim

попробывал твой вариант - все равно не посылается текст
я даже создал простешую програмку с одним только компонентом EDIT на форме, и попытался в это окно послать текстк в компонент EDIT. все равно не работает
в программе SW32.EXE (она встроена и в Билдер и в Делфи) попытался найти свой процесс и названия компонентво в моей тестовой программе - поиск вообще ничего не дал

может быть проблема в том что нужно посылать ДОЧЕРНЕМУ ОКНУ или , поточнее, CHILD WINDOW..... только вот как это сделать?

или даже можно следующим образом - по умолчанию при открытии формы, фокус ввода уже стоит на компоненте EDIT, и в буфере обмена Винды у меня уже хранятся необходимые для пересылки данные, нужно всего лишь нажать программно CTRL+V, что тоже не получается

---------------------

кстати, в этом же самом окне находится кнопка, ее нажать получается, следовательно, доступ к этому окну уже есть, но вот обратиться к EDIT не получается.

А попробовать использовать EnumChildWindows, если Handle родительского окна найден?
Она дает ссылки на все окна, принадлежащие заданному окну.

Как можно получить данные из экселевского файла? Файл не должен быть открыт. Передать данные удается, а вот получить нет.

MrZeRo

если точнее описать, то я уже имею в принципе Handle нужного мне окна и запросто меняю его название на данные, которые находятся в буфере обмена.
с помошью WINSIGN32 узнал что имя компонета - EDIT ......
дальше - полный мрак, грамматика правильная, результата ноль!

SergeyReutov
Как же ты передаёш Excel, если документ не открыт? В любом случае его прийдётся открыть (даже через AssignFile Reset). Наиболее просто - через СОМ технологию. Есть правда библиотека для работы с Excel напрямую, но лучше не рисковать.
FighterZP
Я пример свой потестировал - работает.
Попробуй вставить проверку на хендл. Если больше 0, то нормально (для Винды практически он должен быть не менне нескольких тысяч). Если он равен 0 - то плохо.

OdesitVadim
Через шаблон. Открываешь шаблон и передаешь в него все данные, потом сохраняешь под другим именем.