Funktion aufrufen

[Tommy1988]

Kurz und Schmerzlos:

Wie kann ich eine Funktion die die Kopfzeile

Delphi-Quellcode:

function NamederFunktion(const Var: String): String;
begin
// ...

hat aufrufen?

[mkinzler]

Was meinst du mit Abfragen?

Delphi-Quellcode:

a := Name(s);

[Tommy1988]

Mhh.. s ist dann aber leer die komplette funktion ist diese:

Delphi-Quellcode:

function getAppPath(const App: String): String;
var
  reg: Tregistry;
  path: String;
begin
  reg := Tregistry.Create;
  try
    with reg do
    begin
      RootKey := HKEY_LOCAL_MACHINE;
     if openkey('DerKeyHalt' +
App, true) then
      begin
        path := ReadString('Path');
        CloseKey;
        result := path;
      end else
        result := '';
    end;
  finally
    FreeAndNil(reg);
  end;
end;

[mkinzler]

Es ist auch Parameter, den du der Funktion übergeben musst.

[Matze]

Schau dir mal die Tutorials auf dsdt.info an, wie dir schon des öfteren empfohlen wurde. Mach's bitte mal (richtig durcharbeiten), dann tust du dich wirklich leichter!

Delphi-Quellcode:

function FunktionsName(Parameter1, Parameter2: string): String;
function <Funktionsname>(<Parameter>): <Rückgabewert>;

Beispiel:

Delphi-Quellcode:

function Addiere(Zahl1, Zahl2: Integer): Integer;
begin
  result := Zahl1 + Zahl2;
end;

Aufruf:

Delphi-Quellcode:

Ergebnis := Addiere(12, 4);  // zugewiesener Wert: 16

[dominikkv]

die Funktion erwartet einen String zum aufruf und gibt einen String zurück.

Delphi-Quellcode:

showmessage(getAppPath('Notepad'));

[Tommy1988]

das habe ich ja schon verstanden, aber mit zahlen ist es was anderes.

ich kann ja schlecht

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
s: String;
begin
Label1.Caption := getAppPath('SOFTWARE\Classes\TypeLib\' +
'{01E5A986-0F28-432B-8956-B38BFEDF99FF}\1.0\HELPDIR');
end;

machen.

[inherited]

Wieso nicht? Wo liegt dein Problem? :gruebel:

[mkinzler]

Das ist doch auch ein String?

[DeddyH]

Wozu die Variable s, wenn Du das Funktionsergebnis direkt ins Label schreibst? :gruebel: