????????????

Ikke forstået ?
Vil du oprette en .txt fil i OnForCreate Event'en ?

Ja nemlig, og det kan ikke gøres ved en SaveToFile, da den bare skal oprette et tomt dokument!

Godt man ikke kan give negative point

var
  fil : File of SaveRec;

begin
  AssignFile(Fil, ExeStartUpPath + 'Heste.txt');
  Rewrite(Fil);
  Write(Fil,'Hesten er grøn');
  CloseFile(Fil);
end;

var
  fil : File of text;

Den virker jo ikke!

FileCreate(FileName)

Ovenstående var ikke et svar pga. mangel

morten_s>>

Er det ikke kun Borrisholt der må bruge "hest".

Jeg ville mene det burde koste 5-10 Ave Maria'er

:-)

Stoney

Prøv vedlagte

procedure TForm1.Button1Click(Sender: TObject);
var
  fil : File;
  ExeStartUpPath : String;

begin
  ExeStartUpPath := ExtractFilePath(Application.ExeName);
  AssignFile(Fil, ExeStartUpPath + 'Hunde.txt');
  Rewrite(Fil);
  CloseFile(Fil);
end;

det skulle gerne give en ton fil i det projekt som du starter i ved navn hunde

vil det ikke være en ide at den tjekkede, om filen existerede før den blev oprettet.

hvorfor ikke bare følgende...

procedure TForm1.FormCreate(Sender: TObject);
var
  t : tstringlist;
begin
  t := tstringlist.create;
  t.SaveToFile('c:\hej.txt');
end;

ZeroHero

stone> til 4 point kan der ikke checkes for om filen eksistere det koster ekstra *GGG*

ok ....*gg*

morten_s> jeg kan da godt lægge flere points ud, men da jeg syntes det lød som et let svar, gad jeg ikke afsætte flere! :)

hmmm... hvad siger du til jeg opretter nyt spm. og så svarer du mig på hvordan den tjekker om den allerede eksisterer og det som stone sagde??

du skal få det gratis

procedure TForm1.Button1Click(Sender: TObject);
var
  fil : File;
  ExeStartUpPath : String;

begin
  ExeStartUpPath := ExtractFilePath(Application.ExeName);
  if not FileExists(ExeStartUpPath + 'Hunde.txt') then
  begin
    AssignFile(Fil, ExeStartUpPath + 'Hunde.txt');
    Rewrite(Fil);
    CloseFile(Fil);
  end;
end;

det er faktisk meningen, at ved formcreate så skal den loade en txt fil hvis den eksisterer, og hvis ikke den eksisterer så skal den oprettes!

procedure TForm1.FormCreate(Sender: TObject);
var
  t : tstringlist;
begin
  t := tstringlist.create;
  if not fileexists('c:\hej.txt') then
  t.savetofile('c:\hej.txt')
  else
    t.loadfromfile('c:\hej.txt');
end;

Så kan det vist heller ikke gøres mere enkelt ;)
husk at frigøre den et passende sted i dit kode med... t.free;

ZeroHero

zerohero >> HVAD MED AT FRIGIVE DIT OBJEKT ?

her kommer lige zerohero's forslag uden mem leak :

procedure TForm1.FormCreate(Sender: TObject);
var
  t : tstringlist;
begin
  t := tstringlist.create;
  if not fileexists('c:\hej.txt') then
    t.savetofile('c:\hej.txt')
  else
    t.loadfromfile('c:\hej.txt');
  FreeAndNil(t);
end;

og hvis du vil have gemt din txt fil i det bibliotek som exefilen er,
sletter du bare c:\.

Det ved jeg godt!

Hvad mener du med det, Borrisholt?

jeg mener hvis du har oprettet et objekt, i dette tilfælde en TStringList (aåtså t := TStringList.create) så skal du også selv frigive hukommelsen igen ....

Det gøres i Delphi 6ff med FreeAndNil(t) .. Og i tidligere versioner blot med
t.free;


Jens B

uses
  Windows;

procedure CreateNewFile(FileName: String);
begin
  CreateFile(PChar(FileName),0,0,nil, CREATE_NEW,0,0);
end;

Så får du bare en ny tom fil...

Borrisholt> Du glemte begin efter else...

Alligevel åbner den ikke den txt fil!

problemet er du ikke kan gemme en to TStringlist ..

Det her virker :
procedure TForm1.FormCreate(Sender: TObject);
var
  t : tstringlist;
begin
  t := tstringlist.create;
  t.Add('');
  if not fileexists('c:\hej.txt') then
    t.savetofile('c:\hej.txt')
  else
    t.loadfromfile('c:\hej.txt');
  t.free;
end;


Jens B

Hej Borrisholt - Jeg havde da også vist at t skulle frigøres via t.free :) ...

"Så kan det vist heller ikke gøres mere enkelt ;)
husk at frigøre den et passende sted i dit kode med... t.free;"

...

Noget helt andet er at jeg stadig har problemer med at hente mesh'en frem med 3DS Import Library. Jeg har brugt masser af tid på at gennem se alt kilde-kode for at finde det sted der skulle kunne gøre det! Så hvis du har tid, vil du så prøve at kigge på det?

(Du skal nok få en points for det)

med venlig hilsen

ZeroHero