So sieht die Lösung unter Turbo-Pascal 7.0 aus (denke, dass dies bei Object Pascal auch noch ein wenig funzen sollte (zumind. bis Delphi 7)
):
Delphi-Quellcode:
Procedure Datensatz_Spiel_77_loeschen;
begin
Anz := Filesize(f_2)-1;
If Anz > 0 then begin
For i2 := i0 to Anz - 1 do begin
Seek(f_2, i2+1); Read(f_2, Spiel_77);
Seek(f_2, i2); Write(f_2, Spiel_77);
end;
i2 := Anz;
Seek(f_2, i2);
Truncate(f_2);
Anz := Filesize(f_2)-1;
If i0 > Anz then i0 := i2 - 1;
Seek(f_2, i0);
Read(f_2, Spiel_77);
Daten_Spiel_77_sichten;
GotoXY(22,23);
Write('Selektierter Datensatz wurde gel”scht ! ');
GotoXY(22,23);
end;
end;
Gruss, Tool-Box
