Question : Case of end

Version imprimable

03/01/2007, 17h47
akuMz

Question : Case of end

Voilà, tout d'abord bon soir à tous!

Voilà je commence delphi et je vous avoue que j'ai un peu du mal :oops: :) .

J'aimerai utiliser un "case.. of.. end"

mais je vous explique:

je suis entrain de faire un bête petit programme, et sur un de mes form j'ai un LISTBOX, avec aussi un editbox. Le but est donc d'écrire un NOM dans l'editbox et ensuite clicker sur un button 'ok' pour que le nom se rajoute dans le LISTBOX en question.

J'aimerai donc utiliser le CASE OF END comme ceci:

Si on tape rien dans l'editbox, ça me donne un message : Veuillez entrer un nom !
Si on met des carectères speciaux comme ' / .\ >!& ' ça mettrai : Un truc du style 'Pas de symbols'

Voila je sens que c'est pas du tout clair, m'enfin si quelqu'un pouvais me dire comment je dois faire, je vous serais très reconnaissant! ;)

Merci bcp,

Amicalement

Cedric ( akuMz )

bonsoir

je pense que le CASE n'est pas bon pour ce que tu veux faire.

vérifier un champ vide peut se faire au niveau de l'appui sur le bouton du genre:

Code:

if edit1.text = '' then showmessage

quand aux caractères interdits il peuvent être gérés directement à la saisie
par l'évennement "OnKeyPress" du edit1,
par exemple:
Code:

1 2 3 4 5 6 procedure edit1KeyPress(Sender: TObject; var Key: Char); begin // les caractère autorisés sont énumérés if not (Key in ['0'..'9', Chr(VK_BACK), Chr(VK_DELETE)]) then Key := #0; end;
à plus et bienvenu

Salut,

au faite mon but est d'utiliser justement ce CASE. Je dois faire un programme en utilisant un peu de tout. Dans mon programme en question ça ne servait pas vraiment a quelque chose de mettre un "case" mais j'ai remarqué que pour les profs, ça était important

Voila ce que j'ai:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 procedure TFormListe.Button2Click(Sender: TObject); var NombreEleves : Integer; begin NombreEleves := StrToInt(Label1.Caption); If Edit1.Text = '' Then ShowMessage('Entrez un nom!') Else begin ListBox1.Items.Add(Edit1.Text); NombreEleves := NombreEleves+1; Label1.Caption := IntToStr(NombreEleves); end; Edit1.text := ''; ActiveControl := Edit1; end;
et ce que je voudrai donc:

Si on ne remplit rien -> msg d'erreur
Si on met un chiffre -> autre msg d'erreur
Si on remplit avec un nom -> c'est bon :)

Merci ;)

utilises la mise en forme pour le code, sinon tu vas te faire rapeller à l'orde!

maintenant si tu veux utiliser le 'CASE OF' pour le fun, tu peux modifier le code:
Code:

1 2 3 4 5 6 7 8 procedure edit1KeyPress(Sender: TObject; var Key: Char); begin // Saisir que des lettres case key of '0'..'9' : showmessage('cequetuveux'); '/' : showmessage('cequetuveux'); end else label1.caption := 'encorecequetuveux' end;
c'est pas le plus simple car tu dois tout énumérer

03/01/2007, 19h50
thewho

Bonjour,

Le case of n'est pas adapté à ce que tu veux faire, car il ne peut pas gérer des chaines de caractères, ce que te renvoie un TEdit.

pff jm'en sors pas!

j'ai vraiment du boulot quoi..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure TFormListe.Button2Click(Sender: TObject);
var
 NombreEleves : Integer;
 
begin
 NombreEleves := StrToInt(Label1.Caption);
 
 If Edit1.Text = ''
 Then ShowMessage('Entrez un nom!')
 Else
        begin
        ListBox1.Items.Add(Edit1.Text);
        NombreEleves := NombreEleves+1;
        Label1.Caption := IntToStr(NombreEleves);
        end;
 Edit1.text := '';
 ActiveControl := Edit1;
end;

Voila ce que j'ai

Et ce que j'ai essayé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
procedure TFormListe.Button2Click(Sender: TObject);
var
 NombreEleves : Integer;
 Key: Char;
 
 
begin       // Saisir que des lettres
  case key of
    '0'..'9' : showmessage('cequetuveux');   // Donc les chiffres = msg d'erreur
    ''      : showmessage('cequetuveux');  // RIEN ecris = msg d'erreur
  end
 
 Else    // si il y a bien ecris qq'chose
        begin
        ListBox1.Items.Add(Edit1.Text);
        NombreEleves := NombreEleves+1;
        Label1.Caption := IntToStr(NombreEleves);
        end;
 Edit1.text := '';
 ActiveControl := Edit1;
end;

help ?

03/01/2007, 20h05
akuMz

Citation:

Envoyé par thewho

Bonjour,

Le case of n'est pas adapté à ce que tu veux faire, car il ne peut pas gérer des chaines de caractères, ce que te renvoie un TEdit.

ah bon,

d'accord donc je dois chercher quelque chose d'autre ou quelque part d'autre ou rajouter un CASE OF!

merci beaucoup ;)

Bonjour,
Citation:
Envoyé par akuMz
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 procedure TFormListe.Button2Click(Sender: TObject); var NombreEleves : Integer; Key: Char; begin // Saisir que des lettres case key of '0'..'9' : showmessage('cequetuveux'); // Donc les chiffres = msg d'erreur '' : showmessage('cequetuveux'); // RIEN ecris = msg d'erreur end Else // si il y a bien ecris qq'chose begin ListBox1.Items.Add(Edit1.Text); NombreEleves := NombreEleves+1; Label1.Caption := IntToStr(NombreEleves); end; Edit1.text := ''; ActiveControl := Edit1; end;
As-tu bien réfléchi à ce que tu as écrit ?

Tu fais un case key of alors que la variable key n'est pas initilisée. Comment veux-tu que ça puisse fonctionner ?

Ton code ne doit pas compiler (pas testé, je n'ai pas Delphi sous la main, et puis il faudrait refaire une fenêtre, etc...), car la ligne

Code:

'' : showmessage('cequetuveux'); // RIEN ecris = msg d'erreur

ne passe certainement pas : un char, comme ta variable key ne peut pas être vide, et il n'y a pas de valeur pour dire "cette variable de type char n'a pas été initialisée", toutes les valeurs de 0 à 255 étant valides comme caractères.

De plus, c'est le contenu de l'éditeur, de type strring, qui t'intéresse, qui n'a rien à voir avec ta variable key, de type char.

Et comme tu as pu le lire dans mon précédent message, le case of ne sait pas gérer les string.

Je vais t'orienter un peu : comme tu ne veux saisir que des lettres, ton case key of doit être appliqué dans l'évènement OnKeyPress de ton éditeur, à toi la balle.

04/01/2007, 13h33
Laurent Dardenne

Citation:

Envoyé par thewho

Et comme tu as pu le lire dans mon précédent message, le case of ne sait pas gérer les string.

On peut le simuler : http://delphi.developpez.com/faq/?pa...e#caseofstring
Mais une chose à la fois ;)
04/01/2007, 15h06
thewho

Bonjour,

Citation:

Envoyé par Laurent Dardenne

On peut le simuler : http://delphi.developpez.com/faq/?pa...e#caseofstring
Mais une chose à la fois ;)

Certes, on peut faire ainsi.

Mais ça ne fait pas marcher le case of comme s'il savait gérer les strings, je n'appellerais pas ça une simulation. Car pour moi, une vraie simulation permettrait d'utiliser diectement la chaine qui sert d'orientation.

C'est un peu comme si, pour comparer 2 chaines, il te fallait calculer un code intemédiaire pour chaque chaine, et comparer les valeurs de ces codes.
04/01/2007, 15h13
Bleys

Salut,

A mon avis le mieux serait que tu ailles jeter un oeil ici ;)

Bonne journée ;)