Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.475 Beiträge
Delphi 12 Athens
|
Re: variabler Datentyp
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
|
|
Zitat
|