Zitat von
Cr3at0r:
und wie bau ich eine function ein? wie eine prozedure?
Im Prinzip ja, aber Du willst ja auch was mit dem Ergebnis der Funktion was anfangen. Also z.B.:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := SecToStr(25000);
end;
Damit die Funktion "gesehen" wird, muss Sie vor dem Aufruf im Button1Click in die
Unit eingefügt werden:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function SecToStr (t: Int64):
string;
var
DT : TDateTime;
begin
DT := t / (60 * 60 * 24);
Result := Format('
%d Tag(e), %s', [Trunc(DT), FormatDateTime('
h "Stunden", n "Minuten und" s "Sekunden"', DT)]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := SecToStr(25000);
end;
end.