antipauli

Con los quickreport. Delphi trae un ejemplo.

Totalmente y te lo dice alguien que aun no la ha usado pero que sólo oye albanzas de la misma. Se dice que es la base de datos más rápida de las conocidas (no sé si se ha comparado con Teradata, la novedad) y aunque no tiene un lenguaje interno como...

Utilizando WinExec: WinExec(PChar('notepad.exe'),SW_SHOWNORMAL); {Ejecuta el Notepad.Exe} Este ejemplo ejecutará el Block De Notas El fichero a ejecutar debe estar dentro del PATH, o bien lo llamamos con la ruta completa:...

Si usabas una dbgrid por ejemplo, al entrar en modo append, editarías los campos en la misma dbgrid, en el registro que te crea. O si usas componentes data-aware (dbedit, ...) lo que editases en ellos.

Sólo tienes que hacer un free de la instancia que has creado. Ej. var f1 : Tform1; procedure crear; begin if not assigned(f1) then f1 := Tform1.create(nil); end; procedure eliminar; begin if assigned(f1) then f1.free; end;

En Firebird no te puedo ayudar mucho porque no la he usado pero una vez creada la bbdd (todas son más o menos iguales) la conexión con Delphi será así aprox.: 1. Creas un ODBC desde Panel de Control/Origenes de datos ODBC de tipo Firebird, si no...

Prueba lo siguiente: ExcelApp. ActiveSheet. Shapes.AddPicture('d:\setup.bmp', True , // LinkToFile True , // SaveWithDocument 10 , // Left 90 , // Top 90 , // Width 90); // Height

Con Paramcount y Paramstr: Ejemplo: Si hay un parámetro y es /EDIT hacemos ...: If ParamCount > 0 then begin If Uppercase(ParamStr(1)) = '/EDIT' then begin // Comprobamos los parámetros pasados end; end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = VK_LEFT then Left := Left - 1 else if key = VK_RIGHT then Left := Left + 1 else if key = VK_UP then Top := Top - 1 else if key = VK_DOWN then Top := Top...

Pones un tquery con la sentencia: select productos_nombre from productos where id=:pid Luego creas un metodo que sea tal que asi: procedure getprods(codigo:string;var ds : tdataset); begin with query1 do begin close; parambyname('pid').AsString :=...