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