D6 TEdit copier/coller et characteres invalides

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : D6 TEdit copier/coller et characteres invalides

KrzAramis

Help Me

Bonjour a tous,
Je suis en train de developper une application qui se sert d'un TEdit
pour donner un nom a un fichier. J aimerai autant que faire ce peux minimiser
l'apparition de characteres indesirables du style:

& ~ ' { ( [ - | ` _ \ )]
etc.
J ai donc programmer sur l'evenement on Key press de mon Tedit le code:

Code :

procedure TForm_Main.edit01KeyPress(Sender: TObject; var Key: Char);
var
i : integer;
s : string;
sAncientText : string; //Text prior to Key press
begin
// Paste
if (key = ^V) then
begin
try
sAncientText := Edit01.Text;
s := clipboard.AsText;
for i := 0 to Length(s) do begin
if (not (s in ['0'..'9','A'..'Z',' ','a'..'z','é','è','ç','à','ù']))
then
s[i] := #0;
end;
if sAncientText <> '' then begin
for i := 0 to Length(sAncientText) do begin
if (not (sAncientText[i] in ['0'..'9','A'..'Z',' ','a'..'z','é','è','ç','à','ù']))
then
sAncientText[i] := #0;
end; //for
end;
with Edit01 do begin
AutoSelect := True;
Text := sAncientText + s;
AutoSelect := False;
end;
except
on e: exception do
Key := #0;
end;
end
else if (not (Key in ['0'..'9','A'..'Z',' ','a'..'z','é','è','ç','à','ù',
Chr(VK_BACK),Chr(VK_DELETE),^C,^X])) then
Key := #0;
end;

et sur l évenement KeyDown

Code :

procedure TForm_Main.Edit01KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var i : integer;
s : string;
sAncientText : string; //Text prior to Key down
begin
//Avoid paste via contexual menu or by shift Ins (undetected by KeyPress)
if (key = VK_INSERT) and (shift = [ssShift]) then
begin
try
sAncientText := Edit01.Text;
s := clipboard.AsText;
for i := 0 to Length(s) do begin
if (not (s[i] in ['0'..'9','A'..'Z',' ','a'..'z','é','è','ç','à','ù']))
then
s[i] := #0;
end;
with Edit01 do begin
AutoSelect := True;
Text := sAncientText + s;
AutoSelect := False;
end;
except
on e: exception do
Key := 0;
end;
end;
end;

Que se passe t il ? ben quand l'utilisateur tape au clavier ca marche le hic vient du copier/coller
en effet lors du copier/coller le texte du presse papier est systematiquement ajouter au debut du TEdit:
Exemple: soit Ancient text: "Bonjour"
press papier: "a tous <> %*µ"
supposons que le curseur soit a la fin de [i]bonjour lors de l'insertion cela donne
TEdit.TExt := 'a tous <> %*µBonjour';
Hors en mode pas a pas il montre que la variable 's' contient des #0 a la place des characteres
que je ne veux pas avant de l'ajouter a la propriete text du TEDit.
Ma premiere question est donc:
Comment faire pour que lors du collage le text s'ajoute à l'endroit indiquer par le curseur
et comment faire en sorte que le texte collé soit exempt de tous characteres indesirable ??

Etant donne la situation avant que le fichier soit généré je verifie une derniere fois aue tout est
en ordre et la HORREUR :sweat: . Voici le code qui test si le TEdit est exempt de characteres invalide:

Code :

procedure TForm_Main.ActAddExecute(Sender: TObject);
var s : string;
WrongCharacter : boolean;
isEmpty : boolean;
i : integer;
begin
WrongCharacter := False;
isEmpty := False;
[...]
if Ed_RName.Text = '' then begin
MessageDlg(Err_Msg_RNameMiss, mtWarning, [mbOK],0);
//The aim is to place the pointer in the Edit box
Ed_RName.SelStart := 0; //seems to work
Exit;
end
else begin //the Edit box is not empty, verify if unauthorised characters are present
{ TODO -oAramis -cString Management :
The First character of the Edit Box is always wrong impossible to test
the procedure }
s := Edit01.Text;
for i := 0 to Length(s) do begin
if (not (s in ['0'..'9','A'..'Z',' ','a'..'z','é','è','ç','à','ù']))
then begin
ShowMessage(s[i]);
WrongCharacter := True;
end;
end;// for
end; // else
if WrongCharacter then begin
MessageDlg(Err_Msg_WrongChar, mtWarning, [mbOK], 0);
Edit01.SelStart := 0;
Exit;
end;

Si i:= 0 le premier character quel qu il soit donne tjrs WrongChar = True par contre
si je modifie la boucle pour la faire commencer à 1 ca marche sauf que si le premier character est
mauvais je suis mal
D ou ma 2nd Question:
[i]Pourquoi qd i est égal à zero le code donne systematiquement WrongChar = True ,
Comment pallier a ce probleme?

Merci d'avance à toutes et à tous.

Aramis @->-- [:ddr555]

Message édité par KrzAramis le 08-06-2003 à 16:10:58

---------------
The Only Way for Evils to Triumph is for Good Men to do Nothing @->-- Cours Réseaux@->-- Mon Site

Publicité

antp

Super Administrateur
Champion des excuses bidons

Plutôt que d'autoriser quelques caractères (t'en laisses peu ) pourquoi ne pas interdire que les quelques caractères interdits ?
à savoir:

? * | ¦ < > / \ " :

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

antp

Super Administrateur
Champion des excuses bidons

for i := 0 to Length(s)

-> sachant que s[0] = longueur de la chaîne, ce code est hyper aléatoire... c'est plutôt for i := 1 to Length(s)

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

KrzAramis

Help Me

antp a écrit :

Plutôt que d'autoriser quelques caractères (t'en laisses peu ) pourquoi ne pas interdire que les quelques caractères interdits ?
à savoir:

? * | ¦ < > / \ " :

ben c est toute la puissance du copier coller !
Je changerai le code t en fais pas [:ddr555]

---------------
The Only Way for Evils to Triumph is for Good Men to do Nothing @->-- Cours Réseaux@->-- Mon Site

KrzAramis

Help Me

antp a écrit :

for i := 0 to Length(s)

-> sachant que s[0] = longueur de la chaîne, ce code est hyper aléatoire... c'est plutôt for i := 1 to Length(s)

Mon probleme c est que j utilise deja code autre part dans mon programme et il marche tres bien . Ce que je ne comprends pas c est pourquoi dans ce cas c est different .!
s[0] donne t il tjrs la taille de la chaine ?
Lors du key press le programme s est il que la chaine sera au minimum de longueur 1 ???
Je dois dire que j en perds mon delphi la !
Bref un truc de regler la suite risque d etre plus coton !

@->--

---------------
The Only Way for Evils to Triumph is for Good Men to do Nothing @->-- Cours Réseaux@->-- Mon Site

antp

Super Administrateur
Champion des excuses bidons

Je sais pas si s[0] te renvoie toujours la longueur, je sais que c'est le cas pour les ShortString (et les chaînes de longueur fixe).
Par contre comme les chaînes commencent à 1, faut pas aller lire s[0]
Tu dis que dans tes autres softs ça marche, c'est vraiment un gros coup de bol alors...

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

KrzAramis

Help Me

Je suis etonne car le code je l ai pas invente je l ai pris d une discussion sur le meme sujet. Donc qd je test il faut que je commence a 1. bon d accord.
Quand au evenements.. j ai juste coder ceux presente dans ce thread (Key down et press). Apparament c est KeyPress qui prend le charactere.
Pour finir j ai deja empecher l entree de certain characteres dans d autre soft mais je me suis jamais interresse au probleme du copie/coller !

@->--

---------------
The Only Way for Evils to Triumph is for Good Men to do Nothing @->-- Cours Réseaux@->-- Mon Site

antp

Super Administrateur
Champion des excuses bidons

ce que je fais c'est éventuellement empêcher de taper les caractères, mais je mets toujours un test plus loin pour que les autres moyens (copier coller par ex) soient bloqués eux-aussi

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

FORUM HardWare.fr

Programmation

Delphi/Pascal

D6 TEdit copier/coller et characteres invalides

Sujets relatifs
Copier en VB une macro dans un nouveau fichier	[VBA/Access] Copier un formulaire d'une appli à une autre [résolu]
[VB \ exel]Copier une ligne d'une table .... .. ..	Copier un fichier avec CopyFile --> erreur à cause du uses Windows
[c++ builder] Copier puis executer fichier en c/c++ ?	[ C ] Comment copier un fichier en qelques ligne?
[C] copier un fichier de données formatées via une fonction externe...	[MySQL] Copier le contenu d'un champ dans un autre.
[dBASE] Copier la structure d'une table pour mettre sous Excel	Comment copier un fichier indefiniment sur une même partition ?
Plus de sujets relatifs à : D6 TEdit copier/coller et characteres invalides

Page générée en 0.084 secondes