Estoy trabajando con una {$APPTYPE CONSOLE} y estoy haciendo una especie de cmd pero con mis propios comandos.
Lo que estoy haciendo es que vaya leyendo las lineas hasta que una coincida con un comando que tengo asignado y que realice esa accion.
Por ejemplo(les pego un pedazo de codigo):
Código:
var
Comando: string;
Procedure DetectarComando;
var
repetir: boolean;
begin
repetir:= true;
Repeat
Readln(Comando);
If Comando='edit' then
begin
repetir:=false;
end;
If Comando='mail' then
begin
repetir:=false;
end;
If Comando='quit' then
begin
repetir:=false;
end;
until repeat=false;
end;
begin
If comando='edit' then
begin
Edit;
end;
end;
Espero que se entienda. La lista de comandos cada vez se me hace mas grande y es poco "elegante" lo que estoy haciendo yo
¿Como podria hacerlo de otra forma?
Probe con una variable de tipo TStringList con todos los comandos registrados en los items y haciendo una busqueda, pero se me cierra.
Salu2