Einzelnen Beitrag anzeigen

Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#14
  Alt 12. Nov 2002, 12:59
Mal ein kurzes Bsp.

Delphi-Quellcode:

// UNIT uHallo.pas
[color=#ff0022]unit uHallo;[/color]
interface

procedure ShowHallo(Message: AnsiString);

implementation

procedure ShowHallo(Message: AnsiString);
begin
  // message dlg
  ...
end;

end.

// ENDE uHallo.pas
....

....


// Dein Form

unit Form1;

interface

  type TForm1 = class(TForm)
    procedure Button1OnClick(Sender: TObject);
  private
    ...
  public
  end;

implementation
 
[color=#ff0019]uses
  uHallo;[/color]

procedure TForm1.Button1OnClick(Sender: TObject);
begin
  ShowHallo('Du hast Button1 gedrückt!');
end;

end.
Für weitere Fragen sind wir natürlich jederzeit da
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat