Discussion :

[secretman]

J'ai une procedure qui appelle une fonction qui contient une boucle
for i := 0 to x mais cette boucle n'est pas parcourue un nombre i de fois mais seulement 1 fois et je n'arrive pas à faire "la moulinette" entre les 2 routines pour incrémenter cette boucle. Voici le code de principe qui décrit le fonctionnement :

Merci de votre aide :

[code]
function TForm1.search_key: string;

stringlist := TStringList.Create;

for i := 0 to (stringlist.Count - 1) do
begin

if nPos > 0 then
begin

end;

reg.CloseKey;
end;

Result := Adapter_Key;
end;



procedure TForm1.search_adapter;

begin
adapter := search_key; //call


if adapter <> '' then

try
Reg.ReadBinaryData('Address', buffer1, BufSize);
Reg.ReadBinaryData('Subnet', buffer2, BufSize);

finally


end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
search_adapter;
Memo1.Lines.Add(description);
Memo1.Lines.Add(buffer1);
Memo1.Lines.Add(buffer2);
Memo1.Lines.Add(buffer3);
[/code ]

Merci

Daniel

[Ludo_360]

Une petite modification du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if adapter <> ' 'then  // c'est une chaine alors chaine vide c'est espace entre guillemmet

ludo