keine FOR-Schleife...
Delphi-Quellcode:
smemo1.Lines.LoadFromFile(*pfad*); // laden
smemo1.Lines.Delete(strtoint(edit1.text)); // löschen
smemo1.lines.savetofile(*pfad*); // speichern
// Zum Löschen einer Datei benutze ich immer diese Funktion :
Zitat:
uses StdCtrls,ExtCtrls,ComCtrl ( bin mir nicht sicher welche, füge einfach alle ein )
function DeleteFile(const AFile: string): Boolean;
var
sh: SHFileOpStruct;
begin
ZeroMemory(@sh, sizeof(sh));
with sh do
begin
Wnd := Application.Handle;
wFunc := fo_Delete;
pFrom := PChar(AFile + #0);
fFlags := fof_Silent or fof_NoConfirmation;
end;
result := SHFileOperation(sh) = 0;
end;
procedure button.click();
begin
DeleteFile(*pfad*);
end;