Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Господа Мастера, вопрос по Query... [D5, Paradox]

KMM © (2002-01-30 11:59:00)
При работе со статическим запросом есть возможность задавать для полей Query требуемый формат (DisplayFormat).
Подскажите, пожалуйста, можно ли и если да, то как, задавать
формат в процессе выполнения программы для динамического запроса.
Заранее благодарю.

KMM (2002-01-30 14:42:00) [1]
to TSV - Спасибо.
to Johnmen - Огромное спасибо! Работает!

Johnmen (2002-01-30 14:34:00) [2]
я думаю, что можно просто на ТЫ - так проще...

Johnmen (2002-01-30 14:32:00) [3]
var F : TFloatField; // если поле Float

...

F:=TFloatField.Create(Self);
F.FieldName:="num";
F.DataSet:=MyQuery;
F.DisplayFormat:="#,##0.00";
MyQuery.Fields.Add(F);

MyQuery.Open;

Перед SQL.Add... не забывай SQL.Clear и MyQuery.Fields.Remove(F)

KMM (2002-01-30 14:29:00) [4]
to Johnmen
Sorry, моя последняя реплика (14:45) была написана и послана до
Вашей последней (14:04). Сейчас попробую сделать как Вы советуете.

KMM (2002-01-30 14:25:00) [5]
Извиняюсь за назойливость, повторю вопрос:
В run-time формирую запрос
with MyQuery do
begin
Sql.Add("select shifr, num from mytable");
end;
здесь num - поле которому надо задать определенный формат
Я могу создать в run-time какое-то поле F, но не понимаю
как "присобачить" (извиняюсь, конечно) его к моему MyQuery,
чтобы это F соответствовало num и как потом добраться до
свойства DisplayFormat этого F.

Johnmen (2002-01-30 14:04:00) [6]
F:=TFloatField.Create(Self);
F.FieldName:="FieldName";
F.DataSet:=YourQuery;
F.DisplayFormat:="#,##0.00";
YourQuery.Fields.Add(F);
YourQuery.Open;

подробности опускаю, но это работает :)

Johnmen (2002-01-30 13:41:00) [7]
Попробуй : Query1.Fields.Add(F);

KMM (2002-01-30 13:16:00) [8]
to TSV
Мда, тут я, признаться, полный профан.

Написал что-то типа:
procedure Myproc();
var F:TField;
begin
F:=TField.Create(self);
F:=MyQuery.Fields[1]; //MyQuery -это мой запрос,
end;

А дальше что? Или я вообще не так все делаю?
Был бы очень признателен за более подробное объяснение.

TSV (2002-01-30 12:24:00) [9]
Создавать в run-time TField и/или его потомки. Ну, и назначать им DisplayFormat.

Удачи.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »