Re: [delphi-br] Gravar .Ini com ExtractFileDir(SaveDialog.FileName)
A inclusao do ponto foi justamente para nao criar no diretorio Windows, e sim
no diretorio corrente (onde estara o programa). O estranho desta rotina eh que
funciona na primeira vez: cria o Teste.Ini com os dados indicados. Porem, se eu
executar novamente e indicar um outro diretorio, o Teste.ini naum eh alterado.
No mesmo exemplo, se eu digitar o conteudo do Edit1, a rotina funciona todas as
vezes que eh executada.
Ou seja (no exemplo criado) se eu digito o conteudo do Edit1, funciona sempre;
Porem se eu atribuo o resultado do SaveDialog.FileName para o Edit1, o
WriteString nao funciona na segunda vez e nao da erro (ja tentei gravar direto
mas deu o mesmo problema (WriteString(ExtractFileDir(SaveDialog1.FileName)))...
Alguma luz ???
Abracos
Leandro Ferreira <[EMAIL PROTECTED]> wrote:
Outra coisa é q se vc não colocar o endereço do arquivo ele procurará o
arquivo no diretório c:\windows\.
Leandro Ferreira
Desenvolvedor - Tecnologia
Tel/Fax: +55 48 2106-5698
ICQ# 147470848
http://www.nexxera.com
NEXXERA Tecnologia e Serviços S.A.
"Seu Ambiente Eletrônico de Negócios"
Emerson Moreno escreveu:
>A única coisa que vi de errado ai é o ponto que tem onde está salvando
>o arquivo;
>
>inTeste := TIniFile.Create('.\Teste.Ini'); //errado
>inTeste := TIniFile.Create('C:\Teste.Ini'); //certo
>
>talvez seja isso.
>
>
>On Thu, 27 Jan 2005 13:19:47 -0300 (ART), Milton Matsunaga
><[EMAIL PROTECTED]> wrote:
>
>
>>Colegas,
>>
>>Estou tentanto gravar um ini com o diretorio de um SaveDialog. Na primeira
>>vez funciona, mas na segunda vez nao (nem do D5 nem do D7). Estou fazendo
>>algo errado?
>>Rotina usada:
>>
>>procedure TForm1.Button2Click(Sender: TObject);
>>var
>> InTeste: TIniFile;
>>begin
>> if SaveDialog1.Execute then
>> begin
>>Edit1.Text := ExtractFileDir(SaveDialog1.FileName);
>> end;
>> inTeste := TIniFile.Create('.\Teste.Ini');
>> inTeste.WriteString('TSection','Valor',Edit1.Text);
>> inTeste.Free;
>>end;
>>
>>Abracos
>>
>>
>>-
>>Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do
>>Yahoo! agora.
>>
>>[As partes desta mensagem que não continham texto foram removidas]
>>
>>
>>
>>--
>>< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>>
>>Para ver as mensagens antigas, acesse:
>>http://br.groups.yahoo.com/group/delphi-br/messages
>>
>>Para falar com o moderador, envie um e-mail para:
>>[EMAIL PROTECTED] ou [EMAIL PROTECTED]
>>
>>
>>
>>Yahoo! Grupos, um serviço oferecido por:
>>PUBLICIDADE
>>
>>
>>Links do Yahoo! Grupos
>>Para visitar o site do seu grupo na web, acesse:
>>http://br.groups.yahoo.com/group/delphi-br/
>>
>>Para sair deste grupo, envie um e-mail para:
>>[EMAIL PROTECTED]
>>
>>O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
>>Yahoo!.
>>
>>
>
>
>
>
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
function SearchComboBox() { if
(document.form_combo.keyword.value.length==0){ alert("Por favor, digite
algo."); return false; }else { document.form_combo.action
="http://br.rd.yahoo.com/SIG=12ap5smb2/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1106933086/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11";;
} return true;} [input] [input] [input]
-
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo!
agora.
[As partes desta mensagem que não continham texto foram removidas]
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Gravar .Ini com ExtractFileDir(SaveDialog.FileName)
Outra coisa é q se vc não colocar o endereço do arquivo ele procurará o
arquivo no diretório c:\windows\.
Leandro Ferreira
Desenvolvedor - Tecnologia
Tel/Fax: +55 48 2106-5698
ICQ# 147470848
http://www.nexxera.com
NEXXERA Tecnologia e Serviços S.A.
"Seu Ambiente Eletrônico de Negócios"
Emerson Moreno escreveu:
>A única coisa que vi de errado ai é o ponto que tem onde está salvando
>o arquivo;
>
>inTeste := TIniFile.Create('.\Teste.Ini'); //errado
>inTeste := TIniFile.Create('C:\Teste.Ini'); //certo
>
>talvez seja isso.
>
>
>On Thu, 27 Jan 2005 13:19:47 -0300 (ART), Milton Matsunaga
><[EMAIL PROTECTED]> wrote:
>
>
>>Colegas,
>>
>>Estou tentanto gravar um ini com o diretorio de um SaveDialog. Na primeira
>>vez funciona, mas na segunda vez nao (nem do D5 nem do D7). Estou fazendo
>>algo errado?
>>Rotina usada:
>>
>>procedure TForm1.Button2Click(Sender: TObject);
>>var
>> InTeste: TIniFile;
>>begin
>> if SaveDialog1.Execute then
>> begin
>>Edit1.Text := ExtractFileDir(SaveDialog1.FileName);
>> end;
>> inTeste := TIniFile.Create('.\Teste.Ini');
>> inTeste.WriteString('TSection','Valor',Edit1.Text);
>> inTeste.Free;
>>end;
>>
>>Abracos
>>
>>
>>-
>>Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do
>>Yahoo! agora.
>>
>>[As partes desta mensagem que não continham texto foram removidas]
>>
>>
>>
>>--
>>< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>>
>>Para ver as mensagens antigas, acesse:
>>http://br.groups.yahoo.com/group/delphi-br/messages
>>
>>Para falar com o moderador, envie um e-mail para:
>>[EMAIL PROTECTED] ou [EMAIL PROTECTED]
>>
>>
>>
>>Yahoo! Grupos, um serviço oferecido por:
>>PUBLICIDADE
>>
>>
>>Links do Yahoo! Grupos
>>Para visitar o site do seu grupo na web, acesse:
>>http://br.groups.yahoo.com/group/delphi-br/
>>
>>Para sair deste grupo, envie um e-mail para:
>>[EMAIL PROTECTED]
>>
>>O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
>>Yahoo!.
>>
>>
>
>
>
>
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Gravar .Ini com ExtractFileDir(SaveDialog.FileName)
A única coisa que vi de errado ai é o ponto que tem onde está salvando
o arquivo;
inTeste := TIniFile.Create('.\Teste.Ini'); //errado
inTeste := TIniFile.Create('C:\Teste.Ini'); //certo
talvez seja isso.
On Thu, 27 Jan 2005 13:19:47 -0300 (ART), Milton Matsunaga
<[EMAIL PROTECTED]> wrote:
> Colegas,
>
> Estou tentanto gravar um ini com o diretorio de um SaveDialog. Na primeira
> vez funciona, mas na segunda vez nao (nem do D5 nem do D7). Estou fazendo
> algo errado?
> Rotina usada:
>
> procedure TForm1.Button2Click(Sender: TObject);
> var
> InTeste: TIniFile;
> begin
> if SaveDialog1.Execute then
> begin
> Edit1.Text := ExtractFileDir(SaveDialog1.FileName);
> end;
> inTeste := TIniFile.Create('.\Teste.Ini');
> inTeste.WriteString('TSection','Valor',Edit1.Text);
> inTeste.Free;
> end;
>
> Abracos
>
>
> -
> Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do
> Yahoo! agora.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
> PUBLICIDADE
>
>
> Links do Yahoo! Grupos
> Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
> Yahoo!.
--
[]'s
Emerson Moreno
Mascate Automação
Desenvolvedor
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Gravar .Ini com ExtractFileDir(SaveDialog.FileName)
Colegas,
Estou tentanto gravar um ini com o diretorio de um SaveDialog. Na primeira vez
funciona, mas na segunda vez nao (nem do D5 nem do D7). Estou fazendo algo
errado?
Rotina usada:
procedure TForm1.Button2Click(Sender: TObject);
var
InTeste: TIniFile;
begin
if SaveDialog1.Execute then
begin
Edit1.Text := ExtractFileDir(SaveDialog1.FileName);
end;
inTeste := TIniFile.Create('.\Teste.Ini');
inTeste.WriteString('TSection','Valor',Edit1.Text);
inTeste.Free;
end;
Abracos
-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo!
agora.
[As partes desta mensagem que não continham texto foram removidas]
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
