1] .Left- Form8.lbl [1] .Width - 5; .lbl [1] .Top:=30 ;; dbgrd1.Columns.Count gt; 1 theni:=2 to dbgrd1.Columns.Count do.dbedt[i]:=TDBEdit.Create(form8);.dbedt[i].Parent:=form8;.dbedt[i].Left:=form8.dbedt[1].Left;.dbedt[i].Top:=form8.dbedt[i- 1] .Top + 10 + form8.dbedt [i - 1].Height;.dbedt[i].Width:=form8.dbedt[1].Width;.dbedt[i].Height:=21;.dbedt[i].DataSource:=fDM.DataSource1;.dbedt[i].DataField:=dbgrd1.Columns[i- 1] .Title.Caption; .dbedt [i] .ReadOnly:=True; .lbl [i]:=TLabel.Create (form8) ;. lbl [i] .Parent:=form8; .lbl [i] .Caption:=dbgrd1.Columns [i - 1] .Title.Caption + laquo ;: raquo ;;.lbl [i] .Left:=form8.dbedt [1] .Left-form8.lbl [i] .Width - 5; .lbl [i] .Top:=form8.dbedt [i - 1] .Top + 10 + form8.dbedt [i - 1].Height;;.Height:=form8.dbedt[dbgrd1.Columns.Count].Top+form8.dbedt[dbgrd1.Columns.Count].Height+100;.Enabled:=false;.row:=dbgrd1.Columns.Count;
end;
Додаток 4. Код підвантажуємий бібліотеки
library Project2; ,,;: integer=1;
{$ R * .res} Log (text: string; PlaceLog: TMemo); stdcall; export; textLog: string;:= [ + inttostr (i) + ] raquo ;;:=textLog + DateToStr (Date);:=textLog + / Raquo; + Timetostr (Time) + laquo ;: raquo ;;:=textLog + text; .Lines.Add (textLog);:=i + 1 ;; Log;
begin.
