Про DBGrid и БД, а так же просмотрите код.

← →
MakedoneZ © (2005-02-02 12:58) [0]

1)Как сделать так чтоб при удалении некоторых строк в TDBGrid соответствующая записи в БД так же удалялись,а остальные строки в TDBGrid поднимались вверх на место удаленных?

2)
Procedure PutDots(Table: TTable; var Cycle: Byte );

var x: Integer;
Graph: TImage;
begin

if Cycle=0 then cycle:=1;
case Cycle of
1: Graph:=frmGraph.imgGraph_1;
2: Graph:=frmGraph.imgGraph_2;
3: Graph:=frmGraph.imgGraph_3;
else ShowMessage("В запиисях ошибка");
end;
if Cycle=1 then Cycle:=0;

x:=128;
with Graph.Canvas do
begin
MoveTo(x,150-Round( (StrToCurr(Table.Fields.Fields[1].AsString)-35.8)*16) );
Inc(x,16);
Table.Next;
LineTo(x,150-Round( (StrToCurr(Table.Fields.Fields[1].AsString)-35.8)*16) )
end;

end;

Почему выдает "36.4"(Это значение свторого столбца некоторй строки TDBGrid"a оно имеет тип Currency) is not a valid floating operation.

← →
Sergey13 © (2005-02-02 13:03) [1]

1. Ты смог сделать по другому?

Все таки надо различать грид (визуализация) и набор данных.

← →
msguns © (2005-02-02 13:04) [2]

>1)

?

>StrToCurr(Table.Fields.Fields[1].AsString)

Туда-обратно ? А это-то зачем ?

← →
Соловьев © (2005-02-02 13:05) [3]

1) так и есть
2)

> MoveTo(x,150-Round( (StrToCurr(Table.Fields.Fields[1].AsString)-35.8)*16)
> );

MoveTo(x,150-Round( Table.Fields.Fields[1].AsFloat-35.8)*16)

> Table.Next;

а где проверка на Table.Eof? где выход из цикла?

← →
msguns © (2005-02-02 13:13) [4]

>Соловьев © (02.02.05 13:05) [3]
>а где проверка на Table.Eof? где выход из цикла?

Где ты в приведенном коде углядел цикл ?

← →
Соловьев © (2005-02-02 13:18) [5]

> Где ты в приведенном коде углядел цикл ?

while с with попутал 8)

← →
Sergey13 © (2005-02-02 13:21) [6]

Какой смысл Cycle менять туда обратно?

← →
msguns © (2005-02-02 13:28) [7]

Самое интересное, что все промолчали об очень оригинальном способе рисования графика. Для каждой точки (!) насилуется датасет. Это если у меня 10000 записей, да еще давать инвалидэйт графику после каждой "фрикции", это ж сколько будет продолжаться полный акт ? Я б уже кончил раз пять и уснул за это время.

Похоже, массивы у македонцев не в моде ;)

← →
MakedoneZ © (2005-02-02 13:38) [8]

Поаерьте условие с Cycle нужно.
А как насчет моего вопроса?

И еще какая разница между ByteBool,WordBool,LongBool все принимают значение либо "true" либо "false",а кол-во памяти занимают разное.

← →
MakedoneZ © (2005-02-02 13:39) [9]

Уважаемый сергей,действительно,надо бы мне массивы использовать.
Спасибо,подкинули идею.

← →
msguns © (2005-02-02 13:52) [10]

>И еще какая разница между ByteBool,WordBool,LongBool все принимают значение либо "true" либо "false",а кол-во памяти занимают разное.

Тип Bool служит для хранения данных типа флажков, каждый из которого может быть "поднят" или "опущен". В частности этот тип неявно используется так:

TOption = (toEdit, toInsert, toAppend, toDelete,..)
TOptions = set of TOption

В зависимости от к-ва флажков переменная может занимать в памяти 1 байт (до 8 флагов), 2 байта (16 флагов) и т.д.
Если Вы хотите юзать этип тип для хранения одного флажка, то без разницф, сколько байт Вы под него отведете, проверяться будет всегда младший бит младшего байта.

>А как насчет моего вопроса?

function Round(X: Extended): Int64; Description The Round function rounds a real-type value to an integer-type value. X is a real-type expression. Round returns an Int64 value that is the value of X rounded to the nearest whole number. If X is exactly halfway between two whole numbers, the result is always the even number. This method of rounding is often called “Banker’s Rounding”. If the rounded value of X is not within the Int64 range, a run-time error is generated, which can be handled using the EInvalidOp exception.

← →
MakedoneZ © (2005-02-02 13:57) [11]

Thanks a lot,that was my mistake.

← →
msguns © (2005-02-02 13:58) [12]

В IDE дельфей есть классная фича: если подвести мышу к какой-нить букве слова кода (все равно к какой), допустим к "Round" и, нажав и задержав левую кнопку, жмякнуть по F1, то нам откроется окошко с подсказкой по этому слову.
Что часто избавляет от необходимости лезть на форум с глупыми вопросами ;)

← →
MakedoneZ © (2005-02-02 14:19) [13]

Не!, клево это вы сказали. :)

А вот тут говорим про второй вопрос,а первый то забыли обсудить.
Просмотрите пожалуйста. В самом начале.

Это вот этот :
1)Как сделать так чтоб при удалении некоторых строк в TDBGrid соответствующая записи в БД так же удалялись,а остальные строки в TDBGrid поднимались вверх на место удаленных?
?

Хмм.. Попробую еще клево сказать:
Как сделать так, чтоб когда в зеркале девушка разделась, она б сама тоже оказалась голой ?

Я понял,вы имеете ввиду надо удалить надо удалить в БД а все остальное само собой.
Но как блин это сделать.

Я когда прочитал начал ржать :) Честно.

Хорошо вы так сравнили. :) Хотел позвонить любимой и попросить чтоб она проэксперементировала. :)

ЧТО СДЕЛАТЬ ?
Удалить запись из таблицы ?
Блин, мыша сломалась или не найдем на клаве F1 ?
Ну почитай же справку по этой заежаной TTable в конце концов !! В разделе "Methods" в числе прочих есть и такой: Delete

Кстати, еще на будущее: когда задаешь вопросы типа сабжевого, обязательно приводи используемые компоненты и тип базы данных, а при необходимости структуры затронутых в сабже таблиц. Вот мне щас надо гадать по твоему интимному намеку "Парадокс", что юзаешь BDE, в частности TTable. А ведь в другой раз я (или кто-то другой из сердобольных) могу и ошибиться.

ЗЫ. Кстати, со своей девушкой ты тоже полунамеками общаешься ?

А вы к своей так же невнимательны как с вопросами по Delphi? :)

Ведь в самом верху написано Delphi 6 Paradox.

>MakedoneZ © (02.02.05 14:39) [17]
>Ведь в самом верху написано Delphi 6 Paradox.

Я упоминал компоненты, а не среду и формат таблиц БД.
Или нам как тому татарину, все едино, абы с ног шибало ?

Ну все,а то превратили форум в чат.
Спасибо за все советы,особенно по массиву.

Про DBGrid и БД, а так же просмотрите код. Найти похожие ветки