Dúvida simples de como manipular Arquivos...
05/12/2003
0
Oi Pessoal,
Estou precisando criar um arquivo em disco..
rodo o programa tranquilo mais ele não cria o arquivo, não sei pq...
unit ufrmTeste;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ActnList;
const Arq = ´c:\Programa01\log.txt´;
type
TfrmTeste = class(TForm)
procedure FormCreate(Sender: TObject);
public
{ Public declarations }
end;
var
frmTeste: TfrmTeste;
implementation
procedure TfrmTeste.FormCreate(Sender: TObject);
begin
if not FileExists(Arq) then
FileCreate(Arq);
end;
end.
seu eu Colocar esse código..
if not FileExists(Arq) then
if FileCreate(Arq) = - 1 then
ShowMessage(´teste´);
Ele executa o ShowMessage, alguem saberia qual é o problema??
Qualquer ajuda é bem vinda...
Lucas!
Estou precisando criar um arquivo em disco..
rodo o programa tranquilo mais ele não cria o arquivo, não sei pq...
unit ufrmTeste;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ActnList;
const Arq = ´c:\Programa01\log.txt´;
type
TfrmTeste = class(TForm)
procedure FormCreate(Sender: TObject);
public
{ Public declarations }
end;
var
frmTeste: TfrmTeste;
implementation
procedure TfrmTeste.FormCreate(Sender: TObject);
begin
if not FileExists(Arq) then
FileCreate(Arq);
end;
end.
seu eu Colocar esse código..
if not FileExists(Arq) then
if FileCreate(Arq) = - 1 then
ShowMessage(´teste´);
Ele executa o ShowMessage, alguem saberia qual é o problema??
Qualquer ajuda é bem vinda...
Lucas!
Lucas Silva
Curtir tópico
+ 0
Responder
Posts
05/12/2003
Motta
var
F1, F2: TextFile;
Ch: Char;
begin
if OpenDialog1.Execute then begin
AssignFile(F1, OpenDialog1.Filename);
Reset(F1);
if SaveDialog1.Execute then begin
AssignFile(F2, SaveDialog1.Filename);
Rewrite(F2);
while not Eof(F1) do
begin
Read(F1, Ch);
Write(F2, Ch);
end;
CloseFile(F2);
end;
CloseFile(F1);
end;
end;
F1, F2: TextFile;
Ch: Char;
begin
if OpenDialog1.Execute then begin
AssignFile(F1, OpenDialog1.Filename);
Reset(F1);
if SaveDialog1.Execute then begin
AssignFile(F2, SaveDialog1.Filename);
Rewrite(F2);
while not Eof(F1) do
begin
Read(F1, Ch);
Write(F2, Ch);
end;
CloseFile(F2);
end;
CloseFile(F1);
end;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)