Dúvida simples de como manipular Arquivos...

05/12/2003

1

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!


Responder

Posts

05/12/2003

Beppe

A pasta existe? Se não, você precisa criá-la.


Responder

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;


Responder