Creo que no estoy entendiendo algo.... no puede ser tan fácil, a ver, yo he hecho lo siguiente:
- en mdosql.pas he añadido una nueva propiedad pública al TMDOSQL:
Código Delphi
[-]
property UniqueRelationName: string read GetUniqueRelationName;
property UniqueCursorName:string read FCursor write FCursor; <<<< esta es la linea añadida
published
property Database: TMDODatabase read GetDatabase write SetDatabase;
y ahora en el Prepare:
Código Delphi
[-]
procedure TMDOSQL.Prepare;
var
stmt_len: Integer;
res_buffer: array[0..7] of Char;
type_item: Char;
begin
if FCursor = EmptyStr then
raise Exception.Create('Not asigned UniqueCursorName property !');
FCursor es una variable protegida, ni propiedad ni nada, es una simple y mortar variable, pues la reuso y me quedo tan pancho.
- Guardo y cierro todo.
- Abro el paquete de los mdo que está en la carpeta "source" con nombre mdo_dX, pulso F12 para que aparezca la ventanita de compilación y pulso el botón compilar.
- Listo, Ahora ya tengo una propiedad en el TMDOSQL que se llama "UniqueCursorName:string" que desde mi programa principal puedo asignar su valor.
En el caso de que se te olvide asignar esa propiedad, en ejecución obtendrás una excepción muy bonita. Además no creo que se te olvide nunca...
¿qué es lo que me estoy perdiendo?
PD: Si ahora me alguien con aquello de que esto es una chapuza más grande, pues que lo pinte de amarillito y con flores
Saludos