Forum: Object-Pascal / Delphi-Language
Delphi
by Neutral General,
18. Feb 2010
Geht beides auch mit
procedure AppendData(Data: Pointer; Size: Cardinal);
nicht.
Forum: Object-Pascal / Delphi-Language
Delphi
by Neutral General,
18. Feb 2010
Dann am besten (weil bequemsten) als var-Parameter:
procedure AppendData(var Data; Size: Cardinal);
Also quasi sowas wie Stream.Write.
Forum: Object-Pascal / Delphi-Language
Delphi
by Neutral General,
18. Feb 2010
Hatte gerade an etwas wie generische Prozeduren gedacht, aber scheinbar gibt es soetwas nicht:
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);