XOR Verknüpfung, wie?

[Klaus01]

Delphi-Quellcode:

function TForm1.GetString():String; 
var 
  F1: TextFile; 
  Text: String; 
begin 
  AssignFile(F1, sText1); 
  {$I-}
    Reset(F1); 
  {$I+}
  if IOResult = 0 then
    begin
      while not Eof(F1) do 
        begin 
          Read(F1, Text); 
        end; 
      CloseFile(F1); 
      result := Text; 
    end
  else
     begin
       // IORsult abfragen, welcher Fehler
       // Datei kopieren, auslesen
    end;
end;