Tester si un mot est palindrome

Version imprimable

bonjour,

je dois tester si un mot est palindrome cad kayak à lenvers donne kayak
mon problème est que lorsque je test le programme, le label ne saffiche pas

voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 procedure Test(st1:string;var st2:string); var i:integer; var s,pal:string; begin st2:=''; for i:=1 to Length(st1) do if st1=st2 then s:=pal; end; procedure TForm1.BTNtesterClick(Sender: TObject); var s,pal:string; begin s:=editentree.text; Test(s,pal); labelresultat.caption:=pal; end;
:tagcode: :merci:
FRANK

21/11/2005, 23h07
qi130
Dabs la procédure test,

Code:

if st1=st2 then...

ne fait que comparer les 2 chaines, pas les lettres....en plus, st2 est vide :lol:

Dans la même proc:
Code:

1 2 if st1=st2 then s:=pal;
tu mets pal dans s, mais que vaut pal ?

Merci de penser aux balises de code.....

salut

voila ce que je ferait pour tester ton texte et savoir si c'est un palandrome

Code:

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
 
  procedure Test(st1:string;var st2:string);
  var i      :integer;
       s,pal :string;
 begin
    st2:='';
    pal:=st1;
    lg := Length(st1);
    i := 1;
    Bool := true; 
    while (i < lg) and not(bool ) do
    begin
      if st1[lg+1-i]<>pal[i] then
         Bool := False;
      inc(i)
    end;
    if Bool Then  
       st2:=pal;
end;
 
 
procedure TForm1.BTNtesterClick(Sender: TObject);
var s,pal:string;
begin
  s:=editentree.text;
  Test(s,pal);
  if trim(pal) <> '' Then
    labelresultat.caption:=pal
  else 
    labelresultat.caption:= 'Pas un palandrome';
end;

@+ Phil