Assign....

[Mathias]

Ich habe gerade folgendes probiert und funktioniert.

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  f: Text;
begin
  system.Assign(f, 'test.txt');
  Rewrite(f);
  WriteLn(f, 'Hello World');
  system.Close(f);
end;  

Was mir aber ein Rätsel ist, wieso muss ich "system" hinschreiben ?
Normalerweise kann doch FPC Funktionen überlagern.

[af0815]

Was mir aber ein Rätsel ist, wieso muss ich "system" hinschreiben ?
Normalerweise kann doch FPC Funktionen überlagern.

Ja, aber wenn es die selbe Funktion mit anderer Bedeutung in einer anderen Unit gibt, so muss man das sagen, sonst kommt es auch auf die Reihenfolge in der Uses an bzw. weis der Compiler nicht welche Funktion du wirklich willst.

Assign wird auch bei Objekten für die Zuweisung verwendet UND in der Dateiverwaltung (aus historisch Gründen) deswegen sollte man AssignFile verwenden. Das wurde für die Vermeidung von Doppeldeutigkeiten IMHO eingeführt. Mit System.Assign verweist du genauso auf das richtige Assign.

[theo]

Was mir aber ein Rätsel ist, wieso muss ich "system" hinschreiben ?
Normalerweise kann doch FPC Funktionen überlagern.

Die kommen halt aus ganz verschiedenen "Welten"
Assign und Close sind einerseits normale Prozeduren in "System" und andererseits Methoden von TForm (TPersistent, TCustomForm in den Units Classes, Forms).
Das Problem besteht ja nur innerhalb einer Klassenmethode.
Eigentlich hätte man das bei TPersistent anders benennen sollen imo, denn das File Zeug dürfte älter sein.
Aber gut, wer benutzt schon noch das alte Pascal File-Handling?

[Winni]

Hi!

Hier hast Du mal eine Mini-Unit, die zeigt, wie es geht:

Code: Alles auswählen

unit Fsize1;
{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, fileUtil;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation
{$R *.lfm}

const fname = './FSomething';

TYPE
TSomething = record
               Erna: LongInt;
               Karl: DWord;
             end;

var FsomeThing : File of TSomething;
    Some : TSomething;

procedure TForm1.Button1Click(Sender: TObject);
var  len: int64;
begin
if FileExists (fname) then
    DeleteFile(fname);
assignFile (FsomeThing,fname);
rewrite (FsomeThing);
write (FsomeThing, some);
closefile (FsomeThing);
len := filesize (fname);
showMessage (InttoStr(len)+' bytes');
end;

end.

Winni

[PascalDragon]

Was mir aber ein Rätsel ist, wieso muss ich "system" hinschreiben ?
Normalerweise kann doch FPC Funktionen überlagern.

Die Elternklassen von TCustomForm stellen ebenfalls Assign und Close zur Verfügung. Wenn der Compiler eine Methode mit gleichen Namen, aber eventuell unpassender Signature findet, dann sucht er nicht noch in anderen Units nach normalen Funktionen oder Prozeduren weiter. Das ist so seit Klassen in Delphi 1 eingeführt wurden. Deswegen wurden auch die Aliase AssignFile und CloseFile eingeführt, um das zu umgehen.