antipauli

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 :=...

Aquí tienes un ejemplo de como se hace: Incluye 'bde' en el uses de tu form y utiliza esta funcion para compactarla: procedure PackDBF(Tabla: TTable); begin Check(DbiPackTable(Tabla.DBHandle, Tabla.Handle, nil, szDBASE, True)) end; Pero cuidado, para...

var B: TBlobStream; begin Table1.Edit; try B := Table1.CreateBlobStream(Table1.FieldByName('Image'), bmWrite); try Image1.Picture.SaveToStream(B); finally B.Free; end; Table1.Post; except Table1.Cancel; raise; end; end;

Usar las excepciones de Delphi es muy fácil. Try //Aqui el codigo que puede petar Except //Aquí pones el código que se ejecutara en el caso que pete. En mi caso he optado por mostrar el mensaje de error. On e:exception do showmessage(e.message); End;