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

03/04/2006

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 colunas, uma pra colocar o nome da mascara e a outra a mascara.

tem como fazer um, pois quero colocar no meu projeto o editor de parametros para configurações do sistema, banco etc...
tipo

NomeDoParametro Valor Host localhost Banco alias_sistema CommitRetain true


abraço a todos


Eniorm

Respostas

04/04/2006

Eniorm

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&93;);
    fim := Pos(´=´,s&91;i&93;);
    parametro := Copy(s&91;i&93;,inicio,fim-1);
    valor := Copy(s&91;i&93;,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&93;.Caption + ´=´ + ListView1.Items&91;i&93;.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


Responder Citar