Array
(
)

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

Eniorm
   - 03 abr 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


Citação:
NomeDoParametro Valor
Host localhost
Banco alias_sistema
CommitRetain true


abraço a todos


Eniorm
   - 04 abr 2006

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

#Código

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 ViewStyle como vsReport

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

#Código
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