find excels f1book

**alll1** · 04/03/2025, 13h06

salut SergioMaster,

super alors la boucle effectivement me sélectionne dans ma liste workbook le nom déjà ça fonctionne, enfin un début de résultat

nouvelle question :
comment arrêter cette boucle après qu'elle ait trouvé le résultat a chercher ? lastrow
ai mis un showmessage (f1book1.text); // il affiche bien le résultat de la recherche géniale + le résultat dans mes édit

si je clic sur ok

la recherche continue jusque au bout de ma liste si ai 15000 lignes il affiche la dernière ligne après qui a du text ?

Alain

**ShaiLeTroll** · 04/03/2025, 13h13

Envoyé par alll1

comment arrêté cette boucle après qu'il est trouver le résultat a chercher ? lastrow

Votre question est "comment arrêter une boucle après qu'elle ait trouvé le résultat à chercher ?" donc la réponse est le break !

c'est le role du break, c'est lui qui arrête la boucle !
Il faut revoir les bases de la programmation :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button2Click(Sender: TObject);
var
j : integer;
begin
     f1book1.Col := 1;
     for j:=1 to f1book1.LastRow do
       begin
        F1Book1.Row:=j;
        if edit1.Text = f1book1.Text then  break;  
 
    end;
 
  // après le end du for
  with f1book1 do
    showmessage(Format('A: %s, B: %s, C: %s, D: %s, E: %s, F: %s', [textRc[Row,1], textRc[Row,2], textRc[Row,3], textRc[Row,4], textRc[Row,5], textRc[Row,6]]);
 
end;

sinon avez-vous testé l'autre proposition de code qui serait plus simple pour vous à intégrer si vous ne connaissez ni for ni break, c'est clé en main et devrait un peu plus rapide.
Ne toucher pas une ligne de la fonction FindString, vous avez juste à écrire le code si cela retourne True en cas d'élément trouvé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
procedure TForm1.rechercheClick(Sender: TObject);
 
  function FindString(const ATarget: String; AColStart: Integer = 1; AColEnd: Integer = -1): Boolean;
  var
    i, j: Integer;
  begin
    Result := False;
    for  i:= 1 to F1Book1.LastRow do
    begin
      if AColStart <= 0 then
        AColStart := 1;
      if AColEnd <= 0 then
        AColEnd := F1Book1.LastColForRow[i];
      for j := AColStart to AColEnd  do
      begin
        if SameText(F1Book1.TextRC[i, j], ATarget) then
        begin
          F1Book1.TopRow := i;
          F1Book1.LeftCol := j;
          F1Book1.SetSelection(i,j,i,j);
          F1Book1.Row := i;
          F1Book1.Col := j;          
          Result := True;
          Exit;
        end;
      end;
    end;
  end;
 
begin
  if FindString(edit1.Text, 1, 1) then
    with f1book1 do
      showmessage(Format('A: %s, B: %s, C: %s, D: %s, E: %s, F: %s', [textRc[Row,1], textRc[Row,2], textRc[Row,3], textRc[Row,4], textRc[Row,5], textRc[Row,6]]);
end;

Mais je reste convaincu que vous devriez exporter votre carnet d'adresses dans un fichier Excel et utiliser directement Excel.

**alll1** · 04/03/2025, 13h50

bonjours ShaiLeTroll,

je ne connais pas la fonction break ai bien addpagebreak mais la boucle continue

vous avez tout a fait raison pour la révision des bases mais moi je n'en ai aucune Sorry
ai quitté école a 14 ans et bossé toute ma vie aujourd'hui suis en retraite
pour la prog je me dém....... comme je peut pas pro et pas votre savoir en prog non plus c'est vrai désolé
voila pourquoi je demande même des choses de base

pour la seconde solution je vais la tester sur un autre tbutton pour voir ce que sa donne

Alain

**rMist2024** · 04/03/2025, 14h12

Le code proposé par ShaiLeTroll fonctionne parfaitement je viens de l'essayé, il y a une petite correction if ...do dans la condition de comparaison..et un éventuel F1Book1.SetFocus est nécessaire pour mettre en évidence la cellule sélectionnée, sans focus la sélection est masquée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TForm1.Button1Click(Sender: TObject);
  function FindString(const ATarget: String; AColStart: Integer = 1; AColEnd: Integer = -1): Boolean;
  var
    i, j: Integer;
  begin
    Result := False;
    for  i:= 1 to F1Book1.LastRow do
    begin
      if AColStart <= 0 then
        AColStart := 1;
      if AColEnd <= 0 then
        AColEnd := F1Book1.LastColForRow[i];
      for j := AColStart to AColEnd  do
      begin
        if SameText(F1Book1.TextRC[i, j], ATarget) then
        begin
          F1Book1.TopRow := i;
          F1Book1.LeftCol := j;
          F1Book1.SetSelection(i,j,i,j);
          Result := True;
          Exit;
        end;
      end;
    end;
  end;
begin
  if FindString(edit1.Text, 1, 1) then
     F1Book1.SetFocus;
end;

**rMist2024** · 04/03/2025, 14h22

Lorsqu’on bascule en mode design toute l'application devient visible avec tous les menus et rien ne suggère que l’opération de recherche est supportée.

F1Book1.LaunchDesigner;

**alll1** · 04/03/2025, 19h51

salut ShaiLeTroll et tous,
youpi sa marche avec un break après le then break;
bravos a vous tous merci pour votre aide c'est au poil
je n'ai plus qua a me perfectionné en potassant les base oui bien sur

un grand merci a vous tous de votre aide

Alain

**SergioMaster** · 05/03/2025, 08h27

Envoyé par alll1

nouvelle question :
comment arrêter cette boucle après qu'elle ait trouvé le résultat a chercher ?

J'ai eu un doute en lisant ceci ! J'ai pourtant bien mis un if edit1.Text = f1book1.Text then break; dans mon code, la seule confusion peut-être, j'avais indiqué un showmessage (devenu inutile je l'avais ôté d'un code

Code :

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

1
2
3
4
5
 if edit1.Text = f1book1.Text then 
//                begin
//                 Showmessage('trouvé');                                        
                   break;
//           end;

)

P.S. Vous utilisez à foison le bouton [Répondre avec citation], il y a aussi le bouton [Répondre à la discussion] évitez d'utiliser ce dernier en citer le messages en entier (c'est beaucoup moins lisible) si vous devez citer, n'utilisez que les parties qui vous pose problème. J'en ai marre de toujours modifier vos messages.
P.P.S. Une utilisation du bouton

sur les réponses que vous trouvez valides aidera les autres lecteurs qui auraient le même besoin

**alll1** · 07/03/2025, 08h57

salut ShaiLeTroll ,
j'ai essayer le composant sm dont vous m'aviez parlé , bon c'est intéressant j'ai téléchargé plein de truc et d'exemple plutôt sympas merci pour l'infos sur ces composants gratuits

juste une autre petite question

sur mon programme actuel réalisé grâce aux conseils de ce groupe. Quan dje l'exécute sur la machine avec Delphi cela fonctione marche au poil et même bien
par contre sur une machine n'ayant pas Delphi le programme m'affiche a exécution une erreur Eolesyserror 00060819 classe non enregistré ?
J'ai déjà copié et enregistré vcf132.ocx avec regsvr32, mais toujours le même problème ?

auriez vous une idée a me conseiller ?
auriez vous un vcf1.ocx pour win x86 ou x64 mon fichier a une taille de 618 ko j'en ai vu un sur le net qui est un peut plus gros mais pas réussi a le télécharger ,
Alain

**ShaiLeTroll** · 07/03/2025, 10h05

regsvr32 lequel ?

C:\Windows\System32 = 64Bits
C:\Windows\SysWOW64 = 32Bits émulé sur 64Bits - c'est celui-ci pour vous

Envoyé par alll1

auriez vous une idée a me conseillé ?

Utiliser directement Excel et un fichier XLS ou XLSX cela sera plus pérenne.
Même un fichier CSV sera plus facile à gérer hors Delphi ... ce sujet contient tout ce qu'il faut Passer une StringGrid dans un MemoryStream
Même un XML via TXMLDocument, idem, vous pourrez l'utiliser hors Delphi

Avec F1Book vous restez dépendant à une technologie obsolète depuis 25 ans.
Fait un export en CSV de votre carnet d'adresses et changer votre approche en vous débarrassant de F1Book

Envoyé par alll1

auriez vous une idée a me conseillé ?

Oubliez D7, passer à Delphi: Community Edition
SQLite via ZeosDB,
JSON via TJSONObject (encore un fichier utilisable hors Delphi)
plein de technologie plus récente

Vous pourriez même changer de langage, du Python par exemple, c'est plus simple et plein de lib qui facilite la vie des développeurs débutants, alors qu'en Delphi, il faut faire beaucoup de chose par soi-même.
Il y a des tutoriels bien plus nombreux, la communauté Python est bien plus vaste que celle de Delphi ... sans parler qu'un logiciel de gestion de contacts en OpenSource, ça existe sur GitHub
Non parce que la gestion d'un carnet d'adresse, c'est le sujet de plusieurs tutoriels pour débutant :

Ensuite une sérialisation d'un Dict en JSON c'est une ligne de code en Python

Vous n'avez pas lu les consignes !

Envoyé par SergioMaster

P.S. Vous utilisez à foison le bouton [Répondre avec citation], il y a aussi le bouton [Répondre à la discussion] évitez d'utiliser ce dernier en citer le messages en entier (c'est beaucoup moins lisible) si vous devez citer, n'utilisez que les parties qui vous pose problème. J'en ai marre de toujours modifier vos messages.

P.P.S. Une utilisation du bouton

sur les réponses que vous trouvez valides aidera les autres lecteurs qui auraient le même besoin

**SergioMaster** · 07/03/2025, 10h41

Envoyé par ShaiLeTroll

Oubliez D7, passer à Delphi: Community Edition
SQLite via ZeosDB,
JSON via TJSONObject (encore un fichier utilisable hors Delphi)
plein de technologie plus récente

Au cas où vous oubliez D7 pour passer à la dernière version Community autant aussi oublier ZEOS puisque Firedac existe

Envoyé par ShaiLeTroll

Vous n'avez pas lu les consignes !

Consignes, faut pas pousser, ce ne sont que des conseils pour une meilleure visibilité pour les autres lecteurs.

**alll1** · 07/03/2025, 14h11

bonjour ShaiLeTroll,

sisi ai bien lut mais le prix de ce soft n'est indiquer nul par
le téléchargement est gratuit et je pense que le soft ne l'ai pas prix de la licence ? surprise après inscription peut être ?
sur leurs site d'entrée il demande nom prénom Age sexe etx.......

combien coute se soft ? quant ai acheter Delphi 7 déjà a l'époque sa m'a couté très chère , je comprend bien que chaque chose se paye mais quant même
je n'aime pas les surprise pourrie

alors les autre soft bon bof

l'activx de delphi 7 est un peut a l'ouest avec le / formula one / pdf / chartfx / vfspell/ vtchar apparement c'est tout ce qui touche vcf132.ocx
voila pourquoi ma question sur vcf132

dans Delphi 7 j'ai effectivement une démo fournie avec un stringgrid et j'arrive a charger bien sur mon fichier original qui est en *.xls au départ il créait un stringgrid au démarrage je l'ai modifier
et sa fonctionne sur les autre machine effectivement en chargeant mon fichier excels
le problème est re encore a refaire la recherche dans la strigggrid du nom dans la colone1 et afficher chaque colonne dans un edit1 pour colone1 edit2 pour colonne 2 etc.... edit3 edit4 edit5 edit6

donc retour au départ avec une stringgrid, c'était trop beau pour être vrai
ma version est en 32 bits oui donc dans sytem32 de windows

Alain

**SergioMaster** · 07/03/2025, 14h57

Envoyé par alll1

si j'ai bien lu mais le prix de ce soft n'est indiqué nulle part

Normal la version community est gratuite, il y a juste un contrat à respecter : la barre du chiffre d'affaires (5000$ par an).
Cette version est comparable à un version 12.1 professionnelle avec les mêmes limitations

find excels f1book

Delphi

Discussions similaires

Partager

Partager