Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
24. Jul 2022
Du hast seinen Wunsch einer "leeren" Datei vergessen glaube ich. Also eine existierende Datei "leeren".
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
23. Jul 2022
function MakeFile(const AFilename: string; const AOverwrite: Boolean = False; const AShowError: Boolean = False): Boolean;
const
INVALID_HANDLE_VALUE = THandle(-1);
var
h: THandle;
begin
Result := False;
if (AFilename = '') then
Exit;
if (AOverwrite and FileExists(AFilename)) then