Puede que sea porque uilizo para este proyecto delphi 5
Al final voy a coger las clases y meterlas en una lista y comparla con otra lista de clases con el programa en reposo.De esta manera sabre si la APP este en el menu principal.Creo que con esto esta solucionado.
Una pregunta más cuando voy a guardar el buffer de la clase en un string me aperele lo siguiente:
TF_MULTICONSULTA'#0'’|şˇ’|'#0#0#$15#0'`'#0#0'@]'#0'’|đ '#$16#0'#'#0#0'Ŕ-˙‘|˙˙˙˙ËŁ’|şˇ’|'#0#0#$15#0'`'#0#0'@]'#0'’|'#0#0#0#0'-˙‘|ô'#3#3#0#0#0#0#0#1#0#0#0#0#0#$15#0'Äđ'#$12#0#0#0'É'#0'”ó'#1#0' '#0#0#0'8ň'#$12#0'0ó'#$12#0'”ó'#$12#0' é‘|`'#0'’|˙˙˙˙]'#0'’|¬'#4'’|'#0#0#$15#0#0#0#0#0#$10#$17#$16#0#$18'ó'#$12#0'‚'#4'’|'#$10#$17#$16#0#0#0#$15#0#0#0#0#0 #0#0#0#0#0#0#0#0'üó'#$12#0'b4@'#0'ţ!'#0#0#0#0#$15#0',ń'#$12#0#0#0#$15#0'¦Ą:~`ó:~'#0#0#0#0#0#0#0#0#0# 0#0#0#0#0#0#0'Ę'#0#0#0'`q'#$16#0'pó'#$12#0'ě'#$1B'Ł'#0'„ő'#$12#0'ř'#$C#0#0
. He intentando lipiarlo y dejar lo que me interesa(TF_MULTICONSULTA) con funciones que limpiar caracteres dobles, tambien con la siguiente funcion:
Código Delphi
[-]function TFORM1.QuitarCaracteres(Str: String): String; var i: Integer; begin Result:= EmptyStr; for i:= 1 to Length(Str) do if (Str[i] < #123)AND(Str[i] > #64) then Result:= Result + Str[i]; end;
y no hay manera siempre me encuentro algo de basura en algun caso.żSe te ocurre algo?