Hya,
hab zur zeit das prob das ich keinen bestimmten datensatz aus meiner Typisierten datei löschen kann.
Theoretisch müßte es so
Code:
i:=1;
while not eof(pf) do
begin
Read(pf, buffer[i]);
i := i+1;
end;
delete := StrToInt(Label9.Caption);
for i := delete-1 to filesize(pf) do begin
buffer[i] := buffer[i+1];
end;
truncate(pf);
gehn läuft aber net. da macht er garnix.
obwohl er was machn müßte dadurch das der zu löschenende DS vom i+1sten überschrieben wird und alles rückt nach und das ende wird abgeschnippelt.
Kann mir mal jemand helfen?
bei meinem
TP programm lief es so in etwa
[edit=MrSpock]Verschoben[/edit]