Einzelnen Beitrag anzeigen

mindforce
(Gast)

n/a Beiträge
 
#18

Re: Eine Procedure erstellen Beispiel: procedure Removefile

  Alt 9. Aug 2005, 12:19
Vielen Dank. Dies ist mir wirklich gut erklärt worden:

Zitat:
Zitat von Nils_13:
hi,
Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
--> function RemoveFile(const Filename: String): DWORD; <--
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

--> function TForm1.RemoveFile(const Filename: String): DWORD;
begin
  result := Windows.DeleteFile(PChar(Filename));
end; <--

end.
Der Code läfut zwar nicht, es soll dir ja auch nur erklären, wie es läuft.

und


Zitat:
Meist reicht jedoch prozeduale Programmierung, besonders für den Einstieg.

Ich würde mal sagen, eine Methode ist hier völlig unpassend . Jedenfalls bei der Form-Klasse.

@mindforce:
Der Code der Funktion steht im implementation-Teil deiner Unit, das ist die Implementation der Funktion. Du kannst den Funktionskopf in den interface-Abschnitt kopieren, dann hast du eine global deklarierte Funktion. Nicht-globale Funktionen kannst du nur in der gleichen Unit und nur in Code unter der Implementation aufrufen. Globale Funktionen kannst du in der gesamten Unit und in Units, in deren uses-Liste deine Unit steht, aufrufen.

.
  Mit Zitat antworten Zitat