Fórum arquivos de pastas superiores ..\pasta\arquivo.xxx #155583
25/04/2003
0
..\pasta\arquivo.xxx
obrigado.
Joaomw
Curtir tópico
+ 0Posts
25/04/2003
Afb
- VOCE DESEJA GRAVAR NO DIRETORIO CORRENTE DO ARQUIVO?
O QUAL NAO E LOCALIZADO
CASO PUDER ME MANDE UM EXEMPLO DO CODIGO
Gostei + 0
25/04/2003
Joaomw
agradeço sua atenção.
Gostei + 0
25/04/2003
4_olho
procedure TForm1.FormCreate(Sender: TObject);
const
// you may need to change this path to suit your environment
Path = ´..\Demos\RichEdit\OverView.RTF´;
begin
RichEdit1.PlainText := True;
RichEdit1.Lines.LoadFromFile(Path);
RichEdit2.PlainText := False;
RichEdit2.Lines.LoadFromFile(Path);
end;
Então, deve funcionar como você deseja e imagina. Só tome cuidado com uma coisa. No exemplo que você deu, se seu executável está em Pasta, vai dar erro, pois ..\ significa a pasta corrente.
Gostei + 0
25/04/2003
Afb
que colocou como padrão
mais simples
[color=red:ff384685b2]ChDir:= ´C:\diretorio1\diretorio2´[/color:ff384685b2]
ou um procedimento mais complicado
[color=blue:ff384685b2]procedure ChDir(S: string);
Troca o diretório corrente para o diretório especificado em S.
begin
{$I-}
{ Change to directory specified in Edit1 }
ChDir(S);
if IOResult <> 0 then
MessageDlg(´Cannot find directory´, mtWarning, [mbOk], 0);
end;[/color:ff384685b2]
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)