Petit coup de main en delphi

Fermé
BomberJack Messages postés 176 Date d'inscription dimanche 4 octobre 2009 Statut Membre Dernière intervention 14 novembre 2010 - 28 févr. 2010 à 13:04
samiechikh Messages postés 14 Date d'inscription lundi 26 septembre 2011 Statut Membre Dernière intervention 2 octobre 2016 - 26 sept. 2011 à 22:30
Bonjour,
Voila, jais un petit problème avec mon code en delphi, je cherche a faire un tchat et un bot...voila le problème :
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var i:integer;
begin
for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do
begin
If ServerSocket1.Socket.Connections[i].ReceiveText='!Date' then begin
ServerSocket1.Socket.Connections[i].SendText('La date est :'+FormatDateTime('ddddd', Now) );
end;
If ServerSocket1.Socket.Connections[i].ReceiveText='!Heure' then begin
ServerSocket1.Socket.Connections[i].SendText('L'heure est '+FormatDateTime('tt', Now) );
end;
end;
end;
end.

Quand j'envoie !Date... je recois la date !
Quand j'envoie !Heure... je recois...rien =,c !
Je voidrais recevoire la date mais aussit l'heure comment faire ??!!
A voir également:

1 réponse

samiechikh Messages postés 14 Date d'inscription lundi 26 septembre 2011 Statut Membre Dernière intervention 2 octobre 2016 1
26 sept. 2011 à 22:30
passe par : datetostr et timetostr
0