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:

[Tommy1988]

Das Problem ist, dass Label 1, oder halt der String, immer leer ist. Obwohl der Schlü+ssel ja existiert.

[Matze]

Wie sieht denn diese Zeile wirklich bei dir aus?

Delphi-Quellcode:

if openkey('DerKeyHalt' + App, true) then

[inherited]

Wenn ich das richtig sehe sollst du nur denn Namen der Application übergeben, nicht den gesamten Pfad.

[Tommy1988]

ich hab den "fehler" gefunden.. ich habe KEINE ahnung warum!

bei openkey stand groß "SOFTWARE"
es musste aber kleingeschrieben sein.

[Rastaman]

Windows ist aber nicht case-sensitive, damit kann es doch eigentlich gar nix zu tun haben.

[Christian Seehase]

Moin Rastaman,

Zitat:

Zitat von Rastaman

Windows ist aber nicht case-sensitive, damit kann es doch eigentlich gar nix zu tun haben.

das stimmt so leider nicht ganz.
Es gibt den einen oder anderen Eintrag in der Registry, der bei falscher Schreibweise keine Wirkung zeigt, deshalb sollte man sich hier, sicherheitshalber, an die Schreibweise halten.
(mir fällt mein "Paradebeispiel" leider gerade nicht mehr ein, habe den Fall aber schon gehabt. :oops:)

Nicht zu vergessen:
Der Import von Funktionen aus DLLs.
Wenn man hier den Namen angibt muss die Schreibweise auf jeden Fall stimmen.

[Muetze1]

[offtopic]

Zitat:

Zitat von Christian Seehase

..., deshalb sollte man sich hier, sicherheitshalber, an die Schreiweise halten.

Das man Windows ab und zu mal anbrüllt auf Grund mancher Verhalten oder Fehlfunktionen hatte ich bisher immer als einen Mythos gehalten - aber das es dafür noch Regeln gibt, war mir neu... :lol: [/offtopic]

[Christian Seehase]

Moin Thomas,

Zitat:

Zitat von Muetze1

[offtopic]

Zitat:

Zitat von Christian Seehase

..., deshalb sollte man sich hier, sicherheitshalber, an die Schreiweise halten.

Das man Windows ab und zu mal anbrüllt auf Grund mancher Verhalten oder Fehlfunktionen hatte ich bisher immer als einen Mythos gehalten - aber das es dafür noch Regeln gibt, war mir neu... :lol: [/offtopic]

:wall:

Danke. Ist korrigiert.

BTW:
Es handelt sich hierbei nicht um Regeln, eher Richtlinien... ;-)