Undefinierter Bezeichner 'Result'

[MrMyagi]

Moin, ich bins mal wieder.
Ich möchte mit diese Quelltext einen Ordner samt Inhalt löschen,
leider aber zeigt er mir den Fehler "siehe Überschrift" an.

Delphi-Quellcode:

procedure TForm1.ButtonUnitLoeschenClick(Sender: TObject);
var
  fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom  := PChar('.\Vokabeln\Units\'+EditUnitLoeschen.Text + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;

mfG, Nico

[Luckie]

Eine Prozedur hat keinen Rückgabewert, deswegen ist auch die interne Variable Result unbekannt. Wenn du aus einer Routine etwas zurückgeben willst, dann nutze eine Funktion.

[MrMyagi]

Vielen Dank,
funktioniert jett einwandfrei :thumb:


mfG, Nico