append;

Ja flg. fra Delphi\'s egen hjælp:

<SNIP>
var
  f: TextFile;
begin
  if OpenDialog1.Execute then
  begin                    { open a text file }
    AssignFile(f, OpenDialog1.FileName);
    Append(f);
    Writeln(f, \'I am appending some stuff to the end of the file.\');
    { insert code here that would require a Flush before closing the file }
    Flush(f);  { ensures that the text was actually written to file }
    CloseFile(f);
  end;
end;
</SNIP>

\"Jeg har min (kæp)hest jeg har min laso\". Jeg sadler sin (kæp)hest og rider ind på scenen!

pellelil>> Hvad er hurtigs i/o eller memory access ?

Memmory access selvfølgelig ! Fordi der skal du ikke vent på først at en eller anden tilfældig I/O kanal har tid og der efter på en sløv (sammenlignet med RAM) harddisk !

Der for burdu ikke bruge disse gamle komandoer til at tilgå en text fil med.

Jeg vil i stedet anbefale Jens at bruge en TStringList i stedet. Den er beregnet til at håndtere tekst med.

Altså

procedure TForm1.Button4Click(Sender: TObject);
begin
if not OpenDialog1.Execute then
  exit;

with TStringList.Create do
try
  LoadFromFile(OpenDialog1.FileName);
  Add(\'Kæp hest\');
  SaveToFile(OpenDialog1.FileName);
finally
  free;
end;
end;


ooh ja resultatet er det samme men skal der arbejdes bare lidt med den fil, synes jeg at en TStringList er perfekt til formålet ....


jens B

Borrisholt> Hvad nu hvis at din fil er MEGET STOR vil du så ikke bruge unødig laaaang tid på først at læse hele filen for at skrive hele filen endnu engang ??

Oooh jo .. Det vil du men skal der laves nogle operationer på filen vil en TStringList stadig være at foretrække. I modsætning til de gamle komandoer så er en TStringList Stream baseret ....

jens B

Jeg gider ikke \"det der nymodens pjat\", så som automobiler og central varme, nej må jeg bede om min gode game (Commodore ) VIC-20 med 3.5 KB ram til basic program og variabler, 22x23 tegns display i 8 farver - Det var sgu\' tider  ;-)

Nostalgy is not what it used to be...

Men ellers har du fuldstændig ret. En anden mulighed er streams men \"sjov nok\" så performer disse ringere end de gode gamle BlockRead/BlockWrite.

Hmmn.. det viste jeg ikke det har jeg alrdig tested ....

Jens b