Foro: Trucos
04-12-2008
|
|
Respuestas: 11
Visitas: 22.573
Posteo el resultado completo
unit...
Posteo el resultado completo
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, XPMan;
|
|
Foro: Trucos
04-12-2008
|
|
Respuestas: 11
Visitas: 22.573
|
|
Foro: Trucos
04-12-2008
|
|
Respuestas: 11
Visitas: 22.573
|
|
Foro: Varios
18-11-2008
|
|
Respuestas: 9
Visitas: 4.161
Prueba leer por bloques:
procedure...
Prueba leer por bloques:
procedure TForm1.Leer(Fn: TFileName);
Const
eol = #10;
var
F: file;
NumRead,i, BufPos:LongWord;
Buf,lin: array[1..1024] of Char;
// Si ajustas el 1024 a la long...
|
|
Foro: Varios
18-11-2008
|
|
Respuestas: 9
Visitas: 4.161
|
|
Foro: Conexión con bases de datos
17-11-2008
|
|
Respuestas: 15
Visitas: 5.863
|
|
Foro: Varios
17-11-2008
|
|
Respuestas: 1
Visitas: 2.232
Compatibilidad Entre Vista 64 y BDE
La verdad dudaba de iniciar este tema, pero a lo mejor alguien tiene la respuesta y nunca esta demás saberla :)
Tengo una aplicación basada en bases de datos BDE y IE5 ó superior (a saber maneja...
|
|
Foro: Varios
17-11-2008
|
|
Respuestas: 8
Visitas: 2.608
Te dejo las funciones:
Function...
Te dejo las funciones:
Function FullZero(s:String;lon:Integer):String; Overload
Function FullZero(s:Int64;lon:Integer):String; Overload
Function FullZero(s:String;lon:Integer):String;...
|
|
Foro: Varios
17-11-2008
|
|
Respuestas: 9
Visitas: 4.161
La forma Simple y tradicional:
procedure...
La forma Simple y tradicional:
procedure TForm1.LeerTxt(FileName: String);
Var
f : TextFile;
s : String;
begin
memo1.lines.clear; // el memo para poder hacer algo con los...
|
|
Foro: MS SQL Server
02-10-2008
|
|
Respuestas: 9
Visitas: 5.226
|
|
Foro: MS SQL Server
01-10-2008
|
|
Respuestas: 9
Visitas: 5.226
|
|
Foro: MS SQL Server
01-10-2008
|
|
Respuestas: 9
Visitas: 5.226
Ok, ya +- tengo la idea, revisando por aqui...
Ok, ya +- tengo la idea, revisando por aqui (http://msdn.microsoft.com/es-es/library/yt786c0h.aspx) veo que tambien se pueden crear funciones almacenadas.
Que con una sintaxsis similar a la que...
|
|
Foro: MS SQL Server
01-10-2008
|
|
Respuestas: 9
Visitas: 5.226
|
|
Foro: MS SQL Server
01-10-2008
|
|
Respuestas: 9
Visitas: 5.226
:eek:
Gracias por responder tan pronto.
Ahora...
:eek:
Gracias por responder tan pronto.
Ahora con el código que muestras puedo separar la cadena (aunque voy a probar usarlo con el campo aux02).
ahora bien,¿ como pongo ese código dentro de una...
|
|
Foro: MS SQL Server
01-10-2008
|
|
Respuestas: 9
Visitas: 5.226
Crear funciones almacenadas en SQL SERVER
Buenas.
Tengo que dar soporte a una aplicación comercial que usa SQL Server y me seria muy util poder incorporar algunas funciones adicionales. me explico:
Tengo un campo CHAR(70) que almacena...
|
|
Foro: Firebird e Interbase
27-05-2008
|
|
Respuestas: 1
Visitas: 3.665
|
|
Foro: Firebird e Interbase
27-05-2008
|
|
Respuestas: 1
Visitas: 3.665
|
|
Foro: Conexión con bases de datos
27-05-2008
|
|
Respuestas: 8
Visitas: 4.016
|
|
Foro: OOP
22-05-2008
|
|
Respuestas: 6
Visitas: 8.502
|
|
Foro: OOP
16-05-2008
|
|
Respuestas: 6
Visitas: 8.502
|
|
Foro: API de Windows
06-05-2008
|
|
Respuestas: 5
Visitas: 1.349
|
|
Foro: Redes
10-04-2008
|
|
Respuestas: 0
Visitas: 3.470
Escritorio remoto sobre VPN
Buenas, Quisiera configurar un servidor w2003srv para permitir accesos remotos (escritorio remoto específicamente), para ello use los pasos establecidos en no-ip para crear el dominio de la vpn y...
|
|
Foro: Varios
30-12-2007
|
|
Respuestas: 4
Visitas: 1.086
|
|
Foro: Varios
30-12-2007
|
|
Respuestas: 4
Visitas: 1.086
No Saltan las excepciones
Tengo el siguiente código:
procedure TfActualizarRubros.btOkClick(Sender: TObject);
Var
Cur : TCursor;
Begin
Cur := Screen.Cursor;
Screen.Cursor := crHourglass;
inherited;
Try
|
|
Foro: Varios
15-12-2007
|
|
Respuestas: 22
Visitas: 6.766
No pude enviarlo hoy pero encntré este...
No pude enviarlo hoy pero encntré este ejemplo:
procedure TForm1.loadPic;
var
jpeg: TJPEGImage;
Stream: TMemoryStream;
BlobField: TBlobField;
begin
BlobField :=...
|
