Repeat-Function problemRésolu

Question

Salut

je suis débutant en Delphi
je voudrais avec cet code chercher toutes les Strings dans toutes les Ligne de Listbox
mais le code peut trouver maximum un string dans chaque Ligne !!!
alors je doit utiliser le fonction "Repeat"
mais comment ?
voila le code :


procedure TForm1.Button1Click(Sender: TObject);
var
          i,,p: Integer;
begin
ListBox1.Clear;
          for i:=0 to ListBox1.Items.Count-1 do begin
              p := Pos(UpperCase(Edit1.Text),UpperCase(ListBox1.Items[i]));


              if p <> 0 then
                 ListBox2.Items.Add(Format('%d,%d',[i+1,p]));
    repeat
   begin
// ???

   end
    until i = Length(ListBox1.Items[i]) ;
   end;

end;

le code doit afficher les Positions de Strings 
J ai besoin vraiment que vous m aidez

Caribensila · Answer

Salut,

Pour commencer à débuter, penche-toi sur cette partie de ton code :

...
begin
ListBox1.Clear;
for i:=0 to ListBox1.Items.Count-1 do
...

Et pour continuer à débuter...
 


_______________________________________
Soutenez Wikimédia France aujourd'hui : http://dons.wikimedia.fr

sarssor · Answer

c est pas un probleme
c n est pas listbox1. clear;



begin
ListBox2.Clear; 
for i:=0 to ListBox1.Items.Count-1 do

Repeat-Function problem

2 réponses

Votre réponse

Discussions similaires