Bonjour,

j'aimerais integrer une fonction dans une dll pour être utilisé avec inno

dont voici le code. Laquelle de ces versions est la meilleure

V1.0
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
function IsChaineNombre(P: Pchar): Boolean; stdcall;
begin
  Result := False;
  while P^ <> #0 do
  begin
    if not (P^ in ['0'..'9']) then Exit;
    Inc(P);
  end;
  Result := True;
end;
V2.0
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function IsChaineNombre(const S: string): Boolean; stdcall;
var
  P: PChar;
begin
  P      := Pchar(S);
  Result := False;
  while P^ <> #0 do
  begin
    if not (P^ in ['0'..'9']) then Exit;
    Inc(P);
  end;
  Result := True;
end;

doit ton passer en paramètre un string ou un pchar dans une dll?

merci