Was bedeutet dieses Function?

[PeterKiers]

Hallo,

Was bedeutet dieses Function?

Code:

function PRVGetChildHandle(H:HWND; L: Integer): LongBool; 
var p:pchar; 
I:integer; 
s:string; 
begin 
I:=length(ChildText)+2; 
GetMem(p,i+1); 
SendMessage(H,WM_GetText,i,integer(p)); 
s:=strpcopy(p,s); 
if pos(ChildText,s)<>0 then 
begin 
HTemp:=H; 
Result:=False 
end else 
Result:=True; 
FreeMem(p); 
end;

peter kiers
_________________

[tommie-lie]

Funktion in schön und kommentiert:

Delphi-Quellcode:

function PRVGetChildHandle(H:HWND; L: Integer): LongBool; // Handle und Integer rein
var
  p:pchar; 
  I:integer; 
  s:string; 
begin 
  I:=length(ChildText)+2; // Länge von ChildText (globale Variable/Konstante. Typ: String)
  GetMem(p,i+1);  // Speicher holen
  SendMessage(H,WM_GetText,i,integer(p)); // Text aus dem Fenster mit dem Handle holen, das wir gekriegt haben
  s:=strpcopy(p,s); // den Text in einen Pascal-String kopieren
  if pos(ChildText,s)<>0 then  // schauen, ob ChildText irgendwo in dem Text des Fensters vorkommt
  begin 
    HTemp:=H;      // wenn ja, globale Variable HTemp auf das gleiche Handle setzen
    Result:=False  // False zurückliefern
  end
  else 
    Result:=True;  // falls nö, True zurückliefern
  FreeMem(p); 
end;

Die Funktion vergleicht also den Text eines Fensters (z.B. die Caption eines Buttons) mit ChildText, und wenn der String enthalten ist, wird false zurückgeliefert und das Handle des Fensters in HTemp geschrieben.

[PeterKiers]

Danke.

P.