Hatte gerade an etwas wie generische Prozeduren gedacht, aber scheinbar gibt es soetwas nicht:
Delphi-Quellcode:
procedure AppendTo<T>(ADatei: String; AValue: <T>);
var datei: file of <T>;
begin
AssignFile(datei, ADatei);
if FileExists(ADatei) then ReSet(datei)
else ReWrite(datei);
Seek(datei, FileSize(datei));
write(datei, zahl);
CloseFile(datei);
end;
// Aufruf
AppendTo<Integer>('Test.txt',10);
AppendTo<String>('Test.txt','Hallo Welt!');
Warum eigentlich nicht? Wäre doch ganz praktisch in manchen Fällen..
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."