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

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


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

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

Выпуск № 849
от 25.06.2007, 16:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 466, Экспертов: 81
В номере:Вопросов: 4, Ответов: 8


Вопрос № 92084: Добрый день. У меня составлен список Базы данных по ФИО. Подскажите как зделать так чтобы изменения внесенные в таблицу DBGRID Можно было сохранить нажав кнопку "сохранить".И в ней сохранялись все изменения. Это нужно для безопасности БД....
Вопрос № 92091: Здравствуйте господа Эксперты!!! Помогите написать программу (Delphi).Вывести элементы массива на экран в обратном порядке....
Вопрос № 92141: Здравствуйте уважаемые эксперты!У кого-нибудь есть описания всех компонентов Delphi на русском языке?...
Вопрос № 92144: Здравствуйте уважаемые!Первый вопрос у меня не по теме.При отправке Вам вопрса у меня горит" Вы используете устаревшую форму отправки вопроса!".Объясните, а какую надо, дайте ссылку.Ну и у меня очередной вопрос.Как зная индекс подсветить в ...

Вопрос № 92.084
Добрый день. У меня составлен список Базы данных по ФИО. Подскажите как зделать так чтобы изменения внесенные в таблицу DBGRID Можно было сохранить нажав кнопку "сохранить".И в ней сохранялись все изменения. Это нужно для безопасности БД.
Отправлен: 19.06.2007, 17:40
Вопрос задал: Веретенников Игорь Викторович (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Градов Юрий Михайлович
Здравствуйте, Веретенников Игорь Викторович!

procedure TForm1.Button1Click(Sender: TObject);
begin
if Table1.State in [dsEdit] then Table1.Post;
end;

---------
Глаза боятся - руки делают!
Ответ отправил: Градов Юрий Михайлович (статус: Практикант)
Ответ отправлен: 19.06.2007, 21:36


Вопрос № 92.091
Здравствуйте господа Эксперты!!! Помогите написать программу (Delphi).Вывести элементы массива на экран в обратном порядке.
Отправлен: 19.06.2007, 19:26
Вопрос задал: Gold1k (статус: Посетитель)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 6)

Отвечает: Louken
Здравствуйте, Gold1k!
Решение задачи в приложении:

Приложение:

Ответ отправил: Louken (статус: 8-ой класс)
Ответ отправлен: 19.06.2007, 19:31
Оценка за ответ: 5
Комментарий оценки:
Блин спасибо, ну надо на Delphi

Отвечает: DimonSoft
Здравствуйте, Gold1k!

Ввод информации - по вкусу. Привожу только алгоритм соответствующего условию перебора элементов массива (впрочем, этот алгоритм уже приводили).

for i:=Last downto First do
Вывод(A[i]);

Вместо Last и First - индексы последнего и первого элементов соответственно, Вывод - любой способ вывода информации (ShowMessage, MessageBox, заполнение таблицы и др.), A - массив.

И ещё... Меня за это, конечно, другие эксперты сейчас по голове бить будут, но рекомендую Вам как-нибудь разобраться-таки с основами программирования. Если нужна помощь - можете обращаться прямо ко мне, чтобы не забивать RusFAQ почти одинаковыми вопросами.

Благодарю за внимание и удачи!
Ответ отправил: DimonSoft (статус: 2-ой класс)
Ответ отправлен: 19.06.2007, 21:06

Отвечает: CjJoker
Здравствуйте, Gold1k!

var StrArray: array of string = ('one','two','three');
i: integer;

for i=High(StrArray) - 1 downto Low(StrArray) do
ListBox1.Items.Add(StrArray[i]);
Ответ отправил: CjJoker (статус: 2-ой класс)
Ответ отправлен: 20.06.2007, 10:35


Вопрос № 92.141
Здравствуйте уважаемые эксперты!У кого-нибудь есть описания всех компонентов Delphi на русском языке?
Отправлен: 20.06.2007, 06:25
Вопрос задал: Киселев Сергей Николаевич (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Кэр Лаэда
Здравствуйте, Киселев Сергей Николаевич!

советую вам купить вот эту книгу

ну а если книги нет возможности купить, то посмотрите вот тут

компоненты правда далеко не все, но для начала пойдет

а еще тут

и вот тут еще 3 части справочника не только по компонентам но и по функциям
Часть 1 ,
Часть 2
и
Часть 3



---------
Я знаю что ничего не знаю, но я знаю больше, чем тот кто думает что знает все
Ответ отправил: Кэр Лаэда (статус: Студент)
Ответ отправлен: 21.06.2007, 11:25

Отвечает: Coupler
Здравствуйте, Киселев Сергей Николаевич!
Посмотрите вот эту книгу (delphi 5).
Ответ отправил: Coupler (статус: Практикант)
Ответ отправлен: 21.06.2007, 12:19


Вопрос № 92.144
Здравствуйте уважаемые!Первый вопрос у меня не по теме.При отправке Вам вопрса у меня горит" Вы используете устаревшую форму отправки вопроса!".Объясните, а какую надо, дайте ссылку.Ну и у меня очередной вопрос.Как зная индекс подсветить в ListBox необходимую мне строку,какое событие мне нужно обработать.
Отправлен: 20.06.2007, 07:25
Вопрос задал: GAZOT (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Sandy
Здравствуйте, GAZOT!
По 1й части не знаю. По 2й: ListBox1.Selected[i]:=true;
Событие не причем - если конечно Вы не имели ввиду событие нажатия кнопки для выбора в списке:)
Ответ отправил: Sandy (статус: 4-ый класс)
Ответ отправлен: 20.06.2007, 09:24
Оценка за ответ: 5

Отвечает: Coupler
Здравствуйте, GAZOT!
Чтобы отметить выбранной ячейку с нужным индексом:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=5;
form1.ListBox1.ItemIndex:=i;
end;
Чтобы подсветить ячейку с нужным индексом каким-либо цветом:
(Установите значение свойства ListBox1.Style равным lbOwnerDrawFixed)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
procedure ListBox1DblClick(Sender: TObject);
procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i:integer;
implementation
{$R *.dfm}
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
i:=5;
form1.ListBox1.Repaint;
end;
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox).Canvas do
begin
if Index=i then
Brush.Color := clred;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
end;
end;
Ответ отправил: Coupler (статус: Практикант)
Ответ отправлен: 20.06.2007, 12:29
Оценка за ответ: 5


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

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

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

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

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


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


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.52 от 02.05.2007
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное