bah en fait .. le code j en ai pas trop =)
procedure TMain.Button4Click(Sender: TObject);
var
i: Integer;
begin
i:=0;
while (i<14) do
begin
IF checkbox0.Checked:=true then
s := idhttp1.Get(Format('http://blabla.com/bla.php?%s&%d', [id, i])); // la 1ere variable est pas definie c est normal [:ddr555]
end;
IF checkbox1.Checked:=true then
begin
s := idhttp1.Get(Format('http://blabla.com/bla.php?%s&%d', [id, i])); // la 1ere variable est pas definie c est normal [:ddr555]
end;
end;
....
IF checkbox13.Checked:=true then
begin
s := idhttp1.Get(Format('http://blabla.com/bla.php?%s&%d', [id, i])); // (la 1ere variable est pas definie c est normal [:ddr555] il doit etre recuperer en fonction de I =) )
end;
end;
end.
|
voila a quoi ca devrais ressembler sans la boucle
et avec bah a part ce que j ai mis plus haut je sais po =)
antp a écrit :
Sinon tu mets le résultat de FindComponent dans une variable, ça te permet de faire plusieurs actions dessus et de tester si il l'a bien trouvé.
lecompo := FindComponent (Format('checkbox%d', [i]));
if [g]lecompo.checked:=true[/g] then
begin
// le lien
end;
qq chose comme cha? mais ce qui a en gras je sais pas quoi mettre et comme c est ecrit ca marche pas :'(
|
PS: FindComponent, dans la majorité des cas, c'est un peu crado hein T'as plutôt intérêt à faire un tableau de TCheckbox (rempli dans le OnCreate par exemple), ça évite de devoir se baser sur les noms et de devoir faire des recherches inutiles à chaque accès.
|
pour ce que tu dis en second je sais pas si ce sera possible,
en gros (ce que je comprend ) c est creer une liste de tcheckbox dans la boucle et de lui donner ces caracteristiques apres? (comme l exemple qu il y a dans delphi ?
celui ci
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
const
NamePrefix = 'MyEdit';
begin
for i := 1 to 20 do begin
TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
begin
Left := 10;
Top := i * 20;
Parent := self;
end;
end;
end;
|
mon probleme c est que ce que je fait la c est plutot une autre etape de mon logiciel.
la 1ere est de ce connecter a un site de recuperer des données et de les dispacher dans mes ptit Tedit & Tcheckbox .. =)
donc en fait mes Tcheckbox ont deja des noms donc si je fait comme cha ca va m en remettre par dessus , nan?
---------------
Feedback D.o.H - Seine Saint Denis - 93