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.
Code Delphi :
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
Code Delphi :
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;Merci d'avance pour votre aide.