Problem mit EOF/Read/Write

[fwsp]

Hallo,

ich hab hier ein kleines programm, das aus einer datei werte auslesen soll und die daraus berechneten werte in eine andere datei schreiben. allerdings werden die ausgelesenen werte nicht in die 2.datei geschrieben...
kann mir jemand sagen, was ich falsch mache?

Werte.dat

Code:

1
2
3
4
5

Delphi-Quellcode:

program BerechnenFak;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TWerte = file of Integer;

function Fakultaet(N: Integer): Integer;
begin
  if (N > 0) then
    Result := N * Fakultaet(N - 1)
  else
    Result := 1;
end;

var
  Werte: TWerte;
  BWerte: TWerte;
  i: Integer;

begin
  AssignFile(Werte, 'Werte.dat');
  Reset(Werte);
  AssignFile(BWerte, 'Resultate.dat');
  Rewrite(BWerte);

  while not Eof(Werte) do
  begin
    Read(Werte, i);
    i := Fakultaet(i);
    Write(BWerte, i);
  end;

  CloseFile(Werte);
  CloseFile(BWerte);
end.

[Klaus01]

Hallo,

vielleicht hilft ja das folgende.

Delphi-Quellcode:

var 
  Werte: file of TWerte; 
  BWerte: file of TWerte; 
  i: Integer;

Und hier vielleicht noch Pfade hinzufügen.

Delphi-Quellcode:

begin 
  AssignFile(Werte, 'Werte.dat'); 
  Reset(Werte); 
  AssignFile(BWerte, 'Resultate.dat'); 
  Rewrite(BWerte);

Grüße
Klaus

[DelphiKlaus]

Hallo,

wenn Deine Datei eine ASCII-Datei ist, solltest Du sie als Textfile und nicht als File of Integer vereinbaren.


Klaus

[fwsp]

Zitat:

Zitat von Klaus01

Hallo,

vielleicht hilft ja das folgende.

Delphi-Quellcode:

var 
  Werte: file of TWerte; 
  BWerte: file of TWerte;

das lässt der compiler nicht zu:

Code:

[Fehler] BerechnenFak.dpr(20): Dateityp ist hier nicht zulässig

[fwsp]

Zitat:

Zitat von DelphiKlaus

Hallo,

wenn Deine Datei eine ASCII-Datei ist, solltest Du sie als Textfile und nicht als File of Integer vereinbaren.


Klaus

danke, jetzt klappt es.

[Neutral General]

Zitat:

Zitat von fwsp

Zitat:

Zitat von Klaus01

Hallo,

vielleicht hilft ja das folgende.

Delphi-Quellcode:

var 
  Werte: file of TWerte; 
  BWerte: file of TWerte;

das lässt der compiler nicht zu:

Code:

[Fehler] BerechnenFak.dpr(20): Dateityp ist hier nicht zulässig

Das wäre dann ja wenn mans ausrollt sowas wie

Delphi-Quellcode:

File of File of Integer

Das wird ja eh nix denk ich ma ;)

Gruß
Neutral General

[Klaus01]

Zitat:

Zitat von fwsp

Zitat:

Zitat von Klaus01

Hallo,

vielleicht hilft ja das folgende.

Delphi-Quellcode:

var 
  Werte: file of TWerte; 
  BWerte: file of TWerte;

das lässt der compiler nicht zu:

Code:

[Fehler] BerechnenFak.dpr(20): Dateityp ist hier nicht zulässig

Sorry, ich hatte übersehen, das TWert schon File of Integer ist.

Grüße
Klaus