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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.306 RSS
←   Июль 2006   →
 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.306 подписчиков
0 за неделю
←   Все выпуски   →

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


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

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

Выпуск № 520
от 02.07.2006, 16:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 364, Экспертов: 62
В номере:Вопросов: 3, Ответов: 6

Вопрос № 47431: Доброго времени суток всем! Соединение с удаленным сервером Firebird(Interbase) занимает секунд 20. Это команда DataBase.Connected:=True. Возможно ли запустить эту команду в другом потоке, чтобы приложение в это время выполняло еще некоторые действия...
Вопрос № 47461: Здравствуйте эксперты. Подскажите пожалуйста как сделать так чтобы одна форма вылезалавсплывала из другой. Желательно с исходником. Или подскажите где можно найти. Зарание Спасибо....
Вопрос № 47482: Доброе время суток эксперты! Как мне из Memo1 в Мemo2 перевести строчные буквы в прописные и наоборот?...

Вопрос № 47.431
Доброго времени суток всем! Соединение с удаленным сервером Firebird(Interbase) занимает секунд 20. Это команда DataBase.Connected:=True. Возможно ли запустить эту команду в другом потоке, чтобы приложение в это время выполняло еще некоторые действия?
Заранее благодарен.
Отправлен: 27.06.2006, 09:03
Вопрос задал: Coven (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Проходящий Мимо
Здравствуйте, Coven!
Создать поток можно так:
Описываем клас
type
TThreadOpen = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;

...
//реализация
procedure TThreadOpen.Execute;
begin
Form1.IBDatabase1.Connected:=true;
Form1.IBTransaction1.StartTransaction;
end;

В методе формы создаем поток
procedure TForm1.FormCreate(Sender: TObject);
begin
with TThreadOpen.Create(false) do
FreeOnTerminate:=true;
end;

Другой вопрос в том, почему у Вас так долго подсоединяется приложение к серверу. Возможно, нужно попробовать использовать иной протокол: TCP/IP или NetBEUI. Или проблема где-то в локальной сети. Нужно в первую очередь разобратся с этим. Удачи.
---------
Carpe diem!
Ответ отправил: Проходящий Мимо (статус: 5-ый класс)
Ответ отправлен: 27.06.2006, 10:03
Оценка за ответ: 5

Вопрос № 47.461
Здравствуйте эксперты. Подскажите пожалуйста как сделать так чтобы одна форма вылезалавсплывала из другой. Желательно с исходником. Или подскажите где можно найти.
Зарание Спасибо.
Отправлен: 27.06.2006, 13:34
Вопрос задал: Ram (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: LanK
Здравствуйте, Ram!

Уж не знаю, что Вы подразумеваете под "вылезалавсплывала", но можете использовать тот же принцип, который Вам предложил Serg_6667 в ответе на Ваш вопрос:
http://rusfaq.ru/?Step=info&Action=Question&ID=47112

Приложение:

---------
Пусть все будет хорошо! Давайте жить дружно! :) И будет жить еще лучше!

Ответ отправил: LanK (статус: Студент)
Ответ отправлен: 27.06.2006, 14:39

Вопрос № 47.482
Доброе время суток эксперты!
Как мне из Memo1 в Мemo2 перевести строчные буквы в прописные и наоборот?
Отправлен: 27.06.2006, 16:12
Вопрос задал: Павел Игнатьевич (статус: 1-ый класс)
Всего ответов: 4
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: LanK
Здравствуйте, Павел Игнатьевич!

Memo2.Text := AnsiUpperCase(Memo1.Text); //вверхний регистр

//AnsiLowerCase // - нижний
---------
Пусть все будет хорошо! Давайте жить дружно! :) И будет жить еще лучше!
Ответ отправил: LanK (статус: Студент)
Ответ отправлен: 27.06.2006, 16:32
Оценка за ответ: 5
Отвечает: Савенко Вадим Иванович
Здравствуйте, Павел Игнатьевич!
А еще смотрите вопрос 46316. Копировать можете хоть как указано выше, хоть в цикле построчно - как больше нравится
Memo2.Lines.Add(AnsiLowerCase(Memo1.Lines.Strings[0]));// копируется первая строка в нижнем регистре
Ответ отправил: Савенко Вадим Иванович (статус: 2-ой класс)
Ответ отправлен: 27.06.2006, 16:52
Оценка за ответ: 4
Отвечает: Сухомлин Кирилл Владимирович
Здравствуйте, Павел Игнатьевич!
По-моему, требовалось сделать примерно такое преобразование:
AnsiText -> aNSItEXT
Тогда надо переносить посимвольно.

Если интересует что-то более простое, то вам уже ответили.

Приложение:

Ответ отправил: Сухомлин Кирилл Владимирович (статус: Студент)
Ответ отправлен: 27.06.2006, 18:21
Оценка за ответ: 5
Отвечает: METALLDOCTOR
Здравствуйте, Павел Игнатьевич!
Желательно - написать функцию, обращающую регистры в строке и поочерёдно прогнать все строки через неё. Примерный код процедуры - в приложении. С русским языком могут быть неточности, но принцим примерно такой...

Приложение:

---------
Ни о чём не жалею!

Ответ отправил: METALLDOCTOR (статус: 5-ый класс)
Ответ отправлен: 27.06.2006, 19:14

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

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

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

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


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

© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.34 от 01.06.2006 		Яндекс Rambler's Top100
В избранное