FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Lista de cadenas
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; ¿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 |
#2
|
||||
|
||||
A mi no me parece mal lo que estas haciendo, pero si buscas formas "originales" de hacerlo:
|
#3
|
|||
|
|||
Gracias por responder seoane, ya lo consegui. Resulta que declaraba una variable de tipo TStringList, pero se me olvidaba crearla
Creo que te complicas demasiado, casi no entendi nada de tu codigo, yo lo hice mas sencillito:
Salu2 Última edición por Khronos fecha: 28-07-2007 a las 02:43:59. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Uso de cadenas | zvf | OOP | 4 | 05-04-2006 00:55:47 |
¿Mejor heredar de una Lista o mejor introducir la Lista en un campo? | Jome | OOP | 8 | 24-11-2005 17:11:16 |
if ... in [] con cadenas???? | neon | Varios | 3 | 10-12-2004 13:15:39 |
Cadenas de emails | santana | Humor | 1 | 06-09-2004 16:38:00 |
comparación de cadenas | perico | Varios | 1 | 22-06-2004 23:52:28 |
|