PythonGreg
Messages postés68Date d'inscriptionjeudi 3 novembre 2011StatutMembreDernière intervention 6 février 2015
-
26 oct. 2012 à 06:20
PythonGreg
Messages postés68Date d'inscriptionjeudi 3 novembre 2011StatutMembreDernière intervention 6 février 2015
-
26 oct. 2012 à 18:52
Bonjour à tous ;
J'ai un petit problème voila j'ai une partir serveur qui exécuté des commandes reçu par le client le serveur compte a peu pré 30 commandes.
procedure TFServeur.IdTCPServer1Execute(AContext: TIdContext);
var
Cmd : string;
begin
Cmd := AContext.Connection.IOHandler.ReadLn();
If Cmd = ?Open? then
Open; // Appel de procedure ou function
End;
Mais je ne peu pas inséré 30 [ If Then ] dans la procédure sa fait énorme ?
Donc j'ai pence qu'un Case Of serai plus adapter a cette situation mais voila comment appelé une fonction ou procédure dans un Case Of
procedure TFServeur.IdTCPServer1Execute(AContext: TIdContext);
var
Cmd : string;
I : Integer;
begin
Cmd := AContext.Connection.IOHandler.ReadLn();
For I := 1 to length(Cmd) do
Begin
Case Cmd[I] of
?Open? := Open; // Apple de procedure ou function
End;