Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS
←   Май 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 119
от 12.05.2005, 05:00

Администратор:Калашников О.А.
В номере:Вопросов: 2, Ответов: 6

Вопрос № 20510: Приветствую всех экспертов.У меня такой вопрос.Как сделать так что оператор pos() при поиске в массивах ну учитывал регистр слов которые находятся в массивах?Спасибо....
Вопрос № 20531: Зраствуйте ув. эксперты. Можно ли управлять таблицей (добавлять удалять записи) не используя компоненты типа DBEdit и DBGrid? а используя простые Edit: TEdit например как в VFP. т.е. значение определенного поля Edit присвоить ячейке активной стро...

Вопрос № 20510
Приветствую всех экспертов.У меня такой вопрос.Как сделать так что оператор
pos() при поиске в массивах ну учитывал регистр слов которые находятся в массивах?Спасибо.
Отправлен: 06.05.2005, 09:10
Вопрос задал: zeromaps (статус: 2-ой класс)
Всего ответов отправлено: 5
Отвечает: mvp
Здравствуйте, zeromaps!
Если ну учитывал регистр, то он его и так учитывает. А если не учитывал, то pos(LowerCase(string), LowerCase(substring)) или UpperCase
Ответ отправил: mvp (статус: 2-ой класс)
Отправлен: 06.05.2005, 09:49
Отвечает: VBA
Здравствуйте, zeromaps!
Используем функции: AnsiUpperCase или AnsiLowCase.
Var
Position:Integer;
Begin
Position:=Pos(AnsiUpperCase(String1),AnsiUpperCase(String2));
End;
Ответ отправил: VBA (статус: 2-ой класс)
Отправлен: 06.05.2005, 11:02
Оценка за ответ: 5
Отвечает: Malish
Здравствуйте, zeromaps!
Существует две функции которые переводят строки в нижний регистр
function AnsiLowerCase (const S: string): string;
function LowerCase (const S: string): string;
И две кторые в верхний регистр
function AnsiUpperCase (const S: string): string;
function UpperCase (const S: string): string;
Какой регистр больше нравится - в таком и делай поиск.
Ответ отправил: Malish (статус: Студент)
Отправлен: 06.05.2005, 11:03
Оценка за ответ: 5
Отвечает: nimoid
Здравствуйте, zeromaps!
AnsiLowerCase() или AnsiLowerCase().
Ответ отправил: nimoid (статус: 1-ый класс)
Отправлен: 06.05.2005, 15:12
Отвечает: komatoz
Здравствуйте, zeromaps!
Предварительно преобразуй строки, например, в верхний регистр. (функция UpperCase)
Ответ отправил: komatoz (статус: 1-ый класс)
Отправлен: 11.05.2005, 02:46

Вопрос № 20531
Зраствуйте ув. эксперты.
Можно ли управлять таблицей (добавлять удалять записи) не используя компоненты типа DBEdit и DBGrid? а используя простые Edit: TEdit например как в VFP. т.е. значение определенного поля Edit присвоить ячейке активной строки конкретного столбца. Покажите плиз образец кода как это сделать? Как открыть саму таблицу (таблица Paradox .db)? Компонентом Table?

Приложение:

Отправлен: 06.05.2005, 21:14
Вопрос задал: pablopicotso (статус: Посетитель)
Всего ответов отправлено: 1
Отвечает: wils0n
Здравствуйте, pablopicotso!
Всё очень просто. Используйте компонент TTable или TQuery.
Открыть таблицу:
tbl := TTable.Create(nil); // инициализация
tbl.DatabaseName:='your_database';
tbl.TableName:='your_table';
tbl.Active:=true; // активируем таблицу
tbl.Append; // добавляем пустую запись
tbl.FieldByName('столбец1').AsString:=Edit1.text;
tbl.FieldByName('столбец2').AsString:=Edit2.text;
....
tbl.FieldByName('столбецN').AsString:=EditN.text;
tbl.Post; // записали всё это дело
tbl.Active:=false; // закрыли таблицу
FreeAndNil(tbl); // освободили память.
с TQuery похоже дело обстоит, только надо писать запрос.
qu := TQuery.Create(nil); // инициализация
qu.DatabaseName:='your_database';
qu.SQL.Text:=format('INSERT into YOUR_TABLE VALUES(%s,%s,....,%s),[Edit1.text,Edit2.text,...,EditN.text]'); //запрос
qu.SQLExec; // добавили
FreeAndNil(qu); // освободили память.
Заметь, что если при добавлении надо задать значения индексам, если они у тебя есть и они не автоинкрементные. По этому поводу смотри в сторону событий TTable или измени немного запрос у TQuery
Ответ отправил: wils0n (статус: 1-ый класс)
Отправлен: 07.05.2005, 16:13
Оценка за ответ: 5

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.

Яндекс

http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.delphiplus		 Отписаться
В избранное