01.procedure TIdMessageClient.SendBody(AMsg: TIdMessage): 02.begin03.... 04. if LFileName <> '' then begin05. IOHandler.WriteLn(';');
// inserted for QC 66867, between original line 1214/1215 06. IOHandler.Write(' name="' + LFileName + '"');
07. end; 08. IOHandler.WriteLn; 09. IOHandler.WriteLn('Content-Transfer-Encoding: ' +LAttachment.ContentTransfer); 10. // next line fixed for QC 66867, changed IOHandler.WriteLn to IOHandler.Write 11. IOHandler.Write('Content-Disposition: ' + LAttachment.ContentDisposition);
12. if LFileName <> '' then begin13. IOHandler.WriteLn(';'); // inserted QC 66867, line 1220/1221 14. IOHandler.Write(' filename="' + LFileName + '"');
15. end; 16.... 17.end;
3) Grabar y hacer un re-Build del proyecto.También se debería reemplazar los siguientes archivos de D2009 :
y actualizar el archivo IdMessageClient.dcu de las siguientes carpetas:
1) C:\Program Files\CodeGear\RAD Studio\6.0\lib\Indy10\IdMessageClient.dcu
2) C:\Program Files\CodeGear\RAD Studio\6.0\lib\debug\Indy10\IdMessageClient.dcu
En combinatoria los números de Catalan forman una secuencia de números naturales que aparecen en varios problemas de conteo que habitualmente son recursivos. Obtienen su nombre del matemático belga Eugène Charles Catalan (1814–1894). El n-ésimo número de Catalan se obtiene, aplicando coeficientes binomiales a partir de la siguiente fórmula:
En caso de una no ocurrencia o una ocurrencia total del patrón se usa una función preprocesada para saltar:
Horspool propuso utilizar solamente el salto del mal carácter para calcular los saltos en el algoritmo de Boyer-Moore.
El salto del mal carácter consiste en:
Se calcula el preprocesamiento del patrón de la siguiente forma:
Para la búsqueda:
Ref:UCR –ECCI
CI-2414 Recuperación de Información
Prof. M.Sc. Kryscia Daviana Ramírez Benavides
Implementación en Delphi:
function search(pat: string; text: string): integer;
var
i, j, k, m, n: integer;
skip: array [0..MAXCHAR] of integer;
found: boolean;
begin
found := FALSE;
search := 0;
m := length(pat);
if m=0 then
begin
search := 1;
found := TRUE;
end;
for k:=0 to MAXCHAR do
skip[k] := m; {*** Preprocessing ***}
for k:=1 to m-1 do
skip[ord(pat[k])] := m-k;
k := m;
n := length(text); {*** Search ***}
while not found and (k <= n) do begin i := k; j := m; while (j >= 1) do
begin
if text[i] <> pat[j] then
j := -1
else
begin
j := j-1;
i := i-1;
end;
if j = 0 then
begin
search := i+1;
found := TRUE;
end;
k := k + skip[ord(text[k])];
end;
end;
end;
Si queremos una medida, en millonésimas de segundo, del tiempo consumido por un algoritmo, podemos utilizar lo siguiente:
const UnMillon = 1000000;
var Frecuencia, X, Y: Int64;
begin
QueryPerformanceFrequency(Frecuencia);
QueryPerformanceCounter(X);
Algoritmo;
QueryPerformanceCounter(Y);
ShowMessage(FormatFloat('0,', (Y - X) * UnMillon div Frecuencia));
end;
El nuevo RAD Studio 2010 incorpora las capacidades "Touch and Gesture " permitiendo que las aplicaciones puedan ser totalmente independientes del teclado, como puede ser en el caso de una aplicación que se ejecute en modo kiosko, ya que incorpora un componente llamado TTouchKeyboard que simula un teclado en pantalla, para utilizar en pantallas táctiles.
http://maps.google.com/maps/api/staticmap?center=40.714728,-73.998672&zoom=12&size=400x400&sensor=false
Espectacular simulación realizada con OpenGL del movimiento de los electrones cuando atraviesan un campo eléctrico. Como muestra la image...
