Discussion :

[mamizo]

Bonjour,
Connaissant encore un peu mal les fonctions Delphi, pourriez vous me dire comment faire une recherche dans ma base de données paradoxe de mots commençant par "A" par exemple et ne contenant QUE 3 Lettres ?
Merci

Pour l'instant j'ai ceci qui me donne tous les mots commençant par A. Par quoi remplacer "*" pour limiter à "A##", "#" étant une lettre quelquonque ?

Code :

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

1
2
3
4
5
6
 
begin
Filtrea := 'code =''' + 'A' + '*''';
table1.filter :=filtrea;
table1.filtered := true;
end;

[bidochon]

Salut,
je ne pense pas que ce soit possible en utilisant des caracteres generiques comme *, # ou autre.
Tu devrais regarder a faire toi meme la condition de filtre en utilisant l'evenement OnFilterRecord

Code :

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

1
2
3
4
5
6
7
procedureTForm1.DataSetFilterRecord(DataSet:TDataSet;
varAccept:Boolean);
begin
Accept := False;
If Length(Dataset.FieldByName('MonChamp').asString)=3 then
  Accept := true;
end;

enfin regarde dans l'aide de Dephi pour en savoir plus
@ plus
et bon dev

[Giovanny Temgoua]

Je suis de l'avis de bidochon sauf qu'il a oublié la condition "la première lettre doit être A"

Code :

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

1
2
3
4
5
6
7
8
9
procedureTForm1.DataSetFilterRecord(DataSet:TDataSet;
varAccept:Boolean);
var Val : string;
begin
Accept := False;
Val := Dataset.FieldByName('MonChamp').asString;
If (Val[1]='A' and Length(Val)=3) then
  Accept := true;
end;

A+

[bidochon]

Désolé c'est pour l'exemple, la forme scolaire
Ceci dit, King, tu as oublié des parentheses dans ton If et le compilateur marque une erreur.
Voila un code qui est optimisé :

Code :

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

1
2
3
4
5
6
7
8
var Val : string; //en globale pour eviter d'allouer et desallouer
...
procedureTForm1.DataSetFilterRecord(DataSet:TDataSet; 
varAccept:Boolean); 
begin 
Val := Dataset.FieldByName('MonChamp').asString; 
Accept:=(Val[1]='A') and (Length(Val)=3);
end;

@ plus

[nek_kro_kvlt]

et pourquoi pas un 'a??" , ou ? est comme *, mais ne correspond qu'a un seul caractère.

[mamizo]

Merci, j'ai compris le principe booléen, mais pas le principe du datasetfilterrecord.
J'ai ma procedure ci dessous pour le click sur le bouton et en plus une 2ème procedure à l'intérieure de celle ci ?
Quelle boite de contrôle dois je rajouter sur ma conception?
Oui j'avoue j'ai bcp de mal à saisir ces histoires de base de données, je me sens un peu crétin, mais je vous assure je fais bcp d'efforts...

Code :

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

1
2
3
4
5
6
7
8
procedure TForm2.Button1Click(Sender: TObject);
var Val : string; //en globale pour eviter d'allouer et desallouer 
procedureTForm2.DataSetFilterRecord(DataSet:TDataSet; 
varAccept:Boolean); 
begin 
Val := Dataset.FieldByName('code').asString; 
Accept:=(Val[1]='A') and (Length(Val)=3); 
end;

[bidochon]

Salut,
Pour utiliser l'evenement OnFilterRecord correctement tu dois cliquer sur ton objet Table et dans l'inspecteur d'objet, onglet evenement, tu dois doublecliquer sur OnFilterRecord. Delphi te genere le code d'appel a cet evenement, mais il n'est aucunement contenu dans le OnClick d'un bouton.
L'evenement OnFilterRecord est apellé à chaque fois qu'un enregistrement de ta table devient l'enregistrement actif alors que le filtrage est activé (filtered := true).
En pratique, tu ecris dans cet evenement les conditions de filtrage un peu particulieres (comment par A et ne contenant que 3 caracteres...)

@ plus

[mamizo]

Ahhhh voilà....je commence à comprendre mieux....
Merci pour les infos.

J'ai une sacré gymnastique d'esprit à faire, et comme j'ai la version limité à 30 jours, il me reste 15 jours pour finir à bien ma conversion de ma BDD, mais j'avoue que DELPHI à de quoi séduire le plus dure étant pour moi de trouver parfois des expressions très simple dans un envirronnement compliqué, malgrés mon livre d'aide de campus press et autres tutoriaux de ce site ce n'est pas toujours facile de trouver la syntaxe exacte et de l'appliquer.

Disons qu'il me manques qq bases (je l'avoue volontier), mais faut bien savoir se mouiller à un moment ou à un autre pour passer de novice à initié, c'est pourquoi je trouve votre aide formidable.
Merci encore (Je reviendrais..C'est tout vu