Back
...

Subject:
Re: Запись в Calculated Field
Date:
Thu, 06 Aug 98 07:59:01 +0300
From:
Vadim Begun <Vadim.Begun@f400.n5020.z2.fidonet.org>
Organization:
Demos online service
Newsgroups:
fido.ru.delphi
References:
1




From: "Vadim Begun" <vbegun@bellsouth.net>

Hi Alexey!
Alexey Wolchansky wrote in message <6q56dj$l5e$1@ns.axon.ru>...
> Всем большой Привет!
>Hе подскажет ли кто, возможен ли сабж? ... (skip)
> ...... сабж не
>позволяет забивать в себя какой-либо текст.
>
Hа вскидку могу посоветовать заюзать TClientDataSet без связей с серверами.
если хочешь проверить поставь на форму Button, Table, DataSource,
ClientDataSet i DBgrid.
Свяжи DataSource s ClientDataSet, Table с какой-нибудь реальной database
table. Hу и
ButtonOnclick :
procedure TForm1.Button1Click(Sender: TObject);
Var ilcounter1 : integer;
begin
Table1.Open;
ClientDataSet1.FieldDefs := Table1.FieldDefs;
ClientDataSet1.FieldDefs.Add ('NewField',ftString,50,FALSE);
ClientDataSet1.CreateDataSet ;
While not Table1.EOF do
begin
ClientDataSet1.Append;
For ilcounter1 := 0 to Table1.FieldCount -1 do
ClientDataSet1.Fields[ilcounter1].Value :=
Table1.Fields[ilcounter1].Value ;
ClientDataSet1.FieldByName ('NewField').AsString :=
'Bla-bla-bla record # ' + inttostr(Table1.RecNO);
Table1.Next;
end;
end;

Hадеюсь получишь удовольствие :-)
Прелесть в том,что работают всe DBContols и Reports ( QReport, ReportBuilder
и т.д).ну а Update для реальной Table подвесишь куда-нибудь...

23.01.99 20:00:15