hardouz
Messages postés196Date d'inscriptionjeudi 22 février 2007StatutMembreDernière intervention26 novembre 2009
-
20 mars 2007 à 15:53
hardouz
Messages postés196Date d'inscriptionjeudi 22 février 2007StatutMembreDernière intervention26 novembre 2009
-
20 mars 2007 à 22:35
salut voici un bou de Code que je vien de faire a l'aide de plusieur membres du Cs je vous remerci bien :)
mais je veut faire afficher la ligne qui contient le mot rechercher(pas le numéro) :) merci
voici le code :
unit Unit1;
procedure TForm1.FormCreate(Sender: TObject);
begin
richedit1.lines.loadfromfile('f:\tree.txt');
end;
procedure TForm1.Button1Click(Sender: TObject);
Var
i,j:cardinal;
k:integer;
ch:string;
begin
For i:=0 to RichEdit1.Lines.Count-1 DO
Begin
j:=Pos(Edit1.text,RichEdit1.Lines[i]);
If j>0 then
showmessage('Le mot est à la ligne '+IntToStr(i+1)+' et est le mot commence au '+IntToStr(j) +'caractère');
end;
end;
procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
staticText2.caption:='fichier à rechercher';
end;
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
staticText2.caption:='Demarrer la recherche';
end;
Filipe35
Messages postés470Date d'inscriptionvendredi 14 novembre 2003StatutMembreDernière intervention23 octobre 20071 20 mars 2007 à 20:22
Aller, on va dire que tu commences mais teste un peu par toi même (ne serait-ce qu'un peux).
voici le code de la boucle
For i:=0 to RichEdit1.Lines.Count-1 Do
Begin
j:=Pos(Edit1.text,RichEdit1.Lines[i]);
If j>0 then
begin
showmessage('Le mot est à la ligne '+IntToStr(i+1)+' et est le mot commence au '+IntToStr(j) +'caractères');
showmessage ('voici la ligne en question: ' +RichEdit1.Lines[i]); end;
end;
Je vais être un peu dur mais tu commence sérieusement à me courir sur le haricot.
Déjà ca fait le 4ieme thread que tu crées pour le meme sujet.
Secondo, tu emmerdes (et c'est peu de le dire) les gens jusqu'à ce qui te filent un bout de code tout fait.
Tertio tu fais preuve d'mpertinence et d'insolence en prenant les gens carrement pour des codes.
Quatrièmement tu es irrespectueux , en ne lisant meme pas les réponses qui te sont données.
Cinquièment tu te permets d'insulter les gens.
Sixièmement, tu ne cherche meme pas à comprendre le pré-maché qu'on te fait.
//Pour la ligne 0 au nombre de ligne du RichEdit -1, Faire
For i:=0 to RichEdit1.Lines.Count-1 Do
//On commence
Begin
//j est la position éventuelle du mot Edit1.text dans la ligne i du RichEdit1
j:=Pos(Edit1.text,RichEdit1.Lines[i]);
//Si j est positif autrement dit si le mot a été trouvé
If j>0 then
// Afficher la ligne i du RichEdit1.
showmessage (RichEdit1.Lines[i]); //Similitude entre les deux parties en bleues : A méditer end;
Merci de changer de comportement immédiatement, sinon ca va mal finir cette histoire