probleme de retour de string dans une function
bonjour a tous,
j ai un petit probleme de string dans une function, ca doit etre tout bete mais je ne trouve pas :aie:
Code:
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:
1
2
3
4
| procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(tralala);
end; |
mais si je fait :
Code:
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 ?
