Moin Hans-Peter,
und so sähe sakura's Beispiel unter Verwendung von TFileStream aus:
Delphi-Quellcode:
type
TMyRec = record
Wert1, Wert2: Byte;
Wert3: array[0..50] of Char;
end;
var
fsWork : TFileStream;
MyRec : TMyRec;
begin
fsWork := TFileStream.Create('C:\Temp\Datenschrott',fmOpenReadWrite);
try
fsWork.Seek(5*SizeOf(TMyRec),soFromBeginning);
fsWork.Read(MyRec,SizeOf(MyRec));
fsWork.Write(MyRec,SizeOf(MyRec));
finally
FreeAndNil(fsWork);
end;
end;
Prinzipieller Nachteil dieser Methode(n):
Es funktioniert nur bei gleicher Satzlänge, dass heisst, es könnte viel Platz verschenkt werden.