Vergeleich TextFile (gelöst)

[jan_]

Hallo,

ich kann 2 Textfiles nicht miteinander vergleichen. (Direkt das Datei Handle, nicht den Inhalt) Den Dateinamen zu vergleichen geht leider nicht, da ich einen Haufen von 800 Projekten etwas umstellen will.

Es kommt immer der Fehler:

unit6.pas(27,6) Error: Incompatible types: got "Text" expected "Int64"

Beispiel:

Code: Alles auswählen

unit unit6;

{$mode objfpc}{$H+}
interface

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

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

var
  Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
  t1:textfile;
  t2:textfile;
begin
  t1 := t2;      
  if t1=t2 then
    showmessage('gleich');
end;

end.

[PascalDragon]

Du musst das TextFile in ein TextRec umwandeln, dann kannst du auf das Handle zugreifen.
Wobei du vielleicht auch noch vergleichen solltest, ob openfunc, inoutfunc, flushfunc und closefunc gleich sind, da rein theoretisch ein komplett unterschiedliches I/O System gleiche Handles haben könnte (zum Beispiel sind die File Deskriptoren unter *nix normal recht klein vom numerischen Wert her, wenn du nun also andere I/O Funktionen hast, die kleine Werte als Handle nutzen, dann könntest du da Probleme bekommen).

Code: Alles auswählen

if TextRec(t1).Handle = TextRec(t2).Handle then
  Writeln('Foobar');

Anmerkung: für file [of TYPE] ist es analog FileRec.

[jan_]

Vielen Dank.