Como criar um editor de Par�metros com ListView???

Question

Pessoal, tem como criar um editor de par�metros usando um ListView??tipo, quando vai-se ajustar a propriedade Filter de algum OpenDialog, aparece um componente semelhante ao listview onde vc tem duas ...

Eniorm · Answer

Montei o editor de par�metros da seguinte forma, no OnShow do form, ele carrega as informa��es de um arquivo INI.

procedure TF_BancoDeDados.FormShow(Sender: TObject);
var
  i, tam, Inicio, Fim : integer;
  s : TStringList;
  valor, parametro : string;
begin
  inherited;
  s := TStringList.Create;
  s.LoadFromFile(�config_db.ini�);
  inicio := 1;
  for i := 0 to s.Count -1 do begin
    tam := Length(s[i]);
    fim := Pos(�=�,s[i]);
    parametro := Copy(s[i],inicio,fim-1);
    valor := Copy(s[i],fim+1,tam-fim);
    with ListView1.Items.Add do begin
      Caption := Trim(parametro);
      SubItems.Add(Trim(valor));
    end;
  end;
  s.Free;
end;

� exibido num ListView, configurado com 2 colunas, e a propriedade [b:dea9f8b72f]ViewStyle [/b:dea9f8b72f]como [b:dea9f8b72f]vsReport[/b:dea9f8b72f]

para gravas as modifica��es feitas no listview eu uso o procedimento:

procedure TF_BancoDeDados.act_GravarExecute(Sender: TObject);
var
  s : TStringList;
  i : integer;
  texto : string;
begin
  inherited;
  s := TStringList.Create;
  for i := 0 to ListView1.Items.Count -1 do begin
    texto := ListView1.Items[i].Caption + �=� + ListView1.Items[i].SubItems.Text;
    s.Add(Trim(texto));
  end;
  s.SaveToFile(�config_db.ini�);
  s.Free;
  Close;
end;

e o arquivo INI com os par�metros s�o usados com o SQLConnection.Params.LoadFromFile

abra�o