so habs jetzt selber gelöst
und nach 2 stunden hirnzermatern hatt ichs, fals es nochjemand benötigt
hier der code
zur erklärung
z ist ein array des Datensatz Records
Label3 ist der gerade angezeigte datensatz 1,2 oder so
jo der rest ist klar
Delphi-Quellcode:
seek(f,0);
for i:=1 to filesize(f) do
begin
read(f,z[i]);
end;
delete := StrToInt(Label3.Caption);
seek(f,0);
e := 0;
for i := 1 to delete-1 do //vor löschen ds add
begin
Write(f,z[i]);
e := e+1;
end;
seek(f,e);
for i := delete+1 to filesize(f) do //nach löschen ds add
begin
Write(f,z[i]);
end;
seek(f,filesize(f)-1);
truncate(f); //dateiende abschnippeln
[edit=MrSpock]Center Tag durch Code Tags ersetzt.[/edit]