Dateien mit Pascal erzeugen

[alcaeus]

Zitat:

Zitat von Matrix Scripter

Hat geklappt, aber wie siehts aus wenn ich keine Textdatei erzeugen will?
Da gabs doch was wie

Delphi-Quellcode:

var
  F: File;

Aber da kommt bei mir ne mehr oder weniger verständliche Meldung ^^
Muss ich wenn ich das mit "File" mach noch irgendwas beachten?

Jup. Es gibt auch typed files:

Delphi-Quellcode:

type
  TFoo = record
    fInt: Integer;
  end;
  TFooFile = file of TFoo;

var
  F: TFooFile;

Dort liest dann

Delphi-Quellcode:

var
  F: TFooFile;
  Foo: TFoo;
begin
  //...
  Read(F, Foo);
  //...
end;

einen Datensatz vom Typ TFoo aus. Mit Seek() kannst du auf einen beliebigen Datensatz in der Datei springen, wobei die Zaehlung bei 0 beginnt und bis FileSize(F)-1 geht.

Zitat:

Zitat von Matrix Scripter

Und für was steht:

Zitat:

{I-}

und

Zitat:

IOResult = 0

{I-} und {I+} steuern die Fehlermeldungen. Mit {I-} schalte ich mal aus, dass er bei einem Fehler bei Dateioperationen abbricht. Dies kann z.B. passieren wenn du eine nicht-existierende Datei oeffnen willst, oder wenn du in eine Datei schreiben willst, aber keine Schreibrechte hast.
IOResult gibt dir schliesslich den Fehlercode der letzten IO-Operation an, 0 bedeutet in diesem Fall "kein Fehler". Deshalb schalte ich die Meldungen aus, Resettiere den Dateizeiger, schalte sie wieder ein und frage dann ab, ob alles glatt gegangen ist.

Greetz
alcaeus

[luwo]

Zitat:

Zitat von mael

Weil fast total Delphi-kompatibel, mehr Sprachfeatures, Klassenbibliothek (in der z.B. TFileStream zu finden ist), eine Dokumentation dabei ist (z.B. zu TFileStream ;-), ...

und auch für richtig viele Plattformen verfügbar :-D

siehe http://www.freepascal.org/

[turboPASCAL]

www.lazarus.freepascal.org hier gibts auch 'n paar Screenshots...