hallo leute,
ich habe wieder das gleiche Problem wie neulich, mit dem Unterschied, dass das nun wirklich lösbar sein muss. Ich hab hier eine Routine, die eine Integer Zahl an eine Datei ranhängt, und nun möchte ich das so umschreiben, dass ich das für einen beliebigen Typ nutzen kann! (also auch für extended o.ä.)
Delphi-Quellcode:
procedure appandinteger(zahl: integer; path: string; Dateiname: string);
var
datei: file of integer;
begin
AssignFile(datei, path+'\'+Dateiname+'.dat');
if FileExists(path+'\'+Dateiname+'.dat') then ReSet(datei)
else ReWrite(datei);
Seek(datei, FileSize(datei));
write(datei, zahl);
CloseFile(datei);
end;
so würde ich das jetzt für extended machen, aber da das bis auf den typ das gleiche ist, würde ich das gerne generalisieren:
Delphi-Quellcode:
procedure appandextended(zahl: extended; path: string; Dateiname: string);
var
datei: file of extended;
begin
AssignFile(datei, path+'\'+Dateiname+'.dat');
if FileExists(path+'\'+Dateiname+'.dat') then ReSet(datei)
else ReWrite(datei);
Seek(datei, FileSize(datei));
write(datei, zahl);
CloseFile(datei);
end;