DataSet i dinamicko kreiranje komponenti

Code:

while pnl.ComponentCount > 0 do
  pnl.Components[0].Free;

Code:

var
   SviEdit: array of TDBEdit;

Code:

procedure TForm1.CreateFilter(Text:String;pnl:TPanel);
var
   i: integer;
   mtd: TDBEdit;
begin
   for i := 0 to Length(SviEdit)-1 do
      SviEdit[i].Free;

   SetLength(SviEdit, 0);

  ...

Code:

      ...
      mtd := TDBEdit.Create;
      SetLength(SviEdit, Length(SviEdit)+1);
      SviEdit[Length(SviEdit)-1] := mtd
      ...

Code:



function TForm1.AddLike(Text: String; Field: TField): String;
var
   NotNoting : Boolean;
   NuChangeField:Integer;
begin
   if Text <> '' then
      NotNoting := True
   else
      NotNoting := False;

   if NotNoting then
      begin
         Inc(NuChangeField);
         Result := GetNuChangeField(NuChangeField) + Field.FieldName + ' like ' + QuotedStr('%' + Text + '%');
      end;
end;
function TForm1.GetNuChangeField(Number:Integer):String;
var
   Text:String;
begin
   if Number = 1 then
      Text := ' where '
   else if Number >= 2 then
      Text := ' and ';
end;
//ovo je neki iniicijalni kod funkcije koja bi prolazila kroz edite..
function TForm1.Condition(Sender: TObject; Feild: TField): String;
var
   CurrEdit:TEdit;
begin
   if ( Sender is TEdit ) then
      CurrEdit :=

end;

Code:

   for i := 0 to Form1.ComponentCount-1 do
      if ( Components[i] is TEdit ) then 
         ............

Code:

 Components[i] as TEdit 

Code:

TFilterEditRec = record
  Edit: TEdit;
  Label: TLabel;
  FieldName: string;
end;  

Code:

private
  fEditArray: array of TFilterEditRec;

Code:

procedure TForm1.CreateFilter(Text:String;pnl:TPanel);
var
   i:Integer;
   ed:TEdit;
   lbl:TLabel;   
begin
  SetLength(fEditArray, SimpleDataSet1.FieldCount);

  for i := 0 to SimpleDataSet1.FieldCount - 1 do
  begin            
     lbl := TLabel.Create(pnl);
     with lbl do
     begin
       Parent := pnl;
       Left := 10;
       Top := 5;
       if i > 0 then
       begin
         Compom := pnl.FindComponent('ed'+SimpleDataSet1.Fields[i-1].DisplayName);
         if Compom <> nil then
           Top := ed.Top + ed.Height  + Height;
       end;
       Caption := SimpleDataSet1.Fields[i].DisplayLabel;
       Name := 'lbl' + SimpleDataSet1.Fields[i].DisplayName;
     end;
   
     ed := TEdit.Create(pnl);
     with ed do
     begin
       Parent := pnl;
       Left := 10;
       Height := 20;
       Top := lbl.Top+lbl.Height + Height  + 5;
       Name := 'ed' + SimpleDataSet1.Fields[i].DisplayName;
       Text := '';
     end;

     with fEditArray[i] do
     begin  
       Edit := ed;
       Label := lbl;
       FieldName := SimpleDataSet1.Fields[i].FieldName; // ili DisplayName ?
     end;
  end;
end;

Code:

for i := 0 to length(fEditArray) - 1 do // moze i ovako: for i := low(fEditArray) to high(fEditArray) do
  with fEditArray[i] do
  begin
    Edit.Free;
    Label.Free;
  end;  

SetLength(fEditArray, 0); // ovo brise same record-e

Code:


//NuOpen je private promenljivatipa integer

procedure TForm1.OpenDataSet;
var
   TD:TTransactionDesc;
   SqlText,ObjName:String;
begin

   Inc(NuOpen);

   TD.TransactionID := 1;
   TD.IsolationLevel := xilREADCOMMITTED;

   SqlText := 'select * from $ObjName$';
   ObjName := ComboBox1.Text;
   SqlText := StringReplace(SqlText,'$ObjName$',ObjName,[]);

   if NuOpen >= 2 then
      SqlText := SqlText+AddLike;

   SimpleDataSet1.Close;
   SimpleDataSet1.DataSet.CommandText := SqlText;

   SQLConnection1.StartTransaction(TD);
   SimpleDataSet1.Open;

   if SimpleDataSet1.RecordCount = 0 then
      begin
         SQLConnection1.Rollback(TD);
         acPregled.Execute;
      end
   else
      SQLConnection1.Commit(TD);

   if NuOpen = 1 then
      cReateFilter( SqlText , pnlFilter );
end;

function TForm1.Condition(Sender: TObject): String;
var
   CurrEdit:TEdit;
   CuName,Text:String;
begin
   if ( Sender is TEdit ) then
      CurrEdit := TEDit(Sender);
   if CurrEdit.Text <> '' then
      begin
         Inc(NuChangeField);

         if NuChangeField = 1 then
            Text := ' where '
         else if NuChangeField >= 2 then
            Text := ' and ';

         CuName := CurrEdit.Name;
         Delete( CuName , 1 , 2 );

         Result := Result + Text + CuName + ' like ' + QuotedStr('%' +
CurrEdit.Text + '%');
      end
end;


Function TForm1.AddLike:String;
var
   i: integer;
begin
   i := 0;
   NuChangeField := 0;
   while pnlFilter.ComponentCount > i do
      begin
         if pnlFilter.Components[i] is TEdit then
            Result :=  Condition(pnlFilter.Components[i]);
         Inc( i );
      end;

end;

procedure TForm1.acPregledExecute(Sender: TObject);
begin
   NuOpen := 0;
   OpenDataSet;
end;

procedure TForm1.acFilterExecute(Sender: TObject);
begin
   OpenDataSet;
end;