variabler Datentyp

[Uwe Raabe]

Es geht schon, nur etwas anders:

Delphi-Quellcode:

type
  TFile<T> = class
  public
    class procedure Append(zahl: T; const path: string; const Dateiname: string);
  end;

class procedure TFile<T>.Append(zahl: T; const path: string; const Dateiname: string);
var
  datei: file;
  fullName: string;
begin
  fullName := path+'\'+Dateiname+'.dat';
  AssignFile(datei, fullName);
  if FileExists(fullName) then begin
    Reset(datei, Sizeof(T));
    Seek(datei, FileSize(datei));
  end
  else begin
    Rewrite(datei, Sizeof(T));
  end;

  BlockWrite(datei, zahl, 1);
  CloseFile(datei);
end;

TFile<Integer>.Append(5, 'C:\temp', 'integer');
TFile<Extended>.Append(0.5, 'C:\temp', 'extended');