Thema: Delphi variabler Datentyp

Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.475 Beiträge
 
Delphi 12 Athens
 
#5

Re: variabler Datentyp

  Alt 18. Feb 2010, 13:40
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');
Uwe Raabe
  Mit Zitat antworten Zitat