Discussion :

[the_magik_mushroom]

bonjour a tous,

j ai un petit probleme de string dans une function, ca doit etre tout bete mais je ne trouve pas

Code :

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

1
2
3
4
5
6
7
8
function tralala :string;
var s : string;
begin
 
s := 'fichier '+edit1.text + 'nombre '+ edit2.text;
Result := s;
 
end;

maintenant si je fait : ca marche

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(tralala);
end;

mais si je fait :

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
if checkbox1.checked = true then showmessage(tralala);
end;

ca marche pas (messagebox vide)
(bien sur le checkbox1 est checked..)


d ou vient le probleme? pourquoi le if fait que le messagebox est vide ?