Appel de procédure ou fonction dans Case OfRésolu

Question

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

Caribensila · Accepted Answer

Bonjour,

Voici une méthode insensible à la casse :

var
  Cmd : TStrings;
begin
  Cmd := TstringList.create;
  try
    Cmd.Add ('Open');
    Cmd.Add ('Cmd2');
    Cmd.Add ('Cmd3');

    Case Cmd.IndexOf( AContext.Connection.IOHandler.ReadLn() ) of
      0: Open();
      1: DoCmd2();
      2: DoCmd3();
      else ShowMessage('Ce n''est pas une commande.');
    end;
  finally Cmd.Free;  end;
end;

PythonGreg · Answer

Merci Caribensila  tu ma évité la Procedure spaghetti

Appel de procédure ou fonction dans Case Of

2 réponses

Votre réponse

Discussions similaires