ActiveDelphi

flaviodiniz · Enviada: Qua Out 12, 2011 8:01 pm Assunto: GRAVAR EDIT NO INI

OLA PESSOAL COMO FAÇO PARA GRAVAR A EDIT1.TEXT NO INI
CONFIG.INI

CASO O USUARIO QUERO MUDAR O BANCO DE DADOS

procedure TFrmPrincipal.FormShow(Sender: TObject);

var
iniConf : TIniFile;
sCaminho, sIPservidor : String;
begin
//não precisa verificar se ele existe
sIPServidor := ExtractFilePath(Application.ExeName)+'C:\delphi\dados\VENDAS.GDB';
sCaminho := 'localhost';
iniConf := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Config.ini');
try
if iniConf.ValueExists('database','caminho') then
sIPServidor := iniConf.ReadString('database','caminho', sIPServidor)
else
iniConf.WriteString('database','caminho', sIPServidor);

if iniConf.ValueExists('database','Caminho') then
sCaminho := iniConf.ReadString('database','Caminho', sCaminho)
else
iniConf.WriteString('database','Caminho', sCaminho);
finally
iniConf.Free;

dm.dbvendas.Params.Values['DataBase'] := sCaminho;
//dm.dbvendas.Params.Values['DataBase'] := 'C:\delphi\dados2\VENDAS.GDB';
dm.dbvendas.Connected := true;
dm.simpledatasetfornecedores.Active:= true;

Ghost_Rider · Enviada: Qui Out 13, 2011 8:25 am Assunto:

Que erro ta dando na sua rotina ???
Outra coisa, vc disse que "caso o usuario queria mudar o banco", com essa sua frase entendi que ja existe o caminho do banco no INI, logo, vc não precisa da rotina de verificação do campo no INI, to certo ???

flaviodiniz · Enviada: Qui Out 13, 2011 8:55 am Assunto:

Ghost_Rider · Enviada: Qui Out 13, 2011 8:57 am Assunto:

Mas vc esta usando o WriteString já, "teoricamente" seu código da certo...

flaviodiniz · Enviada: Qui Out 13, 2011 9:15 am Assunto:

Ghost_Rider · Enviada: Qui Out 13, 2011 9:25 am Assunto:

scaminho := edit.text, é isso que falta ???

flaviodiniz · Enviada: Qui Out 13, 2011 2:30 pm Assunto: