Gem fil

Så længe det bare er strings du gemmer kan du gemme dem i en textfile (frem for bare file (data-fil)). Koden til at åbne, skrive og lukke en fil kan se sådan ud:

var
  f: textfile;
begin
  AssignFile(f, [sti]);
  Rewrite(f);
  Writeln(f, [string]);
  CloseFile(f);
end;

Hvis du ønsker at tilføje til en allerede eksisterende fil bruger du append istedet for rewrite. Således:

var
  f: textfile;
begin
  AssignFile(f, [sti]);
  Append(f);
  Writeln(f, [string]);
  CloseFile(f);
end;

Du kan selvfølgelig også "automatisere" det lidt:

if fileexists(opendialog1.filename) then
  append(f)
else
  rewrite(f);

"opendialog1.filename" svarer til [sti] (fik ikke rettet det).

tak :)

Jeg synes det var nemmere ar stoppe det i en TStringList, og så bruge LoadFromFile og SaveToFile

Jens B

Du har sikkert ret, men det er jo altid nemmere hvis man ved hvad det skal bruges til. F.eks. kan jeg se at cautoo's næsten spørgsmål omhandler filoverførsel, og hvis det skal bruges dertil er TFileStream måske bedre end min løsning.

Både og TStringList kan også SaveToStream ...

Nå men min pointe er at AssignFile var noget man brugte i TP 7

Har ikke lige så megen erfaring med TP, men det skal nok passe.

Never mind man bruger ikke AssignFile længere ... Man bruger Streams !

Jens B

hmm... oki borrisholt, kunne du så ikk tilfældigvis hjælpe med mit Filoverførselsproblem?

http://www.eksperten.dk/spm/359444